Rango dinámico en una macro
César Nieves
Tengo mucho tiempo fuera de este grupo de noticias, hace algunos años
pude compartir algunas experiencias con los miembros. Saludos !!
En esta oportunidad tengo una duda a ver si alguien me puede ayudar.
En esta pequeña macro:
Sub Agrupar_Antiguedad()
Columns("S:S").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("S1").FormulaR1C1 = "antigüedad"
Range("S2").FormulaR1C1 = _
"=IF(ISBLANK(RC[-1]),"""",IF(VALUE(RC[-1])<=15,""15"",IF(VALUE(RC[-1])<=30,""30"",IF(VALUE(RC[-1])<=60,""60"",IF(VALUE(RC[-1])<=90,""90"","">90"")))))"
Range("S2").Select
Selection.AutoFill Destination:=Range("S2:S70")
End Sub
Quiero saber al momento de crear el rango, que no sea hasta la fila 70
(Range("S2:S70") sino que sea hasta la ultima fila que tiene datos,
debido que el archivo puede creer en numero de filas indiscriminadamente.
Agradeciendo el apoyo que me puedan brindar
Saludos
César
Juan M
"César Nieves" <cesar...@cantv.net> escribió en el mensaje
news:eU%23YU6SA...@TK2MSFTNGP04.phx.gbl...
Hola César,
Si tienes la columna R con los datos hasta la 70 o más prueba a cambiar esta
línea
Selection.AutoFill Destination:=Range("S2:S70")
por
Range("S2")..AutoFill Destination:= Range("S2:S" & Range("R" &
Rows.Count).End(xlUp).Row)
(en una línea)
En un porcentaje muy alto de veces, no es necesario seleccionar las celdas,
rangos,... para referirse a ellos.
Un saludo,
Juan