Userfrom hakkında

[akmes]

Kolay gelsin

Ekteki dosyada da anlaşılacağı gibi userfrom yardımı ile rapor almak istiyoruz.
Formül ve kod konularında bilgimiz az olduğu için bu konuda yardımınızı rica ediyorum.İlginiz için şimdiden teşekkür ederiz.

 

[akmes]

Ben userfrom bölümüne bu siteden incelediğim kadarı ile bazı kodlar buldum ama olmadı.
Nerede hata yapıyorum?

Option Explicit
Option Base 1

Private Sub ComboBox1_Click()
Sheets("Sayfa2").Range("c11") = ComboBox1.Text
UserForm_Initialize
End Sub
Private Sub CommandButton1_Click()
If ComboBox1 <> "" Then

With Sheets("Sayfa2")
.Range("a1").AutoFilter Field:=3, Criteria1:=ComboBox1
If .Range("a65536").End(3).Row > 1 Then
.Range("a1:g" & .Range("a65536").End(3).Row).Copy ListBox1
End If
.Range("a1").AutoFilter Field:=3
End With

End If
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 5

End Sub