Range ile üç farklı hücre sorgulatmak?

[MiRaBiLiS]

Merhaba arkadaşlar, inanın konuyu açmadan değişik cümle türlerinde bunu aradım, bulduğum şekillerde uygulamaya da çalıştım ancak bir şeyler ters gitti. yazım hatası da yapmış olabilirim.

Benim amacım, kod sayfada 3 farklı hücre değerini de kontrol edecek üçünden birisi bile boş ise uyarı verecek,
aşağıdaki kodu tek hücre yaptığımda çalışıyor sorun yok ama yanına farklı hücreler ilave ettiğimde o hücreleri de kontrol etmiyor.

yardımlarınızı rica ederim.

If Sheets("DEPO GİRİŞ-ÇIKIŞ").Range("C49,A53,D53").Value = "" Then
MsgBox "ARAÇ KAYDI BULUNAMADI!" & vbCrLf & "LÜTFEN ÖNCE ARAÇ VE ŞOFÖR BİLGİLERİNİ KAYDEDİNİZ!", _
 Buttons:=vbCritical, _
 Title:="DİKKAT!!!"
Exit Sub
Else

 

[Orion1]

if satırını aşağıdaki ile değiştirip uygulayınız.

If Sheets("DEPO GİRİŞ-ÇIKIŞ").Range("C49").Value = "" Or _
        Sheets("DEPO GİRİŞ-ÇIKIŞ").Range("A53").Value = "" Or _
                Sheets("DEPO GİRİŞ-ÇIKIŞ").Range("D53").Value = "" Then

 

[MiRaBiLiS]

if satırını aşağıdaki ile değiştirip uygulayınız.

If Sheets("DEPO GİRİŞ-ÇIKIŞ").Range("C49").Value = "" Or _
        Sheets("DEPO GİRİŞ-ÇIKIŞ").Range("A53").Value = "" Or _
                Sheets("DEPO GİRİŞ-ÇIKIŞ").Range("D53").Value = "" Then

malesef olmuyor ilginç bir durum biliyorum ama ilk c49u görüyor ama sonraki eklediğim hücreleri görmüyor çok ilginç. c49u dolduruyorum a53ü boş bırakıyorum uyarı vermiyor, işleme devam ediyor. farklı bir çözüm önerebilirseniz sevinirim.

 

[Orion1]

Örnek dosyanızı eklerseniz bakabilirim.

 

[Orion1]

malesef olmuyor ilginç bir durum biliyorum ama ilk c49u görüyor ama sonraki eklediğim hücreleri görmüyor çok ilginç. c49u dolduruyorum a53ü boş bırakıyorum uyarı vermiyor, işleme devam ediyor. farklı bir çözüm önerebilirseniz sevinirim.

Bende çalışıyor.
Linkteki dosyayı deneyiniz.

DOSYAYI INDIR
.

 

[MiRaBiLiS]

'GÜNLÜĞE AKTARIM
Private Sub CommandButton4_Click()
If Sheets("DEPO GİRİŞ-ÇIKIŞ").Range("C49").Value = "" And _
    Sheets("DEPO GİRİŞ-ÇIKIŞ").Range("D41").Value = "" And _
        Sheets("DEPO GİRİŞ-ÇIKIŞ").Range("D56").Value = "" And _
            Sheets("DEPO GİRİŞ-ÇIKIŞ").Range("J57").Value = "" Then
MsgBox "ARAÇ KAYDI BULUNAMADI!" & vbCrLf & "LÜTFEN ÖNCE ARAÇ VE ŞOFÖR BİLGİLERİNİ KAYDEDİNİZ!" & vbCrLf & "VEYA FORMDA EKSİK BIRAKILAN ALANLARI DOLDURUNUZ!", _
Buttons:=vbCritical, _
Title:="DİKKAT!!!"
Exit Sub
Else
CommandButton3.Enabled = True
CommandButton4.Enabled = False

Merhaba hocam, ben modül kısmına değil de, depo giriş çıkışa yazdım çünkü kodun devamı var. ondan dolayı buraya yazmam gerekiyordu.
örnek dosya altta mevcuttur.
https://dosya.co/j7rrgen807bh/örnek.xlsm.html



----------------

ilave olarak burada şöyle bir olay mevcut, günlüğe aktar butonuna basmadan yazdır butonu aktif olmuyor. ancak bizim bazı kurnaz arkadaşlarımız günlüğe aktarmamak için ctrl-p ile çıktı alıyorlar.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

bu yazdırmayı devre dışı bırakma kodunu bu amaçla kullanabilir miyiz? yani günlüğe aktar dediğinde hem yazdırma butonu aktif olacak hemde yazdırma özelliği aktif olacak. bu şekilde bir düzenleme yapabilir miyiz acaba?

 

[Orion1]

Benim dediğimi yazmamışsınız.
Koşulda And operatörü yerine Or operatörünü kullanmalısınız.
Ben yazdım oldu.
2nci soru hakkında bir şey diyemeyeceğim.

 

[MiRaBiLiS]

Benim dediğimi yazmamışsınız.
Koşulda And operatörü yerine Or operatörünü kullanmalısınız.
Ben yazdım oldu.
2nci soru hakkında bir şey diyemeyeceğim.

tamam teşekkür ederim. elinize aklınıza sağlık hocam.