Scrollbar pozisyonunu güncelleme

[petitjoueur]

arkadaşlar mevcut gelen scrollbarın pozisyonunu değiştirdikçe ekranda MsgBox ile o pozisyonu nasıl yazdırabilirim?

 

[GursoyC]

Scrollbar'ın change olayına şunu yazın.
MsgBox (ScrollBar1.Value)

 

[petitjoueur]

Scrollbar'ın change olayına şunu yazın.
MsgBox (ScrollBar1.Value)

O kısmı nasıl yapacağımı anlamadım. Scrolla nasıl change vereceğim?

 

[GursoyC]

Vba kısmına girip scrollbar'ın üzerine çift tıkladığınızda change olayı açılır.

 

[YUSUF44]

Sanıyorum bahsedilen scrollbar, userformda değil de sayfada mevcut olan excelin standart scrollbarı.

 

[petitjoueur]

Sanıyorum bahsedilen scrollbar, userformda değil de sayfada mevcut olan excelin standart scrollbarı.

Doğrudur. Form elemanı olan değil bahsettiğim. Exceldeki yerleşik gelen scrollbar değişimi ile yapmak istiyorum. Active ile sayfa açıldığında alıyorum konumunu sadece, ama scroll değiştikçe hücre değerini güncelleyemiyorum.

 

[YUSUF44]

Hücre değeri derken hangi hücre(ler)den bahsediyorsunuz?

 

[ÖmerFaruk]

Probleminizi çözmenizde yardımcı olacağını düşünüyorum

Sub SolUstHucre()
Dim MyWindow As Window
Dim TopRow As Long
Dim TopCol As Long
    'Sol üstteki hücrenin satır ve sütun numaralarını bulabilirsiniz.'
    Set MyWindow = Windows(1)
    TopRow = MyWindow.VisibleRange.Cells.Row
    TopCol = MyWindow.VisibleRange.Cells.Column
    MsgBox "Sol Üst Satır No: " & TopRow & vbCrLf & "Sol Üst Kolon No: " & TopCol
End Sub