¡Hola a tod@s!

Tengo la siguiente macro:

[CODE][CODE]ConstceldaInicial = "A1"
    Const celdaFinal = "IR29"
    Dim miRango As Range

    Set miRango = ActiveSheet.Range(celdaInicial & ":" & celdaFinal)
[/CODE]

[/code]

pero necesitaría que me recorriera el rango desde la celda A1 hasta la última celda que no esté vacía en la fila 29

celdaInicial:(ultima celda no vacía)29

Agradecería mucho cualquier ayuda que pudiérais ofrecerme.

Hola Miguelon89

Bienvenido al foro

Con algo como

Sub RecorreRango()

ini = "A1"

fin = "IR29"

Set rango = Range(ini & ":" & fin)

[COLOR="#0000CD"]For Each celda In rango[/COLOR]

celda.Value = "si"

[COLOR="#0000CD"]Next[/COLOR]

End Sub[/CODE]

te podría valer (se te rellenará el rango con "si", a fin de verificar que funciona), para ti lo importante es el For each ... Netx

Un saludo desde Vitoria

¡Hola de nuevo!

Creo que no me expliqué bien.

La macro está implementada con otras funciones, y lo que necesito es SELECCIONAR el rango, como si seleccionara la celda A1 y MAYÚSCULAS+CONTROL+FLECHA DERECHA , MAYÚSCULAS+CONTROL+FLECHA HACIA ABAJO.

Así siempre me seleccionaría siempre el rango completo, aunque varíe.

La celda A1 y la fila 9 siempre son fijas, y lo único que variaría serían las columnas finales.

Muchas gracias.

Hola Miguelón

En efecto, no te había entendido.

Con

Range("A1", ActiveCell.SpecialCells(xlLastCell)).Select[/CODE]

seleccionas el rango, y con

[CODE] ulcel=Range("A1", ActiveCell.SpecialCells(xlLastCell)).Address[/CODE]

en la variable ulcel obtienes la dirección del rango (por ejemplo "$A$1:$F$6")

Un saludo desde Vitoria

¡ Muchísimas gracias !

Ya lo he estado probando, y eso era exactamente lo que estaba buscando