Hücrede belirli bir yazı yazıyorsa yazdır butonu çalışmasın

[ASLAN7410]

Merhaba arkadaşlar herkese hayırlı geceler.


Ekte gönderdiğim sayfamda J7 hücresinde veri doğrulama var, burada PLAKA SEÇİNİZ yazıyorsa ve yazdır butonuna basıldığında Plakayı seçmediniz uyarı mesajı gelsin, eğer J7 hücresinde plaka varsa butona basıldığında yazdırmaya devam etmesini istiyorum.

Örnek kodlarla yapmaya çalıştım ancak yapamadım.
Yardım edecek arkadaşlara şimdiden teşekkür ediyorum.

 

[Emir Hüseyin Çoban]

. . .

Sizin yazdığın kodlar nedir. Onları da gönderin. Hatanız nerede yol göstererek çözelim...

. . .

 

[ASLAN7410]

Sayın Hüseyin Bey ilginiz için çok teşekkür ediyorum, hayırlı geceler.
Benim istediğim sadece hücrede PLAKA SEÇİNİZ yazıyorsa yazdır butonuna bastığımda yazdırmasın ekrana uyarı mesaj gelsin, hücrede plaka varsa yazdır butonuna bastığımda yazdırmaya devam etmesini istemiştim.

Makro yazmayı bilmediğim için deneme yanılma olarak aşağıdaki koda ekleme yapmaya çalıştım oldu galiba.

Sub Düğme1_Tıklat()
    kOntrol = 1
[B]If Sheets("ÜST YAZI").Range("j7") = "PLAKA SEÇİNİZ" Then
MsgBox "PLAKAYI SEÇMEDİNİZ."
Else[/B]
    Sheets("ÜST YAZI").PrintOut From:=1, To:=1, Copies:=1
    Range("A1").Select
    kOntrol = 0
End If
End Sub

 

[Emir Hüseyin Çoban]

. . .

Kontrol sistemi çalışıyor mu.

Msgbox için şu kodlarıda deneyiniz.
MsgBox "PLAKAYI SEÇMEDİNİZ.", vbCritical

. . .

 

[ASLAN7410]

Çalışıyor Hüseyin Bey, Mesaj kutusu kodu içinde ayrıca teşekkür ederim, hayırlı geceler.