Süzülen verileri listboxa aktarma

[HASAN40]

Günaydın,

Aşağıdaki kodlar ile Sayfa1 de süzdüğüm verileri Sayfa3 yapıştırıyorum ve buradan da listboxa aktarmaya çalışıyorum ancak başaramadım. Yardımcı olabilirmisiniz? Combobox dan seçilen kritere göre süz botunu ile bu işlemi gerçekleştirmeye çalışıyorum :/

Private Sub ComboBox1_Enter()
    ComboBox1.Value = ""
End Sub
Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Me.Hide
    UserForm2.Show 0
    Application.Wait (Now + TimeValue("0:00:01"))
    Sheets("Sayfa1").Visible = True
    Sheets("Sayfa2").Visible = True
    Sheets("Sayfa3").Visible = True
    If ComboBox1.Value <> "TÜMÜ" Then
        Sheets("Sayfa1").Select
        Sheets("Sayfa1").Range("A:D").Select
        Selection.AutoFilter
        ActiveSheet.Range("$A$1:$D$11").AutoFilter Field:=1, Criteria1:=ComboBox1.Value
        Sheets("Sayfa1").Range("a:d").Copy
        Sheets("Sayfa3").Select
        Sheets("Sayfa3").Range("a1").Select
        ActiveSheet.Paste
        ListBox1.RowSource = "Sayfa3!a2:d" & Sheets("Sayfa3").Cells(Rows.Count, "A").End(3).Row
    Else
        Sheets("Sayfa1").Select
        Sheets("Sayfa1").Range("A:D").Select
        Selection.AutoFilter
        Sheets("Sayfa1").Range("a:d").Copy
        Sheets("Sayfa3").Select
        Sheets("Sayfa3").Range("a1").Select
        ActiveSheet.Paste
        ListBox1.RowSource = "Sayfa3!a2:d" & Sheets("Sayfa3").Cells(Rows.Count, "A").End(3).Row
    End If
        Sheets("Sayfa1").Visible = False
        Sheets("Sayfa2").Visible = False
        Sheets("Sayfa3").Visible = False
    Unload UserForm2
    UserForm1.Show
    Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Activate()
    ComboBox1.Value = "İSİM SEÇİNİZ"
    ListBox1.RowSource = "Sayfa1!a2:d" & Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row
    ComboBox1.RowSource = "Sayfa2!a1:a" & Sheets("Sayfa2").Cells(Rows.Count, "A").End(3).Row
End Sub

 

[HASAN40]

Merhaba;

Sorunumu aşağıdaki kod dizisiyle çözdüm Tabi ki buradaki uzmanlarımızın çalışmalarından esinlenerek.

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Sheets("Sayfa3").Cells.Delete
    Me.Hide
    UserForm2.Show 0
    Application.Wait (Now + TimeValue("0:00:01"))
    Sheets("Sayfa1").Visible = True
    Sheets("Sayfa2").Visible = True
    Sheets("Sayfa3").Visible = True
    If ComboBox1 <> "TÜMÜ" Then
        Sheets("Sayfa1").Select
        Sheets("Sayfa1").Range("A1:D" & Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row).AutoFilter Field:=1, Criteria1:=ComboBox1
        Sheets("Sayfa1").Range("A1:D" & Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row).Copy
        Sheets("Sayfa3").Select
        Sheets("Sayfa3").Range("a1").Select
        ActiveSheet.Paste
    Else
        Sheets("Sayfa1").Select
        Sheets("Sayfa1").Range("A1:D" & Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row).AutoFilter Field:=1
        Sheets("Sayfa1").Range("A1:D" & Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row).Copy
        Sheets("Sayfa3").Select
        Sheets("Sayfa3").Range("a1").Select
        ActiveSheet.Paste
    End If
        Sheets("Sayfa1").Visible = False
        Sheets("Sayfa2").Visible = False
        Sheets("Sayfa3").Visible = False
    Unload UserForm2
    UserForm1.Show
    Sheets("Sayfa1").Range("A1:D" & Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row).AutoFilter
    Application.ScreenUpdating = True
End Sub