Seçilen kritere göre kayıt aktarma

[Excelexcellent]

Merhaba arkadaşlar
Userform-Combobox'dan seçilen kritere uyan sayfa1 "D" ve "I" sütunlarındaki kayıtların sayfa2'ye aktarılması işlemini yapamadım.
Ekte gönderdiğim dosyada yapmaya çalıştığım işlem daha net anlaşılacaktır.
Yardımcı olursanız sevinirim. Teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde denermisiniz..

Option Explicit
 
Private Sub ComboBox1_Click()
Dim S1 As Worksheet
Dim c As Range
Dim sat As Long, son As Long
Dim ilkadres As Variant
Set S1 = Sheets("Sayfa2")
Application.ScreenUpdating = False
S1.Range("A2:B65536").ClearContents
sat = 1
son = [B65536].End(3).Row
    Set c = Range("G1:G" & son).Find(ComboBox1.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        ilkadres = c.Address
        Do
            sat = sat + 1
            S1.Cells(sat, "A") = Cells(c.Row, "D")
            S1.Cells(sat, "B") = Cells(c.Row, "I")
 
            Set c = Range("G1:G" & son).FindNext(c)
        Loop While Not c Is Nothing And c.Address <> ilkadres
    End If
 
Application.ScreenUpdating = True
End Sub

.

 

[Excelexcellent]

Ömer bey
Tam istediğim gibi yardımınız için teşekkürler.