Formato condicional en un rango variable

[jesus miguel]

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 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

 

Condición.xlsm

[ikanni]

Hola Jesus Miguel,

CAmbia

Range("A2:A30").Select

por esto

 Range("A2", Range("A2").End(xlDown)).Select

SAludos

Ikanni

[Enigma25]

Tema abandonado.