Заполнить значениями видимые ячейки отфильтрованного диапазона.

Пользователь

Сообщений: 74 Регистрация: 19.03.2018

12.11.2019 17:10:53

Доброго всем времени суток! Нужна помощь в реализации действия по кнопке.

Сейчас при нажатии на кнопку выделяется первый столбец до конца таблицы.

Вопрос: как сделать что бы при нажатии на кнопку чекбоксами (шрифтом "Marlett") выделялись ячейки в первом столбце видимых значений (т.е. при выборе фильтра в 6 столбце например значения "y" должны быть выделены А4-А7, А10-А12, А15-А16 )

Файл пример прилагаю. Надеюсь вопрос задал максимально понятно
Заранее благодарен за помощь

Прикрепленные файлы

test1.xlsm (23.17 КБ)

Пытливый

Пользователь

Сообщений: 4714 Регистрация: 22.12.2012

12.11.2019 18:07:27

Позитивного показателя часового пояса!

Можно как-то так:

Код

Private Sub CommandButton1_Click()
    Dim objR As Range, objC As Range
    Set objR = Range("A2", Cells(Rows.Count, 1).End(xlUp))
    For Each objC In objR.SpecialCells(xlCellTypeVisible)
        objC = "a": objC.Font.Name = "Marlett"
    Next objC

End Sub

З.Ы. предлагаю название темы: "Простановка значений в видимых ячейках отфильтрованного диапазона"

Изменено: Пытливый - 12.11.2019 18:09:59

Кому решение нужно - тот пример и рисует.

TMD Пользователь Сообщений: 74 Регистрация: 19.03.2018	#3 13.11.2019 09:37:36 Пытливый, спасибо! Похоже то что нужно, сейчас буду тестировать