عدم ترك خلية في العمود فارغة اعلى الصف

[عبدالله باقشير]

السلام عليكم

عدم ترك خلية في العمود فارغة اعلى الصف

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

Private Sub Worksheet_Change(ByVal Target As Range)

Dim R As Integer, C As Integer

If Target.Column = 2 And Target.Row > 2 Then

    If Target.Value = "" Then GoTo 1

    R = Target.Row - 1

    C = Application.WorksheetFunction.CountA(Range("B3:B" & R))

    If R - 2 <> C Then

        MsgBox "خلايا اعلى الصف فارغة", vbCritical + vbMsgBoxRtlReading, "استخدام خاطىء"

        Target.ClearContents

        Range("B" & C + 3).Activate

    End If

End If

1 End Sub

عدم ترك خلية فى العمود فارغة.rar

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

استاذ خبور الفاضل

اعمالك دائما جميلة ورائعة

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

[قصي]

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

[ابوصلاح]

ما هي المعادلة  في التحقق من الصحة ارجو التوضيح زشكرا

[حمادة عمر]

بعد اذن استاذنا / خبور خير ... جزاه الله خيرا

 

المعادلة هي  ... في الصف رقم  3

=COUNTA($B$2:B2)+2>=ROW()