ScrollBar kullanımı

[Yesilyurtlu]

Üstadım;
A4 : Q62 satır aralığında ScrollBar kullanarak satırı genişletip daraltmak istiyorumç
ardımcı olabilir misiniz?

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ScrollBar1_Change()
Dim sat As Integer
On Error Resume Next
    For sat = 4 To 62
        Cells(sat, "a").RowHeight = ScrollBar1
    Next
End Sub

 

[Yesilyurtlu]

Ziya Abi Teşekkür ederim
Ancak Aniden daralıyor. Bunu santim santim yavaş yavaş yapabilir miyiz?

 

[uzmanamele]

Merhaba

syn N.Z. Hiçdurmaz'ın örneğine küçük bir katkı yaptım, işinizi görür mü?