Добрый день. Помогите написать или подправить макрос, который копирует отфильтрованные данные на другой лист 1) На другой лист в определенное место (там готовая форма) 2) Копирование не всех данных, а 2-3 колонок, которые идут не друг за другом, то есть чтобы данные выборочно копировались не по всем данным, а по паре колонок и аккуратно заносились в готовую форму. Или же чтобы происходил сдвиг ненужных колонок, а в форму заносились нужные Вот такой мне один добрый человек написал, он переносит колонки в одну форму из двух и если очередность колонок не меняются. А как его дополнить, чтобы во все формы вносилось сразу и например если очередность колонок поменяется [vba]
Код
Sub www() Range("B2:B13,F2:F13").SpecialCells(xlCellTypeVisible).Copy Sheets("Лист2").Range("F4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub
[/vba]
Добрый день. Помогите написать или подправить макрос, который копирует отфильтрованные данные на другой лист 1) На другой лист в определенное место (там готовая форма) 2) Копирование не всех данных, а 2-3 колонок, которые идут не друг за другом, то есть чтобы данные выборочно копировались не по всем данным, а по паре колонок и аккуратно заносились в готовую форму. Или же чтобы происходил сдвиг ненужных колонок, а в форму заносились нужные Вот такой мне один добрый человек написал, он переносит колонки в одну форму из двух и если очередность колонок не меняются. А как его дополнить, чтобы во все формы вносилось сразу и например если очередность колонок поменяется [vba]
Код
Sub www() Range("B2:B13,F2:F13").SpecialCells(xlCellTypeVisible).Copy Sheets("Лист2").Range("F4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub