Если форму разметить на лист1, а базу на лист2, то макрос:
Sub vvod()
Sheets("База").Select
Sheets("База").Activate
With
ActiveSheet
КонецСписок = .Range("B65536").End(xlUp).Row 'определяем № последней заполненой строки по столбцу B
.Cells(КонецСписок + 1, 1) =
КонецСписок ' пишем в базу № записи
Sheets("Форма").Cells(4, 1) = КонецСписок ' пишем в форму №
записи
.Cells(КонецСписок
+ 1, 2) = Sheets("Форма").Cells(4, 2) ' пишем в базу наименование
.Cells(КонецСписок
+ 1, 3) = Sheets("Форма").Cells(4, 3) ' пишем в базу количество
.Cells(КонецСписок
+ 1, 4) = Sheets("Форма").Cells(4, 4) ' пишем в базу цену
End With
Sheets("Форма").Select 'возврат в
форму
Sheets("Форма").Activate
End Sub
Скачать вложение Excel (XLS)