Koşul ile makronun çalışmasına izin vermemek

[semihdirlik]

Merhabalar, bir makromun çalıştırılabilmesini "s1" hücresinde değer olup olmadığına bağlı olarak yapmak istiyorum. Eğer "S1" hücresinde değer varsa msgbox ile hata mesajı verilip, "makroA" çalıştırılmamalı, eğer "s1" hücresinde değer yoksa "makroA" herhangi bir msgbox vermeden çalıştırılmalı. Nasıl yapabilirim ? Yardımlarınız için çok teşekkür ederim.

 

[muratboz06]

Deneyiniz.

Kodunuzun başına Else dahil olan satırları yazınız.
If IsEmpty(Range("S1")) = False Then
MsgBox "makroA çalıştırılmamalı. S1 hücresini siliniz."
Exit Sub
Else
'makro kodlarınızı buraya yazınız
End If
'End If iadesini End Sub ifadesinden önce yazınız.

Ben olsam S1 hücresini kontrol etmektense Range("S1") = "" ifadesini kodun başına koyarak, makroyu çalıştırmaya devam ederdim.

 

[semihdirlik]

Öncelikle hızlı yanıtınız için çok teşekkür ederim. Kod sorunsuz çalışıyor. Tavsiyeniz için de teşekkür ederim.