yazdır butonuna ikinci komut

[argo619]

Değerli üstadlarım ekli dosyamda a2 hücresinde işyerinin adı var
yazdır butonuna basınca işyerinin adını giriniz şeklinde uyarı vermesini ve tamam deyince yazdırmasını nasıl sağlayabiliriz
şimdiden teşekkürlerimi arzederim

 

[argo619]

Değerli üstadlarım yok mubir çözümü acaba

 

[muratozmenler]

Değerli üstadlarım yok mubir çözümü acaba

Private Sub CommandButton1_Click()
MsgBox "Lütfen İŞYERİ ADINI giriniz...!", vbInformation
Sheets("SAYFA2").PageSetup.PrintArea = "$a$1:$B$10"
Sheets("SAYFA2").PrintOut
End Sub

BU ŞEKİL DENEYİN...

 

[argo619]

Eyvallah değerli üstadım eksik olmayın
harikasınız ya
maşallah
bilginiz daim ve bereketli olsun efendim

 

[argo619]

Hocam özür dilerim hata bende eksik söyledim
uyarıyı güzel veriyor ama ikinci kez tamam deyince yazdırması gerekir
oysa bu uyarıyor ama hemen yazıyor

 

[muratozmenler]

private sub commandbutton1_click()
msgbox "lütfen işyeri adını giriniz...!", vbınformation
sheets("sayfa2").pagesetup.printarea = "$a$1:$b$10"
sheets("sayfa2").printout
end sub

bu şekil deneyin...

düzenledim

 

[muratozmenler]

Private Sub commandbutton1_click()
On Error Resume Next
If MsgBox("İŞYERİ ADINI GİRDİNİZMİ...? ?", vbYesNo, "Dikkat") = vbNo Then Exit Sub
Sheets("sayfa2").PageSetup.PrintArea = "$a$1:$b$10"
Sheets("sayfa2").PrintOut
End Sub

YADA BU ŞEKİL

 

[argo619]

üstadım yordum sizi ama yine hemen yazdırıyor
yani eğer yazılmamış ise bana yazma hakkı vermelidir
uyarıyor ama hemen yazdırıyor efendim

 

[argo619]

hocam tamam ikinci mesajında oldu
harikasınız
çok sağolun
teşekkürler

 

[leumruk]

Hocam özür dilerim hata bende eksik söyledim
uyarıyı güzel veriyor ama ikinci kez tamam deyince yazdırması gerekir
oysa bu uyarıyor ama hemen yazıyor

Merhaba,
Örneği deneyiniz. Alternatif...

Dim Onay As String
Private Sub CommandButton1_Click()
If Onay = "" Then MsgBox "İşyeri adını kontrol ediniz.", vbCritical: Onay = 1: Exit Sub
Sheets("SAYFA2").PageSetup.PrintArea = "$a$1:$B$10"
Sheets("SAYFA2").PrintOut
Onay = ""
End Sub

 

[argo619]

ellerinize sağlık üstadlarım
ikinizinde harika
eksik olmayın
allah razı olsun
çok teşekkürler