السلام عليكم
أخي العزيز
ضع الكود التالي في حدث الورقة
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
r = Target.Row: If r < 4 Then Exit Sub
For Each cl In Range("A" & r - 1 & ":I" & r - 1)
If IsEmpty(cl) Then GoTo 10
c = c + 1
10
Next
If c < 9 Then Target.Offset(-1, 0).Select
End Sub
أو تفضل المرفق
أخي العزيز /أحمد عبد الناصر
عفوا لم أر مشاركتك إلا بعد أن شاركت
ولكن هذا أفضل للإثراء
عدم الذهاب للصف الذي يليه إذا لم تدخل كافة البيانات.zip