Auto Filtre 'yi Hücreden seçtirtmek...

[Rocken]

Sheets("vard").Select
Range("C6").Select
ActiveSheet.Range("$A$5:$AO$238").AutoFilter Field:=3, Criteria1:="1"
Range("B6:B237").Select
Selection.Copy
Sheets("01").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Kodun, AutoFilter Field:=3 kısmını X1 hücresinin değerinden seçtirmek istiyorum.
Yani:
X1 = 5 ise AutoFilter Field:=5 yazacak kodu arıyorum
Yardımcı olabilirseniz sevinirim.

 

[Muzaffer Ali]

Field:=3

yerine

Field:=Range("X1").value

yazın

 

[Rocken]

Çok sağolunuz.