أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الترقيم بشرط معين اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





معرفة اخر تاريخ سداد

مساء الخير ,, ارجو المساعدة من حضرتكم فى اعداد معادلة لايجاد اخر تاريخ سداد لكل عميل و شكرا لحضرتكم


موضوع مغلق


28-08-2021 09:55 صباحا
mishoshow
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-10-2018
رقم العضوية : 8546
المشاركات : 19
الجنس : ذكر
تاريخ الميلاد : 16-10-1982
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 23
 offline 

مساء الخير ,,

ارجو المساعدة من حضرتكم فى اعداد معادلة لايجاد اخر تاريخ سداد لكل عميل

و شكرا لحضرتكم


أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم
في الخلية AB1 اكتب العنوان "آخر تاريخ سداد" ثم جرب الكود التالي
Sub Test()
    Dim r As Long, c As Long
    Application.ScreenUpdating = False
        For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            For c = 25 To 7 Step -1
                If Cells(r, c).Value <> "" Then
                    Cells(r, 28).Value = Cells(r, c).Value: Exit For
                End If
            Next c
        Next r
    Application.ScreenUpdating = True
End Sub
عرض الإجابة




28-08-2021 12:05 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif معرفة اخر تاريخ سداد
السلام عليكم
في الخلية AB1 اكتب العنوان "آخر تاريخ سداد" ثم جرب الكود التالي
Sub Test()
    Dim r As Long, c As Long
    Application.ScreenUpdating = False
        For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            For c = 25 To 7 Step -1
                If Cells(r, c).Value <> "" Then
                    Cells(r, 28).Value = Cells(r, c).Value: Exit For
                End If
            Next c
        Next r
    Application.ScreenUpdating = True
End Sub



الكلمات الدلالية
معرفة ، تاريخ ، سداد ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:55 صباحا