Arama Yap Ve Filtrele - Microsoft Excel

Verilen alanda arama yapan ve arama sonuçlarını filtreleyen VBA kodu alternatifidir.

Kod


Option Explicit

Private Sub AramaYapVeFiltrele()
    Dim aranan As String
    Dim alan   As Range
    
    aranan = "Emel"
    Set alan = Range("A:A").Find(What:=aranan, LookIn:=xlValues)
    
    Application.Goto Reference:=Range(alan.Address), Scroll:=False
    Selection.AutoFilter Field:=1, Criteria1:="*" & aranan & "*"
End Sub

Etiketler

microsoft excel microsoft excel vba microsoft excel vba arama işlemleri microsoft excel vba filtreleme işlemleri