Макрос для архива

[Юрий Журавлев 36]

Товарищи добрый вечер буду благодарен если кто-то поделится макросом для добавления данных в отдельную книгу-архив, заранее благодарен

[Евгений Виноградов 5]

В 10.02.2026 в 16:22, Юрий Журавлев сказал:

Товарищи добрый вечер буду благодарен если кто-то поделится макросом для добавления данных в отдельную книгу-архив, заранее благодарен

Sub архив()
Dim q1 As Integer
    q1 = Sheets("АРХИВ").Range("a" & Cells.Rows.Count).End(xlUp).Row + 1

куда записать по порядку слева на право= с какой ячейки
    Sheets("Архив").Cells(q1, 1) = Range("B49")
    Sheets("Архив").Cells(q1, 2) = Range("C49")
    Sheets("Архив").Cells(q1, 3) = Range("D49")
    Sheets("Архив").Cells(q1, 4) = Range("E49")
    Sheets("Архив").Cells(q1, 5) = Range("F49")
    Sheets("Архив").Cells(q1, 6) = Range("G49")
    Sheets("Архив").Cells(q1, 7) = Range("H49")
    Sheets("Архив").Cells(q1,  = Range("I49")
    Sheets("Архив").Cells(q1, 9) = Range("J49")
    Sheets("Архив").Cells(q1, 10) = Range("K49")
    Sheets("Архив").Cells(q1, 11) = Range("L49")
    Sheets("Архив").Cells(q1, 12) = Range("M49")

    MsgBox "Матч добавлен в архив"
End Sub
 

[Юрий Журавлев 36]

Спасибо Жень

[Юрий Журавлев 36]

А можно видео запилить как наглядно это делать