-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Veri Listeleme Yrd.
- Konbuyu başlatan ayalcin27
- Başlangıç tarihi
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,239
- Excel Vers. ve Dili
- Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Dosyanız ekte.
Kod:
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