МАКРОС СО СМЕЩЕНИЕМ EXEL 2003

[Ирина Розанова]

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

Ответ на
"А можно ли дописать предыдущий код..."
Можно.
Но зачем это всё?
И тогда прежний код можно заменить на просто это:

Sub Кнопка2_Щелчок()
    With Sheets("журнал посещения")
        .Range("B5").Value = Range("B3").Value
        .Range("D5").Value = Now
    End With
    MsgBox "Записано!", vbInformation
End Sub

И зачем тогда вообще стирать и высчитывать позицию ввода?

Добрый вечер,Hugo

Никого не хотела обидеть

Возможно ,я не правильно обьяснилась - первый код мне абсолютно подходит - к нему я планировала добавить еще кнопку Очистить ,чтоб все очищала .

Обьясняю как задумала :

Работников на предприятии около 100 .Приходит первый - выбирает свое ФИО - счелкает - нажимает ОК - и все очищается (его данные уже на листе журнала).Приходит второй - и видит уже пустую строку ,где надо выбирать уже свое ФИО и т.д.Как-то так планировала.

Вот зачем очистка после ОК нужна была - тогда второй кнопки не надо .Но я в этом пока не сильна и по этому спрашивала повторно

[Hugo121]

Да я и не обижен
Ну понятно.
Тогда думаю несложно сделать так - при нажатии ОК ещё параллельно в определённую ячейку ставится текущая дата.
А код в начале работы проверяет - если в этой ячейке уже есть текущая дата, то нужно только дополнять (что уже готово). Ну а если дата другая - тогда сперва всё очищаем, затем дополняем.
Хотя что именно нужно очищать - не понятно
Ну не журнал ведь?

[Ирина Розанова]

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

Да я и не обижен
Ну понятно.
Тогда думаю несложно сделать так - при нажатии ОК ещё параллельно в определённую ячейку ставится текущая дата.
А код в начале работы проверяет - если в этой ячейке уже есть текущая дата, то нужно только дополнять (что уже готово). Ну а если дата другая - тогда сперва всё очищаем, затем дополняем.
Хотя что именно нужно очищать - не понятно
Ну не журнал ведь?

Чисто интуитивно думаю,что надо к первому коду что-то в конце добавить
,чтоб после нажатия на сообщении Ок - стирались ячейки В3(Работник);D3 (Начало работы) и Е3(Конец работы).Только чтоб "стирание" было привазано к нажатию ОК на кнопке сообщения (когда выбивает "Записано" - нажимаем ОК - и данные в ячейках стирются)

Sub Кнопка2_Щелчок()
Dim r As Range
Set r = Sheets("журнал посещения").Range("B" & Rows.Count).End(xlUp).Offset(1)
r.Value = Range("B3").Value
r.Offset(, 2) = Now
MsgBox "Записано!", vbInformation
End Sub

[Hugo121]

Ну в общем "записано" я вывел только для того, чтоб было понятно, что кнопка нажалась и код отработал
Работника нужно стирать - пусть каждый сперва себя выберет - ну и кодом нужно проверить, что там не пусто.
Ну а для начала/конца я предполагал, что будут две разные кнопки., соответственно два похожих, но разных кода.
А D3 (Начало работы) и Е3(Конец работы) думаю не нужны - пусть пишется конкретное время нажатия кнопки.
Ну разве чтоб показать, сколько сейчас времени (а то вдруг системное перевели...).
Хотя по общей таблице сразу будут видны такие косяки/махинации.