Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как макросом последовательно заполнить ячейки временем?, Как сделать макрос для регистрации время в определённом столбце при нажатии кнопки в следующую пустую ячейку.
 
Всем, добрый день!
Подскажите, пожалуйста, как мне сделать кнопку, чтобы при нажатии её данные фактического время вносились в нужный столбец, последовательно в пустую ячейку при каждом нажатии.
Пока у меня получилось только так:

Sub Push2()
ActiveCell.Value = TimeValue(Now)
ActiveCell.Offset(1, 0).Activate
Dim NextRow As Long
NextRow = Range("A65536").End(xlUp).Row + 1
Cells(NextRow, 1).Select
Selection.Copy
End Sub

Заранее благодарю за помощь!
 
CHITATILLO, оформите код тегами <...>
измените название темы согласно правил
Мое название: последовательное заполнение ячеек датами
Код
Private k&

public sub iAdd()
   k&=k&+1
   cells(k&,1)=vba.date
end sub 
Изменено: ivanok_v2 - 4 Сен 2018 15:22:23
 
Название темы поменял.
CHITATILLO, код следует оформлять соответствующим тегом. Ищите такую кнопку (см. скрин) и исправьте своё сообщение.

ivanok_v2,  требуется только время, а у Вас Now: дата + время.
Тег VBA.jpg (19.2 КБ)
 
CHITATILLO, зачем столько писать, если всё делается в одну строчку?
Код
Sub Push2()

Cells(Cells(Rows.Count,1).End(xlUp).Row+1,1).Value=Time

End Sub
Изменено: StoTisteg - 4 Сен 2018 15:25:08
 
StoTisteg, Спасибо Вам огромное!!! всё сразу заработало)))
Страницы: 1
Читают тему (гостей: 1)
Наверх