Koddaki hatam nedir?

[İsmail Küçükşengün]

Merhabalar;
Sayın forum üyeleri. Ana formdan, userform3'ü seçiyorum. Userform3.teki optionbutton ile seçtiğim yazıyı göstermesi Aşağıda kodu çalıştıramadım. Önizlemeyi yaptıramadım.(Ana form excel gizlenerek işlem yapılıyor.)

Private Sub CommandButton1_Click()
deg = TextBox1
For a = 1 To 8
If Controls("optionbutton" & a).Value = False Then
Select Case a
Case 1: adr = "a2:f26"
Case 2: adr = "h2:l26"
Case 3: adr = "a29:f64"
Case 4: adr = "h29:l64"
Case 5: adr = "a67:f102"
Case 6: adr = "h2:l102"
Case 7: adr = "a105:f140"
Case 8: adr = "h105:l140"
End Select
Sheets("yazılar").PageSetup.PrintArea = adr
UserForm3.Hide
Sheets("yazılar").PrintPreview
If TextBox1 = "" Then deg = 1

UserForm3.Show
Exit Sub
End If
Next
End Sub

Yardımlarınız için şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Kod içindeki False kelimesini True ile değiştirin.

 

[İsmail Küçükşengün]

Teşekkürler..