| Цитата |
|---|
| МатросНаЗебре написал: Sub СчётПожалуйста() Const ИмяЛистаСчёт = "Счёт" Dim sh As Worksheet On Error Resume Next Set sh = Sheets(ИмяЛистаСчёт) On Error GoTo 0 If sh Is Nothing Then MsgBox "Не найден лист " & ИмяЛистаСчёт, vbCritical Exit Sub Else If ActiveSheet.Name <> ИмяЛистаСчёт Then With ActiveCell.EntireRow sh.Range("A10").Value = .Range("A1").Value sh.Range("B10").Value = .Range("D1").Value End With sh.Select End If End IfEnd Sub |
Данные строки заносить в бланк
Данные строки заносить в бланк
Данные строки заносить в бланк
Данные строки заносить в бланк
|
24.05.2021 15:32:08
Добрый день форумчане!
заранее благодарю всех кто потратит своё время на этот не самый сложный вопрос. Работаю в логистике и каждую неделю заполняю для себя простенькую табличку на тему кто куда едет и некоторые подробности (пример в приложении) как сделать так. что бы данные одной конкретной строки (перевозки) трансформировались - копировались в бланк счёта клиенту? прошу хотябы подсказать направление где искать решение данного вопроса |
|
|
|
|
