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

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

Доброй ночи ,уважаемые гуру !

Просьба помочь,кто чем сможет .

Проблема : нужно составить журнал посещений с помощью макроса :

На листе Отметка работник должен выбирать свое ФИО и нажимать кнопку - Начало работы или Конец работы

На листе Журнал посещений должны отображатся все "клики" кнопок

То есть сейчас макрос копирует и вставляет в одни и теже ячейки ,а нужно ,чтоб вставляло при каждом нажатии в слеующую пустую строку

Буду благодарна за Ваши подсказки !

Файл во вложении

[Hugo121]

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

Но я бы делал вероятно так - у каждого сотрудника есть свой файл со своей кнопкой. Без выбора юзера (именной файл, за друга не кликнешь). Код под паролями, недоступен (можно вероятно с VBA Protect закрыть).
По нажатию кнопки данные пишутся во внешний текстовый (ну или xls) файл где-то в корпоративной сети. Просто дописываются в конец.
Этот файл всегда могут посмотреть кому положено, и не найдут те, кому не положено.
Может быть можно закрыть доступ средствами файловой системы, но тут я пас, не специалист (можно ли разрешить доступ коду/системе, но запретить юзеру?)
Проблема одновременного доступа маловероятна, но если вдруг будет конфликт, то можно показать msgbox с крестом и просьбой повторить.

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

Большое спасибо ,Hugo !!!

Я пока так глубоко не планировала - пока надо простой журнальчик на входе без всякой бумажной записи .

Теперь подумаю и о защите файлика или размещении на внешнем сетевом

[doober]

Сканер,сотруднику карточку -и никаких паролей.
Каждый сам за себя в ответе.

[IgorGO]

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

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

Еще раз доброго времени суток !

А можно ли дописать предыдущий код ,чтоб при нажатии кнопки Ок в сообщении - очищались проставленные данные в строке В - то есть ,чтоб другой работник начинал заполнение фактически с "чистого листа"

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

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

Суть не в этом ,это идет первым пунктом - просто сейчас на предприятии еще очень активно используют бумажные тетради (все запущено ((( ) ,которые любят часами проверять ,ища очередного "негодяя",нарушающего рабочуюю дисциплину

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

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

Я за сканер+штрих-кода тоже подумала + веб камеру добавить прямо на мониторе ,чтоб четко видели ))) (обычные камеры на предприятии уже давно стоят )

[Hugo121]

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

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

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

[doober]

Сообщение от Ирина Розанова

Добрый вечер,doober
Я за сканер+штрих-кода тоже подумала + веб камеру добавить прямо на мониторе ,чтоб четко видели ))) (обычные камеры на предприятии уже давно стоят )

Здравствуйте Ирина.
Это правильное решение.
У меня программа(писал для мебельной фабрики),не только учет рабочего времени вела,но и зарплату начисляла.
сначала много недовольных было.потом привыкли.Практиковалась система штрафов за опоздание и т.д