Kaydırma çubuğu değiştiğinde kod çalışsın

[Muhammet Okumuş]

Arkadaşlar merhaba.
Dikey kaydırma çubuğu değiştiğinde kod çalışmasını sağlamak istiyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A18") = ActiveWindow.ScrollRow
End Sub

bu kod aktif hücre değiştiğinde çalışıyor. Bunu kaydırma çubuğu ile nasıl yapabiliriz.

 

[Muhammet Okumuş]

---Güncel---