Uyarı mesajı görünmesi

[kahramang1]

Merhaba. Aşağıda vereceğim kod un çalşması için A2 hücresinde değerin olmasını istiyorum. A2 hücresi boş ise makro çalışmasın ve "Adı, Soyadı alanına değer giriniz" diye bir uyarı gelsin istiyorum. Bu konuda gerekli düzeltmeyi yaparsanız memnun olurum. Kolay gelsin.
Sub FlitreSil()
'
' FlitreSil Makro
'

'
ActiveSheet.ShowAllData
Range("A2").Select
End Sub

 

[mkuru28]

Sub FlitreSil()
On Error Resume Next
If [a2] = Empty Then
MsgBox "Adı, Soyadı alanına değer giriniz"
Exit Sub
End If
ActiveSheet.ShowAllData
Range("A2").Select
End Sub

Bu şekil işinizi görür mü?

 

[kahramang1]

Çok güzel olmuş. Ellerinize sağlık.