Нужен макрос, чтобы при нажатии на кнопку копировались суммированные значения на отдельную страницу со вставкой текущей даты и очисткой значений в таблице, для ввода следующих значений при следующем открытии,и чтобы с каждым нажатием кнопки создавалась ниже стоящая строка с скопированными данными и текущей датой. Во вложении пример файла. При нажатии кнопки у меня данные копируются, очищаются, но надо добавлять новые строки с текущей датой для статистики.
Нужен макрос, чтобы при нажатии на кнопку копировались суммированные значения на отдельную страницу со вставкой текущей даты и очисткой значений в таблице, для ввода следующих значений при следующем открытии,и чтобы с каждым нажатием кнопки создавалась ниже стоящая строка с скопированными данными и текущей датой. Во вложении пример файла. При нажатии кнопки у меня данные копируются, очищаются, но надо добавлять новые строки с текущей датой для статистики.Controler
Sub Ввод() Dim r As Range Set r = Sheets("Отчет").Range("B" & Rows.Count).End(xlUp) r.Offset(1) = Date r.Offset(1, 1).Resize(, 13).Value = Sheets("Статистика").Range("B8:N8").Value Sheets("Статистика").Range("B3:N6,H7:N7").ClearContents MsgBox ("Результаты запиши в журнал РПЦ по форме Л!") Application.Quit End Sub
[/vba]
[vba]
Код
Sub Ввод() Dim r As Range Set r = Sheets("Отчет").Range("B" & Rows.Count).End(xlUp) r.Offset(1) = Date r.Offset(1, 1).Resize(, 13).Value = Sheets("Статистика").Range("B8:N8").Value Sheets("Статистика").Range("B3:N6,H7:N7").ClearContents MsgBox ("Результаты запиши в журнал РПЦ по форме Л!") Application.Quit End Sub