La función de formato condicional en VBA no está funcionando.
Aquí está mi problema. Hay dos secciones de formato condicional en el código a continuación. La primera resalta las celdas en rojo y la segunda resalta las celdas en naranja. Cuando ejecuto este código, resalta el segundo formato condicional en amarillo y no aplica ningún relleno al primer formato condicional. Cuando observo el código ejecutarse línea por línea, la primera sección parece funcionar pero luego cambia el relleno a naranja en la primera sección de formato condicional y no aplica ningún relleno a la segunda sección.
Sub ConditionalFormat()
Dim wb As Workbook
Dim ws As Worksheet
Dim lRow As Long
Set wb = ThisWorkbook
Set ws = wb.Sheets("CSR")
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
With Range("N10:AN" & lRow)
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=AND(N10>=($AR10-7),N10>0)"
.FormatConditions(Range("N10:AN" & lRow).FormatConditions.Count).SetFirstPriority
With Range("N10:AN" & lRow).FormatConditions(1).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
End With
Range("N10:AN" & lRow).FormatConditions(1).StopIfTrue = False
With Range("V10:V" & lRow)
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=AND($N10<=($V10-35),N10>0,$C10>0)"
'.FormatConditions(Range("V10:V" & lRow).FormatConditions.Count).SetFirstPriority
With Range("V10:V" & lRow).FormatConditions(1).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 10284031
.TintAndShade = 0
End With
Range("V10:V" & lRow).FormatConditions(1).StopIfTrue = False
End With
Application.ScreenUpdating = True
End Sub
davy.ai
Problema con el código de formato condicional
Parece haber un problema con el código de formato condicional proporcionado. La primera sección del código debería resaltar las celdas con relleno rojo, pero parece cambiar el relleno a naranja en la primera sección y no aplicar relleno alguno a la segunda sección. Cuando se ejecuta el código línea por línea, la primera sección parece funcionar, pero luego cambia el relleno a naranja en la primera sección de formato condicional y no aplica relleno alguno a la segunda sección.
Es necesaria un análisis más detallado para determinar la causa raíz de este problema e identificar una solución para resolverlo.