Страницы: 1
RSS
Создание циклического макроса по условию, Копирование макросом из умной таблицы
 
Добрый день. Помогите сделать макрос. Есть умная таблица. В ней есть скрытые строки и видимые. Надо что бы макрос по очереди, по одной ячейке переносил значения из первого столбца таблицы(только видимые ячейки) в одну ячейку на другом листе.  
 
Возможно, переносить по очереди значения в одну ячейку имеет смысл, поэтому вот вам макрос.
Код
Sub SenselessCycleMacro()
    Dim cl As Range
    For Each cl In Sheets(1).ListObjects(1).DataBodyRange.Columns(1).Cells
        If cl.EntireRow.Hidden = False Then
            Sheets(2).Range("A1").Value = cl.Value
        End If
    Next
End Sub
 
Цитата
МатросНаЗебре: Возможно, переносить по очереди значения в одну ячейку имеет смысл
:D
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
Большое спасибо, но он что то не то делает, он переносит все и видимые и невидимые...
Изменено: Денис С - 15.05.2024 19:49:10
 
Денис С
Цитата
но он что то не то делает, он переносит все и видимые и невидимые...
Вы не правы макрос переносит только видимые ячейки.. Может вы плохо объяснили какой результат должен быть?
Страницы: 1
Наверх