Опубликовано 10 февраля10 февр Товарищи добрый вечер буду благодарен если кто-то поделится макросом для добавления данных в отдельную книгу-архив, заранее благодарен
Опубликовано 11 февраля11 февр В 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
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.