Нужна помощь в написании макроса на вывод данных с накладной в таблицу

Пользователь

Сообщений: 2 Регистрация: 29.08.2017

29.08.2017 09:28:40

Привет, столкнулся с необходимостью написания макросов, а времени углубляться в изучение нет. Суть - нужно сделать так, чтобы данные с накладной (данные в которую будут постоянно вноситься) переносились в реестр, а также сама накладная сохранялась в отдельной экселевский файл. Как я вижу работу макроса, при введение данных в ттн-ку они оказываются в таблице (в левом верхнем углу), после этого кнопкой в реестр переводятся на лист реестр, а кнопкой сохранить, сохраняется выделенный фрагмент в отдельный файл с названием дата-номер. Заранее благодарен!

Прикрепленные файлы

пример.xlsx (42.5 КБ)

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#2 29.08.2017 09:43:13 Здесь помогают по конкретным вопросам. У Вас - ТЗ. Перенести в платный раздел.

dimetty Пользователь Сообщений: 2 Регистрация: 29.08.2017	#3 29.08.2017 09:46:04 НА форуме и по серьезнее задания делали)

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#4 29.08.2017 09:49:02 Правила: один вопрос - одна тема.

Ник Никитич

Пользователь

Сообщений: 87 Регистрация: 01.01.1970

30.08.2017 01:45:08

На первую кнопку вот так можно

Код

Sub Reestr()
Dim ar()
iclr = ActiveWorkbook.Sheets("Реестр").Cells(Rows.Count, 2).End(xlUp).Row
ar = ActiveWorkbook.Sheets("Лист1").Range("B1:B7").Value
ActiveWorkbook.Sheets("Реестр").Cells(iclr + 1, 1).Resize(, 7).Value = Application.Transpose(ar())
End Sub

На вторую, постараюсь завтра