İsmail Küçükşengün
Özel Üye
- Katılım
- 31 Ağustos 2005
- Mesajlar
- 1,534
- Excel Vers. ve Dili
- Excel 2003 - Türkçe
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.
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.