Microsoft Excel - макрос для копирования данных накладной [закрыто]

<!-Короче говоря, мы строим полностью настраиваемую базу данных с поддержкой макросов и систему счетов-фактур. В настоящее время нам удалось настроить макросы для добавления новых клиентов, поиска существующих клиентов, создания счета-фактуры с всплывающим окном для ввода номера клиента, который автоматически заполняет информацию о клиентах в счете-фактуре, кнопка для добавления SKU продукта, который автоматически заполняет описание и цены.

главный вопрос у нас, кажется, есть возможность создать кнопку Сохранить счет, которая копирует данные ячейки из определенных ячеек в новый лист.

в значительной степени то, что мы хотим скопировать:

ячейки E5 и F5, которые являются объединенными ячейками в первом открытом пространстве в столбце A.

ячейки E6 и F6, которые являются объединенными ячейками в первом открытом пространстве в столбце D.

ячейки E7 и F7, которые являются объединенными ячейками в первом открытом пространстве в столбце C.

ячейки B10 и C10, которые объединить ячейки в первое открытое пространство в столбце B.

ячейка G49 в первом открытом пространстве в столбце E.

ячейка G50 в первом открытом пространстве в столбце F.

ячейка G51 в первом открытом пространстве в столбце G.

новый лист, который он должен быть скопирован в это имена счетов-фактур,и он переносится с вкладки поступления, нажав кнопку Сохранить счет.

28
задан John Shepherd
29.01.2023 17:19 Количество просмотров материала 3123
Распечатать страницу

1 ответ

Это может быть то, что вы описываете.

Sub saveButton()
 Set ws = Sheets("Invoices")
 Set rs = Sheets("Receipts")
 LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
  ws.Range("A" & LastRow) = rs.Range("E5")
  ws.Range("D" & LastRow) = rs.Range("E6")
  ws.Range("C" & LastRow) = rs.Range("E7")
  ws.Range("B" & LastRow) = rs.Range("B10")
  ws.Range("E" & LastRow) = rs.Range("G49")
  ws.Range("F" & LastRow) = rs.Range("G50")
  ws.Range("G" & LastRow) = rs.Range("G51")
End Sub
0
отвечен datatoo 2023-01-31 01:07

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх