Доброго дня, премодератор. прошу разместить новую тему. Название: Значение из ячейки в MsgBox по последней заполненной строке
Доброго дня, комрады!
Как заставить код искать последнюю заполненную ячейку не по столбцу "В" , а по массиву таблицы. Например (B2:P999) В приложенном примере в бокс должно попасть значение "25-007"
VBA знаю на уровне копипастера )) [vba]
Код
Sub КнопкаОкончание()
'Шаг 1: Объявляем переменные Dim LastRow As Long 'Шаг 2: Захват последнего использованного номера строки LastRow = Cells(Rows.Count, 2).End(xlUp).Row 'Шаг 3: Выбираем следующую строку вниз Cells(LastRow, 1).Offset(0, 0).Select 'Создаем месадж бокс MsgBox "ЗАПИСЬ В ЖУРНАЛЕ УСПЕШНО СОЗДАНА" & vbLf & " " & vbLf & "СКОРО БУДЕТ ОТОБРАЖАТЬСЯ НОМЕР НОВОЙ ЗАЯВКИ", vbInformation 'Шаг 4: Захват последнего использованного номера строки LastRow = Cells(Rows.Count, 2).End(xlUp).Row 'Шаг 5: Выбираем следующую строку вниз Cells(LastRow, 2).Offset(1, 0).Select End Sub
[/vba]
Доброго дня, премодератор. прошу разместить новую тему. Название: Значение из ячейки в MsgBox по последней заполненной строке
Доброго дня, комрады!
Как заставить код искать последнюю заполненную ячейку не по столбцу "В" , а по массиву таблицы. Например (B2:P999) В приложенном примере в бокс должно попасть значение "25-007"
VBA знаю на уровне копипастера )) [vba]
Код
Sub КнопкаОкончание()
'Шаг 1: Объявляем переменные Dim LastRow As Long 'Шаг 2: Захват последнего использованного номера строки LastRow = Cells(Rows.Count, 2).End(xlUp).Row 'Шаг 3: Выбираем следующую строку вниз Cells(LastRow, 1).Offset(0, 0).Select 'Создаем месадж бокс MsgBox "ЗАПИСЬ В ЖУРНАЛЕ УСПЕШНО СОЗДАНА" & vbLf & " " & vbLf & "СКОРО БУДЕТ ОТОБРАЖАТЬСЯ НОМЕР НОВОЙ ЗАЯВКИ", vbInformation 'Шаг 4: Захват последнего использованного номера строки LastRow = Cells(Rows.Count, 2).End(xlUp).Row 'Шаг 5: Выбираем следующую строку вниз Cells(LastRow, 2).Offset(1, 0).Select End Sub
Как заставить код искать последнюю заполненную ячейку не по столбцу "В" , а по массиву таблицы. Например (B2:P999)
[vba]
Код
Sub iMsgBox() Dim iLastRow As Long iLastRow = Range("B:P").Find("*", Range("B1"), xlValues, xlWhole, xlByRows, xlPrevious).Row MsgBox "ЗАПИСЬ В ЖУРНАЛЕ УСПЕШНО СОЗДАНА" & vbLf & Cells(iLastRow, "A") & vbLf & "СКОРО БУДЕТ ОТОБРАЖАТЬСЯ НОМЕР НОВОЙ ЗАЯВКИ", vbInformation End Sub
[/vba]
Цитата
Как заставить код искать последнюю заполненную ячейку не по столбцу "В" , а по массиву таблицы. Например (B2:P999)
[vba]
Код
Sub iMsgBox() Dim iLastRow As Long iLastRow = Range("B:P").Find("*", Range("B1"), xlValues, xlWhole, xlByRows, xlPrevious).Row MsgBox "ЗАПИСЬ В ЖУРНАЛЕ УСПЕШНО СОЗДАНА" & vbLf & Cells(iLastRow, "A") & vbLf & "СКОРО БУДЕТ ОТОБРАЖАТЬСЯ НОМЕР НОВОЙ ЗАЯВКИ", vbInformation End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
