أقساط حضانة

[كعبلاوى]

 

ارجوا من أساتذتى المشرفين على الموقع 

تفعيل ماكرو حفظ والخروج

إظهار الرقم 100 فى اخر خلية فارغة فى المسافة من I5 : U5

 وجزاكم الله عنا كل خير

 

أقساط حضانة.rar

[عبدالسلام ابوالعوافي]

اقساط حضانة .rar

[كعبلاوى]

كل الشكر والتقدير والاحترام لك استاذي الفاضل عبدالسلام ابوالعوافي

 ابدعت والكلمات  لا توصف حقك

لى طلب اخر بعد اذنك الرقم الموجود بالخلية d2 يرحل فى صف واحد للطفل 101

ممكن يرحل الى جميع الاطفال كلا حسب الكود الموجود فى d1

 فاذا كانت d1 فيها الكود 102 او 103 

لك جزيل شكرى

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب عبد السلام وكل عام وأنت بخير

بعد إذنك جرب التعديل في الكود بهذا الشكل ليناسب طلبك

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim LC As Long
    Dim Row As Long
    
    If Target.Address = "$D$2" Then
        Row = Application.Match([D1], Columns(5), 0)
        LC = IIf(Cells(Row, Columns.Count).End(xlToLeft).Column + 1 < 9, 9, Cells(Row, Columns.Count).End(xlToLeft).Column + 1)
        
        If LC > 21 Then MsgBox "No More Months", 64: Exit Sub
        Cells(Row, LC) = Target
        Target.Activate
    End If
End Sub

 

 

[ناصر سعيد]

جزاكم الله عنا كل خير