условное форматирование в vba

[marales]

подскажите пожалуйста код.
нужно проверить через код вба в 1 строке с 1 по 10 ячейки с данными на применено ли на каждую условное форматирование. если да то очистить ее от данных если нет то пропустить.

сама формула условного форматирования =деньнед( b1;2)>5 где b1 ячейка с датой.

мне в основном нужно условие допустим я выделяю программно ячейку 1 и проверяю подверглась ли она условному форматированию если да очищаем от данных если нет ничего не делаю перехожу к следующей ячейки

Вот я скинул может так легче будет.
Смысл: я выбираю месяц - проставляются УФ выходные, нажимая на "кнопку 13" должны очистится все окрашенные выходные от данных, т.е. по УФ

[AleksandrH]

Sub KOD()
    Range("A1:A10").SpecialCells(xlCellTypeAllFormatConditions).Select
    Selection.ClearContents
End Sub

[SAS888]

AleksandrH
Так очистятся все ячейки с условным форматированием.
Я так понимаю, что автору нужно очистить только те из них, которые удовлетворяют условию форматирования. Хотя слова

...подверглась ли она условному форматированию...

можно понимать по разному.
Если так, то в цикле нужно проверять соответствие значения ячейки с условием форматирования, и при совпадении - очищать.

[marales]

Сообщение от AleksandrH

Sub KOD()
    Range("A1:A10").SpecialCells(xlCellTypeAllFormatConditions).Select
    Selection.ClearContents
End Sub

Я проверил код он у меня все очистил не зависимо от УФ

[marales]

Сообщение от SAS888

AleksandrH
Если так, то в цикле нужно проверять соответствие значения ячейки с условием форматирования, и при совпадении - очищать.

я вложил файл может поможет понять

[AleksandrH]

Sub KOD()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    For i = 5 To 42
        For j = 6 To 37
            Debug.Print Cells(4, j).Value
            Debug.Print Weekday(Cells(4, j), 2)
            Debug.Print Cells(i, j).Value
             If Weekday(Cells(4, j), 2) > 5 Then Cells(i, j).Value = ""
        Next j
    Next i
    Application.Calculation = xlCalculationAutomatic  
End Sub

может не надо заморачиваться по УФ а просто очистить ячейки?

можно 1 циклом по столбцах обойтись. Ели выходные - очистить диапазон

Sub KOD()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
        For j = 6 To 37
             If Weekday(Cells(4, j), 2) > 5 Then Range(Cells(5, j), Cells(42, j)).ClearContents
        Next j
    Application.Calculation = xlCalculationAutomatic
End Sub

[marales]

Спасибо, то что нужно!

[marales]

Сообщение от AleksandrH

Sub KOD()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    For i = 5 To 42
        For j = 6 To 37
            Debug.Print Cells(4, j).Value
            Debug.Print Weekday(Cells(4, j), 2)
            Debug.Print Cells(i, j).Value
             If Weekday(Cells(4, j), 2) > 5 Then Cells(i, j).Value = ""
        Next j
    Next i
    Application.Calculation = xlCalculationAutomatic  
End Sub

может не надо заморачиваться по УФ а просто очистить ячейки?

можно 1 циклом по столбцах обойтись. Ели выходные - очистить диапазон

Sub KOD()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
        For j = 6 To 37
             If Weekday(Cells(4, j), 2) > 5 Then Range(Cells(5, j), Cells(42, j)).ClearContents
        Next j
    Application.Calculation = xlCalculationAutomatic
End Sub

Иногда ошибка error 13 type mismatch

[AleksandrH]

В каком фрагменте кода? может значение ячеек в дипазоне F4:AJ4 не дата?