Спуск в самый низ таблицы на кнопку VBA

astepaa Пользователь Сообщений: 49 Регистрация: 02.02.2025	#1 07.02.2025 10:44:24 Добрый день! Если таблица около 10000 строк как мне прописать код в кнопке при нажатие на неё спуститься до последней заполненной ячейки A1:A9678? Изменено: astepaa - 07.02.2025 10:46:27

Sanja

Модератор

Сообщений: 19119 Регистрация: 10.01.2013

07.02.2025 10:47:30

Код
Sub LastCellSelect() With ActiveSheet .Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Select End With End Sub

Согласие есть продукт при полном непротивлении сторон

astepaa

Пользователь

Сообщений: 49 Регистрация: 02.02.2025

07.02.2025 10:57:00

Sanja, Ещё один вариант нашёл

Код

Private Sub UpDown1_Click()
    
    If UpDown1.Caption = "Вниз" Then
        UpDown1.Caption = "Наверх"
        ActiveWindow.ScrollColumn = 1
        ActiveWindow.ScrollRow = Range("D1").Value (в этой ячейки формула СЧЁТЗ столбца A)
    Else
        UpDown1.Caption = "Вниз"
        ActiveWindow.ScrollColumn = 1
        ActiveWindow.ScrollRow = 1
    End If

End Sub

astepaa Пользователь Сообщений: 49 Регистрация: 02.02.2025	#4 07.02.2025 10:57:37 ТЕМА ЗАКРЫТА! Sanja, СПАСИБО!