Всем доброго времени суток!!!
1. Существует некий файл содержащие данные, обновляемые каждый месяц путем добавления нового столбца (новый месяц = +1 столбец)
2. Клиентам информация рассылается путем протягивания на листе "Клиент_N" формул на 1 столбец вправо, которые ссылаются на вкладку "Источник"
3. При этом у нового столбца данных форматирование должно быть как у предыдущего, а третий по счёту слева должен стать таким же как столбцы левее его.
4. Подобого рода макрос легко записывается через макрекордер, но всё дело в том что при записи он ссылается на конкретные диапазоны, а у меня 20 вкладок клиентов с разными адресами диапазонов.
5. По сути нужно чтобы макрос вставлял новый столбец N в столбце справа от последнего столбца с данными и при этом копировал его формат и менял формат столбца N-3 на формат столбца N-4.
6. Макрос, записанный макрекордером выглядит так:
Sub Макрос2()
'
' Макрос2 Макрос
'
'
Columns("K:K").Select
Selection.Copy
Columns("L:L").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("K2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Columns("I:I").Select
Selection.Copy
Columns("J:J").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("M5").Select
End Sub
1. Существует некий файл содержащие данные, обновляемые каждый месяц путем добавления нового столбца (новый месяц = +1 столбец)
2. Клиентам информация рассылается путем протягивания на листе "Клиент_N" формул на 1 столбец вправо, которые ссылаются на вкладку "Источник"
3. При этом у нового столбца данных форматирование должно быть как у предыдущего, а третий по счёту слева должен стать таким же как столбцы левее его.
4. Подобого рода макрос легко записывается через макрекордер, но всё дело в том что при записи он ссылается на конкретные диапазоны, а у меня 20 вкладок клиентов с разными адресами диапазонов.
5. По сути нужно чтобы макрос вставлял новый столбец N в столбце справа от последнего столбца с данными и при этом копировал его формат и менял формат столбца N-3 на формат столбца N-4.
6. Макрос, записанный макрекордером выглядит так:
Sub Макрос2()
'
' Макрос2 Макрос
'
'
Columns("K:K").Select
Selection.Copy
Columns("L:L").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("K2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Columns("I:I").Select
Selection.Copy
Columns("J:J").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("M4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("M5").Select
End Sub