hücre boş ise makro çalışmasın

[CEMİL16]

Arkadaşlar Merhaba
C4 Veya F4 Hücrelerin ikisi de boşsa makro çalışmasın
hücrelerin bir tanesi bile dolu ise makro çalışsın
bana bu konuda yardımcı olurmusunuz

 

[Ömer]

Merhaba,

Kodların başına ilave edin.

    If Range("C4") = "" And Range("F4") = "" Then
        MsgBox "Çalışmadım..C4 yada F4 hücrelerinden biri dolu olmalı."
        Exit Sub
    End If

 

[CEMİL16]

Ömer hocam teşekkür ederim
makro adım adım ilerlediğinde çalışıyor
ama commot butona batığımda çalışmıyyor

 

[Ömer]

Örnek dosya ekler misiniz.

 

[CEMİL16]

teşekkür ederim sorun çözüldü

 

[HOOGEZAND]

Bu konuya ilave bir sorum olacak
C4 ve C10 dahil olmak üzere C4-C10 hücre aralığındaki hücre içeriği boş ise makro çalışmasın bununla ilgili örnek kod mevcut mu ?
yardımlarınız için şimdiden teşekkürler

 

[HOOGEZAND]

Arkadaşlar deneme yanılma yoluyla sorunu çözdüm bu şekilde yapınca çalışıyor

If Range("C4") = "" Then
MsgBox "Lütfen Sarı Alanların Tamamını Doldurun", vbCritical
Exit Sub
End If

If Range("C5") = "" Then
MsgBox "Lütfen Sarı Alanların Tamamını Doldurun", vbCritical
Exit Sub
End If

If Range("C6") = "" Then
MsgBox "Lütfen Sarı Alanların Tamamını Doldurun", vbCritical
Exit Sub
End If

If Range("C7") = "" Then
MsgBox "Lütfen Sarı Alanların Tamamını Doldurun", vbCritical
Exit Sub
End If

If Range("C8") = "" Then
MsgBox "Lütfen Sarı Alanların Tamamını Doldurun", vbCritical
Exit Sub
End If

If Range("C9") = "" Then
MsgBox "Lütfen Sarı Alanların Tamamını Doldurun", vbCritical
Exit Sub
End If

If Range("C10") = "" Then
MsgBox "Lütfen Sarı Alanların Tamamını Doldurun", vbCritical
Exit Sub
End If

 

[musa yüksel]

Merhaba,

Kodların başına ilave edin.

    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

 

[musa yüksel]

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

bu formül ile çözdüm işimi belki size de lazım olur

 

[Hacı Bayram ÖZKAN]

Sayın Ömer abim; 2 nolu mesajınızda belirli bir aralık için bu işlemi yapacaksak nasıl yazılır.

Merhaba,

Kodların başına ilave edin.

    If Range("C4") = "" And Range("F4") = "" Then
        MsgBox "Çalışmadım..C4 yada F4 hücrelerinden biri dolu olmalı."
        Exit Sub
    End If

If s1.Range("B3:B32") = "" Then

MsgBox "Lütfen Seçim Yapın", vbCritical
Exit Sub

End If
Bu şekil yazdım olmadı.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

If Join(Application.Transpose(s1.Range("B3:B32").Value), "") = "" Then

 

[Hacı Bayram ÖZKAN]

Teşekkürler Ömer hocam çalıştı ellerine sağlık sağlıcakla kal.