buton komutu

[alicanxy58]

Userform üzerinde bir comboboxlardaki verileri aktaran ve aktardığı tabloyu yazdıran bir butonum var. Bazen yanlışlıkla bu butona basabiliyorum, istem dışı bu durumu engellemek için;

Bu butonuna basınca aktarmadan ve yazdırmadan önce yazdırmak istediğinize eminmisiniz diye sorup evet deyince buton aktif hale gelebilirmi.

 

[fedeal]

cvp = MsgBox("YAZDIRMAK İSTEDİGİNİZE EMİNMİSİNİZ ?", vbYesNo, " İSMİNİZ ")
If cvp = vbNo Then
Else

KODLARINIZ...

END IF

İyi çalışmalar.

 

[msanli]

Bu kod belki işini görebilir

Private Sub CommandButton1_Click()
MsgBox "eminmisin"
'aktarma yaptığın kodu eklersin'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[alicanxy58]

Sayın Fedeal cevabınıza çok teşekkür ederim. İşimi gördü..

Sayın Sanlı sizede ilginiz için teşekkür ederim.

 

[alicanxy58]

Teşekkürler...

 

[fedeal]

Sayın Fedeal cevabınıza çok teşekkür ederim. İşimi gördü..

ricaederim iyi çalışmalar.