Kriter Sorunu

[cavanoos]

Merhaba arkadaşlar;

Sub Stok_Ara()
'
' Stok_Ara Makro
'
Range("J1").Select
Selection.Copy
Selection.AutoFilter Field:=8, Criteria1:="=Z06-14205", Operator:=xlAnd
End Sub

Yukarıdaki makromda Z06-14205 stok kodunu J1 den kopyalayıp,filtrede arama yaptırıyorum.Sorun şu ki J1 deki stok kodunu değiştirip tekrar makroyu çalıştırdığımda yine eski stok kodunu buluyor.

Criteria1 bölümüne ne yazmalıyım ki J1 sütunundan kopyalanan değeri arasın ?

Arkadaşlar çözüm önerilerinizi bekliyorum...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki ifadeyi kullanabilirsiniz.

Criteria1:= Range("J1")

 

[cavanoos]

Teşekkür ederim.Sorunum çözüldü...