اشكركم من اعماق قلبي يا اساتذتي
هذا هو المطلوب
ولاكن هل لي بأن اثقل عليكم بدمج هذه الامرين بكود واحد فقط
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
Cells(Target.Row, 1) = 1
Else
Cells(Target.Row, 1) = Cells((Target.Row) - 1, 1) + 1
End If
End Sub
وهذا
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [b2:B100]) Is Nothing Then
If IsDate(Target) Then Target.Offset(0, 7) = Month(Target)
End If
End Sub
واعتذر على الاطالة
ولكم جزيل الكشر والتقدير