Formato condicional en un rango variable
Tengo la siguiente macro que la hice con la grabadora
Sub condindagts()
'Selection.FormatConditions(1).StopIfTrue = False
Range("A2:A30").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ESBLANCO($I2)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5263615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("A1").Select
End Sud
Lo que hace es colorear de rojo en el rango de a1: a30 si la celda de la columna I esta vacía, solo que yo ingreso datos en la columna A o sea va incrementando a mas de a30, lo que necesito es no tener que cambiar cada vez el rango de la condición, si no tal vez actualizar y que automáticamente incremente el rango hasta la ultima celda con dato de la columna A.
Muchas gracias por su atención
Saludos
Jesús
1 respuesta
Te anexo la macro actualizada
Sub condindagts()
'Selection.FormatConditions(1).StopIfTrue = False
u = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:A" & u).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ESBLANCO($I2)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5263615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("A1").Select
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
