DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
merhaba ,Merhaba,
Kodların başına ilave edin.
Kod:If Range("C4") = "" And Range("F4") = "" Then MsgBox "Çalışmadım..C4 yada F4 hücrelerinden biri dolu olmalı." Exit Sub End If
merhaba ,
E9 dolu , J9,O9,T9 boş ise makro çalışsın , J9,O9,T9 bunlardan herhangi biri dolu ise "YANLIŞ BUTON" uyarısı versin
E9,J9 dolu ,O9,T9 boş ise makro çalışsın O9,T9 bunlardan herhangi biri dolu ise "YANLIŞ BUTON" uyarısı versin
E9,J9,O9 dolu ,T9 boş ise makro çalışsın T9 dolu herhangi biri dolu ise "YANLIŞ BUTON" uyarısı versin
E9,J9,O9,T9 dolu ise makro çalışsın bunlardan herhangi biri boş ise "YANLIŞ BUTON" uyarısı versin
4 ayrı çıkış butonu var , yazdığım her satırı ayrı butonlara tanımlama yapacağım
Böyle bir makroyu nasıl yazarım
If Range("E9") = "" Or Range("J9") <> "" Or Range("O9") <> "" Or Range("T9") <> "" Then
MsgBox "YANLIŞ BUTON"
Exit Sub
End If
If s1.Range("B3:B32") = "" ThenMerhaba,
Kodların başına ilave edin.
Kod:If Range("C4") = "" And Range("F4") = "" Then MsgBox "Çalışmadım..C4 yada F4 hücrelerinden biri dolu olmalı." Exit Sub End If