Makro filtre kriterine değişken atama

[tactless]

ActiveSheet.Range("$B$2:$H$543").AutoFilter Field:=7, Criteria1:= _
"Ankara"

Ankara yazan kısıma değişken atamak istiyorum. Nasıl yapabilirim.?

Hücrede yazan değere göre örn: Y14 hücresinde izmir yazıyorsa filtrelemede bu seçilmeli.

Sub bolge()
Dim i As Long

i = Worksheets("AtmRp").Range("x14")

If i = 1 Then
ActiveSheet.Range("$B$2:$H$543").AutoFilter Field:=7, Criteria1:= _
"Ankara"
Else
ActiveSheet.Range("$B$2:$H$543").AutoFilter Field:=7
End If
End Sub

Yardımlarınız için teşekkürler.

 

[Murat OSMA]

"Ankara" yerine, değişkeni (aramak istediğiniz ilin olduğu hücre) yazacağınız hücreyi yazın. Örneğin; Range("A1").Value

Ayrıca sitede AutoFilter yazıp aratırsanız; daha geniş bilgiye sahip olabilirsiniz...

 

[tactless]

Üstad çok teşekkürler.

 

[Murat OSMA]

Rica ederim, iyi günler...