Veri Listeleme Yrd.

[ayalcin27]

Ekteki dosyada gerekli açıklamalar mevcut yardımcı olabilirseniz sevinirim.Tşk.

 

[Orion1]

Dosyanız ekte.

Sub suz()
Range("F5:H65536").ClearContents
Range("A1").AutoFilter Field:=2, Criteria1:="=*" & Range("H1").Value & "*", Operator:=xlAnd
Range("A2:C" & Cells(65536, "B").End(xlUp).Row).CurrentRegion.Copy
Range("F5").PasteSpecial
Range("A1").AutoFilter
End Sub