Otomatik süzgeçle ilgili ....

[Mciritci84]

Arkadaşlar .. Ben suzgeçte en bastakı yazıyı secmek ıstıyorum .. Yanı (Costum...)'un altında o anda ne varsa onu secmek istiyorum

Tabi bunu bir makroıyla yapmam lazım.....

 

[N.Ziya Hiçdurmaz]

Sub test()
liste = InputBox("değeri giriniz")
Range("b2").Select
ActiveCell.AutoFilter field:=1, Criteria1:=liste & "*"
End Sub