Страницы: 1
RSS
Копирование скрытых колонок
 
Добрый вечер Уважаемые знатоки. имеется набросок кода, которы копирует колонки заданные если они открыты(не скрыте).
Код
Dim KH As String

Dim aa As Integer
aa = ActiveCell.Column

Cells(1, aa).Select

    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .color = 16738047
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
 
Application.Union(Range("R:R,P:P,N:N,M:M,I:I"), ActiveCell.EntireColumn, ActiveCell.Offset(0, 1).Range("B:B")).Select

    Selection.Copy
    Workbooks.Open filename:=ThisWorkbook.Path & "\Z-DingDan"

Но хотелось бы не раскладывать рабочую область на весь стол. Как сделать так что бы заданные колонки копировались если даже они скрыты.
 
aybek04, если коротко вроде все копируется и скрытое в т.ч. сделайте под себя
Код
Sub mrshkei()
    Range("R:R,P:P,N:N,M:M,I:I").Copy Destination:=Range("B1")
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
Спасибо большое. Но у меня не много специфика другая. мне нужно помимо выделенной ячейки еще взять другую а потом уже указанную.
Как оказалось все копировалось. только копировалсь с той же шириной, то есть скрытым. Решил вопрос добавлением кода
Код
Selection.ColumnWidth = 7

после вставки выделенных колонок.

 
Цитата
aybek04 написал: после вставки выделенных колонок.
Код
Selection.EntireColumn.Hidden = False

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
Страницы: 1
Наверх