checkbox ile seçimli yazdırma

[kelbasasimsirtarak]

içerisinde yaklaşık 20 tane checkbox olan bir userform kullanıyorum.bu checkboxlar ile başvuru belgesi yazdırmak istiyorum.bunlardan checkbox1 zorunlu seçimli.yani tıklanamıyor ve seçimi kaldırılamıyor.bunu her yazdır butonuna bastığımda mutlaka yazdıracak.ayriyetten diğer 19 checkboxtan hangisini seçersem seçeyim işaretli olanlarla birlikte zorunlu işaretli olan checkbox1'i de yazdırmak istiyorum.kullandığım formül aşağıda.bu formülü kullanıp yazdır tuşuna bastığımda sadece checkbox1'i yazdırıyor.diğerlerini seçsem bile sadece checkbox1'i yazdırıyor.diğerlerini yazdıramıyorum.nasıl düzeltmeliyim?.

Private Sub CommandButton1_Click()
On Error Resume Next
If CheckBox1 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut
If CheckBox2 = True Then
Sheets("İŞLETME KREDİSİ").PrintOut
If CheckBox3 = True Then
Sheets("KÜÇÜKBAŞ ALIMI").PrintOut
If CheckBox4 = True Then
Sheets("DAMIZLIK HAYVAN ALIMI").PrintOut
If CheckBox5 = True Then
Sheets("DAMLAMA SULAMA").PrintOut
If CheckBox6 = True Then
Sheets("MEYVECİLİK YATIRIM").PrintOut
If CheckBox7 = True Then
Sheets("SERACILIK").PrintOut
If CheckBox8 = True Then
Sheets("BİYOGÜVENLİK").PrintOut
If CheckBox9 = True Then
Sheets("ÇİFTÇİ KREDİ KARTI").PrintOut
If CheckBox10 = True Then
Sheets("BÜYÜKBAŞ HAYVAN ALIMI").PrintOut
If CheckBox11 = True Then
Sheets("BESİ DANASI ALIMI").PrintOut
If CheckBox12 = True Then
Sheets("TRAKTÖR").PrintOut
If CheckBox13 = True Then
Sheets("2.EL TRAKTÖR").PrintOut
If CheckBox14 = True Then
Sheets("MEKANİZASYON").PrintOut
If CheckBox15 = True Then
Sheets("NAKLİYE ARACI").PrintOut
If CheckBox16 = True Then
Sheets("ARAZİ EDİNDİRME").PrintOut
If CheckBox17 = True Then
Sheets("ARICILIK").PrintOut
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Unload Me
End Sub
____________________________________________
Private Sub UserForm_Activate()
CheckBox1.Value = True
End Sub

 

[kelbasasimsirtarak]

yok mu yardım edebilecek biri

 

[kelbasasimsirtarak]

3 defa sordum cevap alamadım.arkadaşlar bilen biri yok mu?

 

[Emir Hüseyin Çoban]

. . .

Öneri:
Denemeler yapabilmek için küçük bir örnek dosya paylaşmalısınız.

. . .

 

[kelbasasimsirtarak]

arkadaşlara faydalı olmasını diliyorum.kodu şöyle yazdığımda düzeldi.fakat burada dikkat edilmesi gereken nokta ben zorunlu seçim ile beraber yalnız 1 tane daha seçenek seçebiliyorum.daha fazlasını yapamıyorum.
Private Sub CommandButton1_Click()
On Error Resume Next
If CheckBox1 And CheckBox2 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut , Sheets("İŞLETME KREDİSİ").PrintOut
MsgBox "BAŞVURU BELGESİ YAZDIRILDI"
ElseIf CheckBox1 And CheckBox3 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut , Sheets("KÜÇÜKBAŞ HAYVAN ALIMI").PrintOut
MsgBox "BAŞVURU BELGESİ YAZDIRILDI"
ElseIf CheckBox1 And CheckBox4 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut , Sheets("DAMIZLIK HAYVAN ALIMI").PrintOut
MsgBox "BAŞVURU BELGESİ YAZDIRILDI",
ElseIf CheckBox1 And CheckBox5 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut , Sheets("DAMLAMA SULAMA").PrintOut
MsgBox "BAŞVURU BELGESİ YAZDIRILDI"
ElseIf CheckBox1 And CheckBox6 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut , Sheets("MEYVECİLİK YATIRIM").PrintOut
MsgBox "BAŞVURU BELGESİ YAZDIRILDI"
ElseIf CheckBox1 And CheckBox7 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut , Sheets("SERACILIK").PrintOut
MsgBox "BAŞVURU BELGESİ YAZDIRILDI"
ElseIf CheckBox1 And CheckBox8 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut , Sheets("BİYOGÜVENLİK").PrintOut
MsgBox "BAŞVURU BELGESİ YAZDIRILDI"
ElseIf CheckBox1 And CheckBox9 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut , Sheets("ÇİFTÇİ KREDİ KARTI").PrintOut
MsgBox "BAŞVURU BELGESİ YAZDIRILDI"
ElseIf CheckBox1 And CheckBox10 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut , Sheets("BÜYÜKBAŞ HAYVAN ALIMI").PrintOut
MsgBox "BAŞVURU BELGESİ YAZDIRILDI"
ElseIf CheckBox1 And CheckBox11 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut , Sheets("BESİ DANASI ALIMI").PrintOut
MsgBox "BAŞVURU BELGESİ YAZDIRILDI"
ElseIf CheckBox1 And CheckBox12 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut , Sheets("TRAKTÖR").PrintOut
MsgBox "BAŞVURU BELGESİ YAZDIRILDI"
ElseIf CheckBox1 And CheckBox13 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut , Sheets("2.EL TRAKTÖR").PrintOut
MsgBox "BAŞVURU BELGESİ YAZDIRILDI"
ElseIf CheckBox1 And CheckBox14 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut , Sheets("MEKANİZASYON").PrintOut
MsgBox "BAŞVURU BELGESİ YAZDIRILDI"
ElseIf CheckBox1 And CheckBox15 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut , Sheets("NAKLİYE ARACI").PrintOut
MsgBox "BAŞVURU BELGESİ YAZDIRILDI"
ElseIf CheckBox1 And CheckBox16 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut , Sheets("ARAZİ EDİNDİRME").PrintOut
MsgBox "BAŞVURU BELGESİ YAZDIRILDI"
ElseIf CheckBox1 And CheckBox17 = True Then
Sheets("TARIM KREDİ BORCU").PrintOut , Sheets("ARICILIK").PrintOut
MsgBox "BAŞVURU BELGESİ YAZDIRILDI"
End If
Unload Me
End Sub
Private Sub UserForm_Activate()
CheckBox1.Value = True
End Sub

 

[Emir Hüseyin Çoban]

. . .

Merhaba.

İletilerinizin daha okunaklı ve anlaşılır olması için.
Kodlarınızı belirtirken Code tagları arasına yazmalısınız.

[CODE] Kodlarınız [/CODE] şeklinde.

. . .

 

[kelbasasimsirtarak]

bundan böyle kullanacağım.bilmiyordum kusura bakmayın.