Строка для ввода данных с копированием в конец таблицы

[Dimas77]

Здравствуйте всем активным участникам форума!
Прошу помочь с простой задачей.
Необходим макрос который из строки (№2) для ввода данных содержащую ячейки с проверкой данных (зависимые списки) копировать в конец таблицы.
После этого строка для ввода данных очищается для ввода следующих данных.
Процесс запускается кнопкой "Создать"
Благодарю за помощь.
проба форма ввода.rar

[EducatedFool]

Процесс запускается кнопкой "Создать запись"

У меня нет такой кнопки...

Может, файл прикрепите?

[Dimas77]

у меня тоже нет)
файл прикрепил выше

[kuklp]

И у меня. Нет. Зато сальдо считается.

[Dimas77]

В книге есть несколько листов. (вложенный файл с одним листом) Листы однотипны по своей структуре. Каждый лист заполняется пользователями (каждый свой). Доступ пользователям к своим листам организован макросом по паролю.

Некоторые пользователи из за низкой квалификации допускали ошибки при вводе новых данных.

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

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

НЕОБХОДИМО:
С помощью макроса строка с новыми данными копируется в конец (до ИТОГОВ) таблицы и очищается для ввода новых данных.

Уважение и скромную благодарность (200 яндекс - сейчас на кошельке) гарантирую

[Dimas77]

Спасибо уже половину сделал.

[IgorGO]

Sub AddData()
  Dim r As Long
  If WorksheetFunction.CountBlank(Range("A2:I2")) > 4 Then
    If MsgBox("Данных маловато...  Добавить как есть?", vbCritical + vbYesNo, _
    "Выполнение приоставновлено!") = vbNo Then Exit Sub
  End If
  r = WorksheetFunction.Count(Range("A4:A10000")) + 4
  Rows(r).Insert shift:=xlDown
  Range("A2:I2").Copy Destination:=Cells(r, 1)
  Range("A2:I2").ClearContents
End Sub

[Dimas77]

Игорь! Благодарность перевел.

Еще один момент в код:

можно ли добавить проверку формата данных
чтобы при вводе ячейку А2 (ДАТА), код проверял что это формат даты.
Исключаю возможные риски...

Спасибо.

[IgorGO]

и Вам спасибо, замените на этот

Sub AddData()
  Dim r As Long, d As Date
  On Error Resume Next
  d = CDate(Cells(2, 1))
  If Err.Number > 0 Or Cells(2, 1) = "" Then
    Err.Clear
    MsgBox "Внесите корректную дату в ячейку А2", _
    vbCritical + vbOKOnly, Cells(2, 1) & " - это не ДАТА!!!"
    Cells(2, 1).Select
    Exit Sub
  End If
  If WorksheetFunction.CountBlank(Range("A2:I2")) > 4 Then
    If MsgBox("Данных маловато...  Добавить как есть?", vbCritical + vbYesNo, _
    "Выполнение приоставновлено!") = vbNo Then Exit Sub
  End If
  r = WorksheetFunction.Count(Range("A4:A10000")) + 4
  Rows(r).Insert shift:=xlDown
  Range("A2:I2").Copy Destination:=Cells(r, 1)
  Range("A2:I2").ClearContents
End Sub