Filtreli Sayfada ilk Dolu Satıra Çıkma

[Tarikkk_]

herkese merhabalar. alttaki makroyu kullanarak butonla alttaki son satıra inmekteyim

Sub Ekstre_Alta_İn()
SonSatır = Range("B65000").End(xlUp).Row
Range("B" & SonSatır).Select
End Sub

bu alttaki makroyuda B6 hücresinde yani tablomdaki ilk dolu satıra çıkmak kullanmaktayım
Sub Ekstre_Üste_Çık()
Range("B6").Select
End Sub

şimdi gelelim asıl konuya üstte çıkmak için kullandığım B6 hücresi sayfada bir filtreleme yapıldığında kaybolyor bu durumda sayfada filtreleme varsa üste çıkamıyorum bunun için nasıl bir kod kullanabileceğim konusunda yardımlarınıza ihtiyacım var şimdiden çok teşekkür ederim.

 

[Trilenium]

Kaybolan nedir?

 

[Seceren]

Deneyiniz.

Sub The_top()
    ActiveWindow.ScrollRow = 1
End Sub

 

[Tarikkk_]

Deneyiniz.

Sub The_top()
    ActiveWindow.ScrollRow = 1
End Sub

tam olarak istediğim şey ama kodun anlamını merak ettim aktif pencere gibi birşeyler sanki ama tam olarak bizi nereye götürüyor = 1 ne anlama geliyor acaba

 

[Seceren]

Rakamı değiştirip deneyiniz.. Bozulmaz korkmayın..

 

[Tarikkk_]

Rakamı değiştirip deneyiniz.. Bozulmaz korkmayın..

anladım rakamı değiştirincede aynı işi görüyor pek birşey farketmiyor çok teşekkür ederim

 

[Seceren]

Rica ederim.
Birde şuna dikkat edersen, Türkçe karakter sorun çıkarta biliyor.. "Sub Ekstre_Üste_Çık()"

 

[Seceren]

Burdaki numarayı kendine göre değiştirip dene, ikisi de sana lazım olur diye düşündüm..

Sub Bottom()

    ActiveWindow.SmallScroll Down:=178
End Sub