Değişken Atanmış Süzme İşlemi

[yzu91]

Merhaba;

Yazdığım bir program var ama çok yavaş çalışıyor. Süzme ile bu programı hızlandırabilirim.

Aşağıdaki kodu makro kaydet ile çektim.


ActiveSheet.Range( Cells(1,1), Cells(Range(“a65536”).End(3).Row,3)).AutoFilter Field:=1, Criterial:= _

“=02.26*”, Operator:=x1And

“=02.26*” yazılı yere bir değişken atamak istiyorum. Yada bunun işini görebilecek bir kod.

Mümkün müdür acaba?

 

[Levent Menteşoğlu]

Değişkeni örneğin A1 hücresinden aldığınızı kabul edelim. Bu durumda,

"=02.26*" yerine "=" & range("A1") & "*" yazabilirsiniz.

 

[yzu91]

Çok sağolun. Günlerdir bunun nasıl yaparım diye uğraşıyordum. "" leri hep yanlış yerleştirmişim çok komplex düşünmüşüm.