optionbutton

[ipkins]

herkese merhaba optionbutton hakında yardıma ihtiyacım var formda aradım fakat bulamadım userforma 5 adet optionbutton ekledim bu butonlara tıklayınca herbiri ayrı sayfaları seçiyor bir adette commatbutton num var benim sorunum optionbuttonun hangisi seçili ise yazdır dediğimde osayfanın yazdırılması bu konuda bana yardımcı olacak arkadaşlara şimdiden teşekkür ediyorum herkese kolay gelsin :hey:

 

[Nazmi YAZICI]

Mrb,

Aşağıdaki kodlar sayfa isimlerinin [Sheet1,Sheet2.. Sheet5] olması koşuluna göre hazırlanmıştır.

Syg.

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 5

If Me.Controls("OptionButton" & i).Value = True Then
MsgBox "OptionButton" & i & " seçili ve [Sayfa" & i & "] yazdırılacak.", vbInformation, "Uyarı"
Sheets("Sheet" & i).PrintOut
End If

Next i
End Sub

 

[ipkins]

TEÞEKKÜRLER NAZMİ YAZICI :mutlu: