Buton ve Optionbutton yerine Düğme ve Seçenek düğmelerini kullanmak istiyorum

[Mdemir63]

Selamlar,

Arkadaşlar, ekteki örnek dosyamda açıkladığım gibi Buton ve Optionbutton yerlerine , Düğme ve Seçenek düğmesi koymak istiyorum. Ancak mevcut kodları onlara uygulamaya çalıştım ama yazdırma işlemini yaptıramadım. Bir zahmet dosyama bakıp bilgi verebilirmisiniz?

Saygılar

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub Düğme7_Tıklat()
If [J1] = 1 Then
Sheets("NORMAL SEVK KAĞIDI").Select
Application.Dialogs(xlDialogPrint).Show
MsgBox ("Normal Sevk Yazdırıldı")
Sheets("ANASAYFA").Select
End If
If [J1] = 2 Then
Sheets("DİŞ SEVK KAĞIDI").Select
Application.Dialogs(xlDialogPrint).Show
MsgBox ("Diş Sevk Yazdırıldı")
Sheets("ANASAYFA").Select
End If
If [J1] = 3 Then
Sheets("SİCİL DEFTERİ").Select
Application.Dialogs(xlDialogPrint).Show
MsgBox ("Sicil Defteri Yazdırıldı")
Sheets("ANASAYFA").Select
End If
If [J1] = 4 Then
Sheets("YATAKHANE KAYIT FORMU").Select
Application.Dialogs(xlDialogPrint).Show
MsgBox ("Kayıt Senedi Yazdırıldı")
Sheets("ANASAYFA").Select
End If
If [J1] = 5 Then
Sheets("STAJ DEĞ. BELGE").Select
Application.Dialogs(xlDialogPrint).Show
MsgBox ("Staj Belgesi Yazdırıldı")
Sheets("ANASAYFA").Select
End If
End Sub

 

[AS3434]

Sayın komutan63

Seçenek düğmesine direk makro atayarak da yazdırabilirsiniz.

Sub yazdır1()
Sheets("NORMAL SEVK KAĞIDI").PrintPreview
MsgBox ("Normal Sevk Yazdırıldı")
End Sub
Sub yazdır2()
Sheets("DİŞ SEVK KAĞIDI").PrintPreview
MsgBox ("Diş Sevk Yazdırıldı")
End Sub
Sub yazdır3()
Sheets("SİCİL DEFTERİ").PrintPreview
MsgBox ("Sicil Defteri Yazdırıldı")
End Sub
Sub yazdır4()
Sheets("YATAKHANE KAYIT FORMU").PrintPreview
MsgBox ("Kayıt Senedi Yazdırıldı")
End Sub
Sub yazdır5()
Sheets("STAJ DEĞ. BELGE").PrintPreview
MsgBox ("Staj Belgesi Yazdırıldı")
End Sub

Yazıcım olmadığı için Önizleme yaptım. Siz kodlardaki PrintPreview kısmını silip PrintOut yapın.

Renkli hücrelere sayfa açtım onlara basın. diğer düğmeler sayfa olmadığı için hata mesajı verir.

 

[Mdemir63]

Hocam merhabalar,

Benim yazıcım olmadığı için

Run-time error '9'
Subscript out of range

hatası veriyor. sanırım


ikincisi aşağıdaki kodda neden J1 hücresini 1 e eşitliyoruz ve devam ediyor 2, 3 ... diye buradaki 1,2,3... seçenek düğmelerinin adı konumunda mı acaba?

If [J1] = 1 Then

Saygılar

 

[Mdemir63]

Sn. AS3434 hocam
çok teşekkürler bu da değişik bir yöntem sağolun
Sn. Orion2 hocamın önerdiği de bu sizin önerdiğiniz de çok güzel ellerinize sağlık.

Saygılar

 

[Orion1]

Hocam merhabalar,

Benim yazıcım olmadığı için

Run-time error '9'
Subscript out of range

hatası veriyor. sanırım


ikincisi aşağıdaki kodda neden J1 hücresini 1 e eşitliyoruz ve devam ediyor 2, 3 ... diye buradaki 1,2,3... seçenek düğmelerinin adı konumunda mı acaba?

If [J1] = 1 Then

Saygılar

Seçenek düğmesine sağ klik yapın Denetim biçimlendir'i seçin.Hücre bağlantısı kutucuğuna bir hücre girin ve otomatikman option butonlara bastığınızda o hücrede optonbutonun konumuna göre o değeri verir.
Hata verme sebebi olmayan bir çalışma syafasına başvuruyordur.Kodları inceleyiniz olmayan çalışma sayfasını tesbit ediniz.

 

[Mdemir63]

Hocam açıklamalarınız için çok teşekkür ederim

Saygılar

 

[Orion1]

Hocam açıklamalarınız için çok teşekkür ederim

Saygılar

Rica ederim.
Saygılar benden.