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.
Buenas tardes
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 SudLo 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
Condición.xlsm