Цитата |
---|
IGGI пишет: Вот пример) |
Для потомков. Вопрос был решен с помощью такого макроса:
Код |
---|
Sub архив() Application.ScreenUpdating = False With Sheets("архив") lr = .Cells(Rows.Count, 2).End(xlUp).Row If .Cells(lr, 2) = Date Then Range("B5").Copy .Cells(lr - 1, 2) Range("C5").Copy .Cells(lr, 2).PasteSpecial Paste:=xlPasteValues .Cells(lr, 2).PasteSpecial Paste:=xlPasteFormats Range("J13:N13").Copy .Cells(lr - 1, 3) Range("C13:C17").Copy .Cells(lr, 3).PasteSpecial Transpose:=True Else Range("B5").Copy .Cells(lr + 2, 2) Range("C5").Copy .Cells(lr + 3, 2).PasteSpecial Paste:=xlPasteValues 'специальная вставка значения .Cells(lr + 3, 2).PasteSpecial Paste:=xlPasteFormats 'специальная вставка форматы Range("J13:N13").Copy .Cells(lr + 2, 3) Range("C13:C17").Copy .Cells(lr + 3, 3).PasteSpecial Transpose:=True End If End With Application.ScreenUpdating = True End Sub |