aktif hücre değerine göre başka sütunda süzme

[Erdem Akdemir]

Arkadaşlar merhaba,

b sütunundaki aktif hücre değerine göre a sütununda içerir mantığıyla makro yazdım ama istediğim olmadı

kodu nasıl değiştirmem gerekir.

Sub suz()
ActiveSheet.Range("$A$1:$B$4").AutoFilter Field:=1, Criteria1:="=*  ActiveCell   * ", _ 
Operator:=xlAnd
End Sub

 

[acolkesen1]

Merhaba,
Böyle bir şey mi istiyordunuz?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SÜZ()
    Range("A1").AutoFilter Field:=1, Criteria1:="=*" & ActiveCell & "*"
End Sub

 

[Erdem Akdemir]

cevap veren herkese teşekkür ederim