Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Вставить данные в последнюю ячейку в строке
 
Доброго времени суток, подскажите как вставить программно текст "готово" в последнюю строку 3 столбца.
Изменено: balagancha - 17 Фев 2020 03:18:43
 
Вероятно так:
Код
Private Sub cb1_Click()
x = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(x, 3) = "готово"
ActiveSheet.Cells(x, 3).Interior.Color = 65535
End Sub
 
GRIM, да так нужно, огромное спасибо Вам.
 
Доброго времени суток,

Немного доработал, чтобы также определял последний заполенный столбец:
Код
Sub insert_text()
        x = ActiveSheet.UsedRange.Find("*", , xlValues, xlWhole, , xlPrevious).Row
        y = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
        ActiveSheet.Cells(x + 1, y) = "готов"
        ActiveSheet.Cells(x + 1, y).Interior.Color = 65535
End Sub
Страницы: 1
Читают тему (гостей: 1)
Наверх