Создание макроса по добавлении строки с текущей датой

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание макроса по добавлении строки с текущей датой (Макросы Sub)

Controler

Дата: Суббота, 11.01.2014, 14:06 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

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

К сообщению приложен файл: 4662753.xls (39.0 Kb)

Ответить

RAN

Дата: Суббота, 11.01.2014, 14:51 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[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

[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Суббота, 11.01.2014, 17:35

Ответить

Controler

Дата: Суббота, 11.01.2014, 15:08 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Пишет ошибку и я так понимаю нужно заменить весь мой макрос?

Ответить

Controler

Дата: Суббота, 11.01.2014, 15:09 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Мой макрос такой:
Sub Ввод()
Range("B8:N8").Select
Selection.Copy
Sheets("Отчет").Select
Sheets("Отчет").Name = "Отчет"
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TODAY()"
Sheets("Статистика").Select
Range("B3:N6,H7,I7,J7,K7,L7,M7,N7").Select
Range("N7").Activate
Selection.ClearContents
Range("E12").Select
MsgBox ("Результаты запиши в журнал РПЦ по форме Л!")
Excel.Windows.Application.Quit
End Sub