Aktif hücrenin bulunduğu satır daima ekranın ortasına getirilebilir mi?

[dEdE]

Merhabalar,

Bir excel sayfasında aktif hücrenin bulunduğu satırın daima ekranın ortasında olması sağlanabilir mi?

Yaptığım bir çalışmada (http://www.excel.web.tr/attachment.php?attachmentid=54201&d=1229369218) ekranda bulunan nesnenin ve aktif hücrenin hep ekranın ortasında kalmasını istiyorum. Bu çalışmada satır numarasından hareketle birşeyler yaptım ama bu kodlar ekran çözünürlüğünden, satır yüksekliğinden ve açılan araç çubuklarından etkileniyor.

Eğer aktif hücrenin bulunduğu satırı sürekli ekranın ortasında tutabilirsem (scroll ? Belki de işin içine ekran çözünürlüğünü de karıştırmalıyım?) satırı referans alarak sorunu çözerim diye düşünüyorum.

Ya da ekranda görüntülenen ilk ve son satırın satır numaraları bulunabilir mi?
Bu konuda yardım ve önerilerinizi bekliyorum

Saygılar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ÜST_SATIR As Long, AKTİF_SATIR As Long, SATIR_SAY As Long
    ÜST_SATIR = ActiveWindow.ActivePane.ScrollRow
    AKTİF_SATIR = Target.Row
    SATIR_SAY = Windows(1).VisibleRange.Rows.Count
    If ÜST_SATIR <= AKTİF_SATIR Then
    ActiveWindow.SmallScroll Down:=AKTİF_SATIR - ÜST_SATIR - (SATIR_SAY / 2)
    End If
End Sub

 

[dEdE]

Teşekkürler Sayın Ayhan,

Yazdığınız kod aşağı satırlarda gayet gözel çalışıyor, fakat yukarı satırlarda sorunlu. Örneğin 77. satıra tıkladığımızda 60. satır ilk satır oluyor. Bu durumda iken ilk satıra (60) tıkladığımızda hiçbir tepki vermiyor. Halbu ki bu durumda da 60. satır ortaya gelmeli.

Yarın bu kodlar üzerinde biraz çalışmam gerekecek.
Saygılar.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[dEdE]

Teşekkürler,
Bende, şimdi size hatayı bulduğumu söyleyecektim.