Recorrer macro hasta última celda no vacía

[miguelon89]

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

[ioyama]

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

[miguelon89]

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

[ioyama]

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

[miguelon89]

¡ Muchísimas gracias !

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