makro kullanarak yapılan süzgeç sorunu

[ozgur1122334455]

a sütununda bulunan cok miktarda veriyi süz yöntemi ile ayrıştırabiliyorum ancak bunun makro kaydet kullanarak yaptığımda

örn: süz kısmıda 10** ile başlayanları seç dediğimde hepsini seçiyor. ancak makroyu kaydettikten sonra daha önce olmayan mesela 1015/zzz ürününü makro kısmında düzeltme ile eklemeden seçmesini sağlıyamıyorum.

yani 10** dediğimde o andaki bütün 10.... ile başlayan ürünlerin seçilmesini istiyorum bu konuda yardımcı olabilirseniz çok sevinirim.

şuan kullandığım kod
Klavye Kısayolu: Ctrl+Shift+U
'
ActiveSheet.Range("$A$1:$L$18304").AutoFilter Field:=5, Criteria1:=Array( _
"1011/asd", "1012/sdf", "1015/ert", "1051/tyu"), Operator:= _
xlFilterValues
Range("B9").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste

 

[Orion1]

Buyurun.

ActiveSheet.Range("$A$1:$L$18304").AutoFilter Field:=5, Criteria1:="10*"

 

[ozgur1122334455]

Çok teşekkürler hocam. Birde birden fazla olursa nasıl ekliyecez ben denedim amcak hata verdi mesela 10** yanına 11** 12** gibi

 

[Orion1]

Çok teşekkürler hocam. Birde birden fazla olursa nasıl ekliyecez ben denedim amcak hata verdi mesela 10** yanına 11** 12** gibi

Buyurun.
"1*"

 

[ozgur1122334455]

ya 21** olursa (kusura kalmayın çok sordum)

 

[Orion1]

ya 21** olursa (kusura kalmayın çok sordum)

o zaman soru sorduğunuz dizideki gibi yapın.

 

[ozgur1122334455]

Çok Teşekkürler

 

[Orion1]

yada her bir değer için süzüp boş bir sayfaya bir yere yapıştırırsanızda olur.