ScrollBar прокрутка значений по листам

[staniiislav]

Доброго времени суток уважаемые знатоки!

написал макрос (просьба подсказать если что-то не так сделал):

Private Sub ScrollBar1_Change()
Dim r&, j&, lRow&
lRow = Sheets("Лист2").Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
r = ScrollBar1.Value
Cells(2, 3) = r - 1
Cells(1, 3) = lRow - 1
ScrollBar1.Max = lRow
ScrollBar1.Min = 2
For j = 1 To 10
    Cells(j + 2, 1) = Sheets("Лист2").Cells(r, j)
Next
Application.ScreenUpdating = True
End Sub

вроде все работает нормально если список (данные на лист2 заполнены больше чем две строки), но если удалить данные с 3 по 5 строки (оставить заполненным только заголовок и первою строку данных), то ScrollBar становится не активным, даже если наполнить еще одну или две строки ScrollBar, все равно не активен!!! И активировать его получается только когда запустить макрос ScrollBar вручную... Как эту беду можно исправить?
Спасибо за внимание, пример прикладываю

[DiemonStar]

Истина где-то здесь:

ScrollBar1.Max = lRow
ScrollBar1.Min = 2

когда у Вас остается 2 строки, то и max и min равны 2 - т.е. изменение скроллбара просто не происходит и ваш метод не вызывается. попробуйте границы скроллбара устанавливать в worksheet_change.

[staniiislav]

Сообщение от DiemonStar

Истина где-то здесь:



когда у Вас остается 2 строки, то и max и min равны 2 - т.е. изменение скроллбара просто не происходит и ваш метод не вызывается. попробуйте границы скроллбара устанавливать в worksheet_change.

спасибо за ответ DiemonStar, но а если диапазон будет изначально пуст полностью, ScrollBar тогда все равно будет не активен.

[DiemonStar]

Сообщение от staniiislav

спасибо за ответ DiemonStar, но а если диапазон будет изначально пуст полностью, ScrollBar тогда все равно будет не активен.

Проблема в том, что у вас изменение границ скролла завязано на срабатывание самого скролла. Т.е. если срабатывания скролла не будет, то и границы для скролла не изменятся. Вынесите изменение границ в событие изменения ячеек. Например:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [A:A]) Is Nothing Then
    R = Sheets("Лист2").Cells(Rows.Count, "A").End(xlUp).Row
    ScrollBar1.Max = IIf(R < 2, 2, R)
    ScrollBar1.Min = 2
  End If
End Sub

[staniiislav]

Сообщение от DiemonStar

Проблема в том, что у вас изменение границ скролла завязано на срабатывание самого скролла. Т.е. если срабатывания скролла не будет, то и границы для скролла не изменятся. Вынесите изменение границ в событие изменения ячеек. Например:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [A:A]) Is Nothing Then
    R = Sheets("Лист2").Cells(Rows.Count, "A").End(xlUp).Row
    ScrollBar1.Max = IIf(R < 2, 2, R)
    ScrollBar1.Min = 2
  End If
End Sub

Спасибо DiemonStar буду пробовать!