Arama makrosu hakkında yardım

[serkanım]

Merhaba Değerli Üstadlar
Arama ile ilgili bir makroya ihtiyacım var.Dosyaya açıklama olarak yazdım.Yardımcı olabilirmisiniz.

Teşekkürler

 

[mancubus]

UserForm1'in kod modülüne

Private Sub UserForm_Initialize()
     
    With Sayfa2
        ComboBox1.RowSource = "'" & .Name & "'!" & .Range("A2", .Range("A65536").End(xlUp)).Address
    End With
     
End Sub



Private Sub ComboBox1_Change()

    Dim syf1 As Worksheet, syf3 As Worksheet
    Dim ssat As Long
    
    Set syf1 = Worksheets("Sayfa1")
    Set syf3 = Worksheets("Sayfa3")
    
    syf1.Range("A6:A65000").ClearContents
    
    With syf3
        ssat = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
        For i = 2 To ssat
            If Application.CountIf(.Range("E" & i & ":H" & i), ComboBox1.Value) > 0 Then
                syf1.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = .Range("A" & i).Value
            End If
        Next
    End With

End Sub