Sütün Seçerek Raporlama

[gcanlar2012]

Merhabalar,

Forumdan aldığım bir userform da değişiklikler yaparak kendime uyarladım.
Excel de 3 adet sayfa var.Veri sıkkulanılan ve rapor.Veri sayfasına girdiklerimi 10 kritere göre bulup rapor sayfasına getiriyor.Burda sorun yok.
Ama öyle bir durum varki isteğe bağlı olarak bazı sütünlar olacak bazıları olmayacak.bununla ilgili sorunum var.
Userforda checkbox la olabilir diye düşünüyorum ama mantığı kuramadım.Atıyorum A sütünü - b sütünu vs. tiklediklerimi a2 den yazmaya başlasın .Yardımlarınız için şimdiden teşekkür ederim.İlgili sub ekledim.ayrıca dosyayı da ekledim.


Private Sub CommandButton1_Click()
Sheets("RAPOR").Range("A2:m65536").ClearContents
If ComboBox1 = "" Then MsgBox "Acente Adı İçin Kriter Seçilmedi!", vbCritical, "Gökhan Canlar !": Exit Sub
If ComboBox2 = "" Then MsgBox "Market İçin Kriter Seçilmedi!", vbCritical, "Gökhan Canlar !": Exit Sub
If ComboBox3 = "" Then MsgBox "İl İçin Kriter Seçilmedi!", vbCritical, "Gökhan Canlar !": Exit Sub
If ComboBox4 = "" Then MsgBox "Kriter Seçilmedi!", vbCritical, "Gökhan Canlar !": Exit Sub
If ComboBox5 = "" Then MsgBox "Kriter Seçilmedi!", vbCritical, "Gökhan Canlar !": Exit Sub
If ComboBox6 = "" Then MsgBox "Kriter Seçilmedi!", vbCritical, "Gökhan Canlar !": Exit Sub
If ComboBox7 = "" Then MsgBox "Kriter Seçilmedi!", vbCritical, "Gökhan Canlar !": Exit Sub
If ComboBox8 = "" Then MsgBox "Kriter Seçilmedi!", vbCritical, "Gökhan Canlar !": Exit Sub
If ComboBox9 = "" Then MsgBox "Kriter Seçilmedi!", vbCritical, "Gökhan Canlar !": Exit Sub
If ComboBox10 = "" Then MsgBox "Kriter Seçilmedi!", vbCritical, "Gökhan Canlar !": Exit Sub
Satır = 2
DoEvents
For Y = 2 To Sheets("VERİ").Range("A65536").End(3).Row
If Sheets("VERİ").Cells(Y, 1) Like ComboBox1 And _
Sheets("VERİ").Cells(Y, 2) Like ComboBox2 And _
Sheets("VERİ").Cells(Y, 3) Like ComboBox3 And _
Sheets("VERİ").Cells(Y, 4) Like ComboBox4 And _
Sheets("VERİ").Cells(Y, 5) Like ComboBox5 And _
Sheets("VERİ").Cells(Y, 6) Like ComboBox6 And _
Sheets("VERİ").Cells(Y, 7) Like ComboBox7 And _
Sheets("VERİ").Cells(Y, 8) Like ComboBox8 And _
Sheets("VERİ").Cells(Y, 9) Like ComboBox9 And _
Sheets("VERİ").Cells(Y, 10) Like ComboBox10 Then
Sheets("RAPOR").Cells(Satır, 1) = Sheets("VERİ").Cells(Y, 1)
Sheets("RAPOR").Cells(Satır, 2) = Sheets("VERİ").Cells(Y, 2)
Sheets("RAPOR").Cells(Satır, 3) = Sheets("VERİ").Cells(Y, 3)
Sheets("RAPOR").Cells(Satır, 4) = Sheets("VERİ").Cells(Y, 4)
Sheets("RAPOR").Cells(Satır, 5) = Sheets("VERİ").Cells(Y, 5)
Sheets("RAPOR").Cells(Satır, 6) = Sheets("VERİ").Cells(Y, 6)
Sheets("RAPOR").Cells(Satır, 7) = Sheets("VERİ").Cells(Y, 7)
Sheets("RAPOR").Cells(Satır, 8) = Sheets("VERİ").Cells(Y, 8)
Sheets("RAPOR").Cells(Satır, 9) = Sheets("VERİ").Cells(Y, 9)
Sheets("RAPOR").Cells(Satır, 10) = Sheets("VERİ").Cells(Y, 10)
Sheets("RAPOR").Cells(Satır, 11) = Sheets("VERİ").Cells(Y, 11)
Sheets("RAPOR").Cells(Satır, 12) = Sheets("VERİ").Cells(Y, 12)
Sheets("RAPOR").Cells(Satır, 13) = Sheets("VERİ").Cells(Y, 13)
Satır = Satır + 1
End If
Next
Me.Label6.Caption = "Bulunan kayıt sayısı : " & Format(WorksheetFunction.CountA([A2:A65536]), "#,##0")
MsgBox "İşleminiz Tamamlanmıştır.", vbInformation, "Gökhan Canlar"
End Sub