Makroda Aktif Hücre değerini Filtre olarak kullanmak

[Namık Kemal]

Yeni makro kaydet butonuna bastım. Bulunduğum hücre değerini kopyaladım.
Başka sayfada filtre alanına yapıştırdım ve makroyu kaydettim.
Ancak makroyu başka hücrede tekrar çalıştırdığımda ilk kopyaladığım hücre içindeki değeri filtreliyor.

ActiveSheet.Range("$A$3:$E$149").AutoFilter Field:=1, Criteria1:= _
"AHMET"

Ben "AHMET" değeri yerine makro çalıştırırken bulunduğum hücrenin değerini almasını istiyorum.
Yardımcı olabilir misiniz?

 

[Ömer]

Merhaba,

"AHMET" yerine ActiveCell

yazarak deneyin.

.

 

[Namık Kemal]

Teşekkür ederim.

 

[Namık Kemal]

Filtre için kullanmak istediğim Aktif Hücre ile filtre farklı sayfalarda. ActiveCell seçeneğinde boş filtre çıkıyor.
Sayfa1 deki aktif hücreyi Sayfa2 deki filtreye nasıl uygulayabilirim?

 

[Korhan Ayhan]

Merhaba,

Dosyanıza boş bir modül ekleyin ve modüle aşağıdaki kodu uygulayın.

Sonra dosyanızı kayıt edip kapatıp açın. Açılışta "Sayfa1" isimli sayfa seçilip aktif hücre hafızaya alınır.

Sonra TEST isimli makro ile aktif hücre bilgisini istediğiniz gibi kullanabilirsiniz.

Option Explicit

Public Aktif_Hucre As Range

Sub AUTO_OPEN()
    Sheets("Sayfa1").Select
    Set Aktif_Hucre = ActiveCell
End Sub

Sub TEST()
    MsgBox Aktif_Hucre.Parent.Name & Aktif_Hucre.Address
End Sub