ctrl+home makrosu

[GursoyC]

Merhabalar,
en üst satırımın freezepanes olduğu bir sayfamda şöyle bir filtre uyguladığım bir düğmem var.
yalnız filtreyi uygulayınca aktif hücre çok aşağılarda kalıyor ve her seferinde ctrl+home yapmak zorunda kalıyorum.
bu filtreyi yaptıktan sonra kendisinin otomatik ctrl+home yapması için ne yapmam gerekir yardım eder misiniz.
İnternette bulduğum örnekleri uyguladım, hiçbirisi işe yaramadı.

ActiveSheet.Range("$A$1:$H$4996").AutoFilter Field:=5, Criteria1:="AÇIK"

İe yaramayan kodlardan birisi: (aslında kod işe yarıyor. A2 hücresini seçiyor ama ctrl+home'daki gibi sayfa oraya gitmiyor. sadece o hücre seçili halde ben yine A4000 hücresini görüyorum hala)

Cells(ActiveWindow.SplitRow + 1, ActiveWindow.SplitColumn + 1).Select

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod satırının ihtiyacınızı karşılaması lazım.
.

ActiveWindow.ActivePane.VisibleRange.Cells(1).Select

 

[GursoyC]

Ömer bey çok teşekkür ederim.
Gayet güzel oldu.
Saygılar.

 

[antonio]

Alternatif olsun.
Kodun altına aşağıdaki satırı ilave edebilirsiniz:

Application.ActiveWindow.ScrollRow = 1

 

[Ömer BARAN]

Ayrıca; ben sorunuzun en sonunda belirttiğiniz kod satırı ile sonuç alıyorum.
Bir sorun yok yani, hem ilk hücre seçili hale geliyor, hem de bu hücreyi ekranda görüyorum.

Cells(ActiveWindow.SplitRow + 1, ActiveWindow.SplitColumn + 1).Select

 

[GursoyC]

Filtrelenen satır sayısı ile ilgili bir durum olabilir.
Defalarca denedim, ben sonuç alamadım.
Sayın Antonio ve sizin verdiğiniz kodlar işe yarıyor ama.

Teşekkür ederim.

 

[Ömer BARAN]

Tekrar merhaba.

Bence kesin sonuca;
-- Sayın antonio'nun verdiği kod (önce) ile benim ilk cevabımda verdiğim kod (sonra) satırlarını birlikte kullanarak ulaşılabilir,
-- ya da belki SendKeys ("^{HOME}") şeklindeki kod satırı da çözüm olabilir..
.

 

[Korhan Ayhan]

Ben aşağıdaki kodu denediğimde olumlu sonuç aldım.

Sub Test()
    SendKeys ("^{HOME}")
End Sub

 

[GursoyC]

Maalesef Korhan bey'in çözümü yani SendKeys çözüm olmuyor. (yabancı forumlardan bulup uyguladığım çözümlerden birisi de oydu). Aynı şekilde aktif hücre A1 hücresi oluyor evet. Ancak ekranda halen A4000 hücresi görünüyor. A1 hücresinin cıvarını görmek için (yani manuel olarak ctrl+home yaptığımda gördüğüm bölgeyi görmek için) alt ok tuşuna basıp aktif hücreyi muhakkak değiştirmek gerekiyor.

uyguladığım ve kesin sonuç aldığım çözüm şu oldu:

Cells(ActiveWindow.SplitRow + 1, ActiveWindow.SplitColumn + 1).Select
ActiveWindow.ScrollRow = ActiveWindow.SplitRow + 1
ActiveWindow.ScrollColumn = ActiveWindow.SplitColumn + 1

tüm ilgilenen üstadlara saygılarımı sunuyorum.