Koşullara Bağlı Rapor makrosu

[neo]

:agla:
:dua: Sayfa 1 deki Verleri Sayfa 2 deki Değişkenlerine uygun olarak listelemek istiyorum yardımcı olursanız sevinirim dostlar
örnek dosyayıda gönderiyorum
Koşullara Bağlı Rapor makrosu

 

[xxrt]

Kod bilgin ne derece bilemiyorum ama kodlar şöyle.Ã?rneği ektedir.

Private Sub ComboBox1_Change()
Sheets("1").Select
TextBox2 = Cells(ComboBox1.ListIndex + 1, 2)
TextBox3 = Cells(ComboBox1.ListIndex + 1, 3)
TextBox4 = Cells(ComboBox1.ListIndex + 1, 4)
TextBox5 = Cells(ComboBox1.ListIndex + 1, 5)
TextBox6 = Cells(ComboBox1.ListIndex + 1, 6)
TextBox7 = Cells(ComboBox1.ListIndex + 1, 7)
TextBox8 = Cells(ComboBox1.ListIndex + 1, 8)
TextBox9 = Cells(ComboBox1.ListIndex + 1, 9)
TextBox10 = Cells(ComboBox1.ListIndex + 1, 10)
End Sub

Private Sub CommandButton1_Click()
Sheets("Rapor").Select
Range("b11").Select
ActiveCell.Formula = TextBox2
End Sub

Yazdır Butonuna bir tane örnek yazdım.Kendim geliştirirsin.Kolay gelsin.