Re: Macro para posicionarse en la última fila

[jcac]

Hola Hugo,

Quizas esto te sirva: ActiveCell.SpecialCells(xlLastCell).Select

saludos

Juan Carlos

"Hugo" <Hu...@discussions.microsoft.com> escribió en el mensaje
news:ACF9EEF1-1435-47E2...@microsoft.com...
> Para copiar nuevos ingresos en una base de datos, quiero hacer una macro
> que
> se posicione en la última fila con datos, luego dar Enter para bajar a la
> primera fila libre (Sin datos) y después ir por esta misma fila hasta la
> columna "A"... Ejemplo: Mi Base de Datos tiene una columna que siempre
> tiene
> valores (No tiene celdas en blanco) es la columna "O" para empezar a
> grabar
> mi macro me posiciono en "O2" le doy Crtl+flecha abajo, luego "Enter" para
> ir
> a la fila siguiente, luego Crtl+flecha Izq y paro m macro... pero con esta
> secuencia, lo que ocurre es que siempre se posiciona en una celda
> específica
> y lo que quiero es que sea variable y se posicione siempre en la última...
>
> Este es el script de la macro que hago, pero que se posiciona siempre en
> la
> celda "O38508" y lo que quiero es que sea en la última, por que cada vez
> que
> pegue más datos esta fila irá variando...
>
> Sub LastOne()
> '
> ' LastOne Macro
> '
> ' Acceso directo: Ctrl+Mayús+L
> '
> Range("O2").Select
> Selection.End(xlDown).Select
> Range("O38508").Select
> Selection.End(xlToLeft).Select
> End Sub
>
> Espero haber sido claro con mi pregunta y agradezco su colaboración
>
> Cordial saludo,
>
> Hugo

[César Herrada]

Hola Hugo, para que te funcione debes hacer lo siguiente:

Sub LastOne()

' LastOne Macro
'
' Acceso directo: Ctrl+Mayús+L
'

Range("O2").Activate
ActiveCell.End(xlDown).Activate
ActiveCell.End(xlToLeft).Activate
ActiveCell.Offset(1, 0).Activate

End Sub

Cordial saludo,

César Herrada
MCP

"Hugo" <Hu...@discussions.microsoft.com> escribió en el mensaje de noticias

[Hugo]

Gracias por su pronta respuesta. Ambas respuestas me orientaron a encontrar
la forma de hacerlo. Como retroalimentación para otros usuarios y de manera
general lo que hay hacer para que funcione es activar la selección de celdas
relativas, para que la selección no se refiera a una celda en particular. El
script que me funcionó es el siguiente:

Sub LastOne()
'
' LastOne Macro
'
' Acceso directo: Ctrl+Mayús+L
'
Range("O2").Select
Selection.End(xlDown).Select

ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlToLeft).Select
End Sub

Saludos a todos

"jcac" escribió:

[Juan Español]

Lo que viene a ser:

Range("O2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, -14).Select

Si es que quieres empezar a poner datos en la columna A, ultima_fila + 1,
aunque no tengas datos en alguna columna B - N de la última fila.

No se si logro hacerme entender..

Saludos.-

"César Herrada" <herrad...@hotmail.com> escribió en el mensaje de
noticias news:OtzHS8X...@TK2MSFTNGP06.phx.gbl...

[fredd...@gmail.com]

HOGO PRUEBA ESTA RANGE("O" & UF).SELECT