Aktif Satırı Ekrana Ortala

[hukumran1]

O anda aktif olan hücre örneğin, A10000 ise A10000 i ekrana ortalayacak kadar kaydırma(scrol) yaptırmak istiyorum. VBA ile mümkün müdür?

 

[Korhan Ayhan]

Linki inceleyiniz.

Aktif satır ekranın ortasında görünebilir mi?

 

[hukumran1]

Linki inceleyiniz.

Aktif satır ekranın ortasında görünebilir mi?

Bunu bir makronun sonuna ekleyince çalışmadı. Sayfa alanına ekleyince de makrodan sonra devreye girmiyor.

Ekte gönderdiğim Excel belgesinde temizle adlı makroyu çalıştırınca dim ile başlangıçtaki hücreye dönüyor ama o hücre ekrana gelinceye kadar scrol yapmıyor.

 

[Korhan Ayhan]

Aşağıdaki kodu "Sayfa1" isimli sayfanızın kod bölümüne uygulayıp deneyiniz.

Hücreler üzerinde oklarla gezindiğinizde aktif satır sürekli ekranın ortasında konumlanacaktır.

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

 

[hukumran1]

Aşağıdaki kodu "Sayfa1" isimli sayfanızın kod bölümüne uygulayıp deneyiniz.

Hücreler üzerinde oklarla gezindiğinizde aktif satır sürekli ekranın ortasında konumlanacaktır.

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

Çok teşekkür ederim. İşimi görüyor.