السلام عليكم
هذا الكو د كيف أجعله أول ما أكتب Hady1 وأنتقل لأى خلية يعطينى رسالة
وليس حتى أضغط على المفتاح
Sub Hady()
Dim i As Integer
For i = 1 To 3
If Sheets("Sheet1").Cells(i, "A").Value = "Hady1" Then
MsgBox (Sheets("Sheet1").Cells(i, "A"))
End If
Next i
End Sub
وجزاك الله كل خير
وعليكم السلام ورحمة الله وبركانه