- Katılım
- 15 Ağustos 2009
- Mesajlar
- 493
- Excel Vers. ve Dili
- Excel Vers. ve Dili : Ofis 2007 / Tr
- Altın Üyelik Bitiş Tarihi
- 13.09.2027
Merhabalar,
Userform üzerinde 10 textbox ve 5 checkbox mevcut.
Aşağıdaki kodlarla Textboxlarla sayfaya veri giriyorum. Ve print alıyorum.
Yapmak istediğim:
Textbox1 ve 6 ya veri girdiğimde
Checkbox1 = true diğer checkboxlar false olduğunda
A1-N7 aralığını,
Textbox1, 2, 6 ve 7 ye veri girdiğimde
Checkbox1 ve 2 true diğer checkboxlar false olduğunda
A1-N14 aralığını,
Textbox1, 2, 3, 6, 7 ve 8 e veri girdiğimde
Checkbox1, 2 ve 3 true diğer checkboxlar false olduğunda
A1-N21 aralığını,
Textbox1, 2, 3, 4, 6, 7, 8 ve 9 a veri girdiğimde
Checkbox1, 2, 3 ve 4 true diğer checkbox false olduğunda
A1-N28 aralığını,
Tüm textboxlara veri girdiğimde
Checkbox1, 2, 3, 5 ve 5 true olduğunda
A1-N36 aralığını,
Tek YAZDIR butonu ile yukarıdaki şartlara göre nasıl print alabilirim.
USERFORM KODU:
Private Sub CommandButton1_Click()
On Error Resume Next
ActiveSheet.Range("b3").Value = TextBox1.Text
ActiveSheet.Range("b10").Value = TextBox2.Text
ActiveSheet.Range("b17").Value = TextBox3.Text
ActiveSheet.Range("b24").Value = TextBox4.Text
ActiveSheet.Range("b31").Value = TextBox5.Text
ActiveSheet.Range("f6").Value = TextBox6.Text
ActiveSheet.Range("f13").Value = TextBox7.Text
ActiveSheet.Range("f20").Value = TextBox8.Text
ActiveSheet.Range("f27").Value = TextBox9.Text
ActiveSheet.Range("f34").Value = TextBox10.Text
End Sub
Private Sub CommandButton2_Click()
Me.Hide
Call yazdir
Me.Show
End Sub
MODULE KODU:
Sub yazdir()
Sheets("Sayfa2").Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.PageSetup.PrintArea = "$a$1:$n$36"
ActiveSheet.PrintOut Copies:=1
End Sub
Bilgi için teşekkürler...
Userform üzerinde 10 textbox ve 5 checkbox mevcut.
Aşağıdaki kodlarla Textboxlarla sayfaya veri giriyorum. Ve print alıyorum.
Yapmak istediğim:
Textbox1 ve 6 ya veri girdiğimde
Checkbox1 = true diğer checkboxlar false olduğunda
A1-N7 aralığını,
Textbox1, 2, 6 ve 7 ye veri girdiğimde
Checkbox1 ve 2 true diğer checkboxlar false olduğunda
A1-N14 aralığını,
Textbox1, 2, 3, 6, 7 ve 8 e veri girdiğimde
Checkbox1, 2 ve 3 true diğer checkboxlar false olduğunda
A1-N21 aralığını,
Textbox1, 2, 3, 4, 6, 7, 8 ve 9 a veri girdiğimde
Checkbox1, 2, 3 ve 4 true diğer checkbox false olduğunda
A1-N28 aralığını,
Tüm textboxlara veri girdiğimde
Checkbox1, 2, 3, 5 ve 5 true olduğunda
A1-N36 aralığını,
Tek YAZDIR butonu ile yukarıdaki şartlara göre nasıl print alabilirim.
USERFORM KODU:
Private Sub CommandButton1_Click()
On Error Resume Next
ActiveSheet.Range("b3").Value = TextBox1.Text
ActiveSheet.Range("b10").Value = TextBox2.Text
ActiveSheet.Range("b17").Value = TextBox3.Text
ActiveSheet.Range("b24").Value = TextBox4.Text
ActiveSheet.Range("b31").Value = TextBox5.Text
ActiveSheet.Range("f6").Value = TextBox6.Text
ActiveSheet.Range("f13").Value = TextBox7.Text
ActiveSheet.Range("f20").Value = TextBox8.Text
ActiveSheet.Range("f27").Value = TextBox9.Text
ActiveSheet.Range("f34").Value = TextBox10.Text
End Sub
Private Sub CommandButton2_Click()
Me.Hide
Call yazdir
Me.Show
End Sub
MODULE KODU:
Sub yazdir()
Sheets("Sayfa2").Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.PageSetup.PrintArea = "$a$1:$n$36"
ActiveSheet.PrintOut Copies:=1
End Sub
Bilgi için teşekkürler...
Ekli dosyalar
-
21.3 KB Görüntüleme: 4