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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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

Preview




تعديلات على كود جلب اخر تسديد للعميل

السلام عليكم : حياكم الله يوجد ملاحظات في استدعاء اخر تاريخ تسديد للعميل فمثلا : العميل ابو ثائر حصيبه تاريخ اخر تسدي ..



11-09-2017 02:26 مساء
ابوعبدالواجد
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 6
المشاركات : 46
الجنس : ذكر
تاريخ الميلاد : 7-1-1967
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 36
الاعجاب : 1
 offline 
السلام عليكم : حياكم الله
يوجد ملاحظات  في استدعاء  اخر تاريخ  تسديد للعميل
فمثلا : العميل ابو ثائر حصيبه تاريخ اخر تسديد هو  5 / 9 /2017
ولكن ظهر معكوس ظهر    9 / 5 /2017
وكذلك الى العميل استاذ ياسين الدبي الصحيح هو  2/ 8 /2017  وليس   8 / 2 / 2017

واذا توفر وقت شاكرا :
اذا لم يوجد تاريخ اخر تسديد يكون مكانه تاريخ الشراء الموجود في شيت الاقساط

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


 
 
 
  برنامج الاقساط - جلب اخر تسديد.rar   تحميل rar مرات التحميل :(29)
الحجم :(430.27) KB





11-09-2017 07:00 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26666
الاعجاب : 672
 offline 
look/images/icons/i1.gif تعديلات على كود جلب اخر تسديد للعميل
وعليكم السلام
جرب التعديل التالي
Sub Grab_Last_Date()
    Dim ws          As Worksheet
    Dim sh          As Worksheet
    Dim arr         As Variant
    Dim temp        As Variant
    Dim x           As Variant
    Dim i           As Long
    Dim j           As Long
    Dim k           As Long
    
    Set ws = Sheets("اقساط")
    Set sh = Sheets("تاريخ")
    arr = sh.Range("B3:B" & sh.Cells(Rows.Count, 1).End(xlUp).Row).Value
    ReDim temp(1 To UBound(arr, 1))
    k = 0
    
    Application.ScreenUpdating = False
        For i = LBound(arr, 1) To UBound(arr, 1)
            k = k + 1
            x = Application.Match(CStr(arr(i, 1)), ws.Columns(7), 0)
            If IsNumeric(x) Then
                For j = 10 To 23 Step 2
                    If ws.Cells(x, 10) = "" Then GoTo Skipper
                    If ws.Cells(x, j) = "" Then temp(k) = CLng(ws.Cells(x, j - 1)): GoTo Skipper
                Next j
            Else
                temp(k) = ""
            End If
Skipper:
        Next i
    
        sh.Range("F3").Resize(k).Value = Application.Transpose(temp)
    Application.ScreenUpdating = True
End Sub


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




11-09-2017 07:33 مساء
مشاهدة مشاركة منفردة [2]
ابوعبدالواجد
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 6
المشاركات : 46
الجنس : ذكر
تاريخ الميلاد : 7-1-1967
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 36
الاعجاب : 1
 offline 
look/images/icons/i1.gif تعديلات على كود جلب اخر تسديد للعميل
صار استاذ - جزيت خيرا - اعتذر

جربت الكود الجديد الحمد لله تمام

اشكرك

جزاك الله خيرا



 




13-09-2017 12:54 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26666
الاعجاب : 672
 offline 
look/images/icons/i1.gif تعديلات على كود جلب اخر تسديد للعميل
وجزيت خيراً بمثل ما دعوت لي والحمد لله الذي بنعمته تتم الصالحات







الكلمات الدلالية
تعديلات ، تسديد ، للعميل ،


 








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

الساعة الآن 08:30 مساء

أعلن هنا
أعلن هنا
أعلن هنا