ir a la ultima linea

[peline]

Hola a todos tengo un pequeño problema

he creado un boton en excel que ejecuta una función en Visual basic, lo que quiero que haga ese botón es copiar ciertos valores de la hoja1 a la hoja2, hasta ahí no tengo problema, mi problema es que quiero que dicha copia siempre la haga en la primera linea disponible es decir si tengo

A B C

1 dato1 dato2 dato3


quiero que al presionar mi botón me agregue en la linea 2 mis siguientes datos y posteriormente a la 3 etc etc...

en pocas palabras como ir a la ultima linea de mi lista

de antemano gracias y espero me hayan entendido

[Insomnia]

Hola

A ver si te sirve:

Range("A65536").select
selection.end(xlup).select
UltimaFila=activecell.row

--Saludos--

[3pies]

Esa es una de las utilidades que más se suelen necesitar, cuando se hace algo con VBA.

Lo primero que tienes que hacer, es situarte en cualquier celda (la primera, la segunda, la "n") de ese rango de celdas que quieres "explorar", para situarte justo al final de la última celda con datos. Es decir, imagina que tienes el rango desde A1 a A10, con datos. Lo que pretendemos es situarnos en A11 para escribir algo. Pues bien, para que eso se pueda hacer, primero tenemos que partir de una celda con datos, es decir, colocarnos en una de esas celdas (da lo mismo la que sea, pero puede ser desde A1 a A10). Si no hacemos eso, no sabremos en que columna debe buscarse ese primer espacio vacío.

Una vez hecho eso, el código entonces sería este (lo pongo en forma de procedimiento):

Código:

Sub colocate_en_la_primera_celda_vacia()
    'Que no se pare de buscar, hasta que no encuentre una fila vacía
    Do While Not IsEmpty(ActiveCell.Offset(0, 0))
        ActiveCell.Offset(1, 0).Select
    Loop
    'En este preciso momento ya estamos en la primera fila vacía,
    'así que a partir de aquí, podemos hacer lo que deseemos
End Sub

Espero que esto haya colmado tus expectativas.

Salu2.

[peline]

Gracias me sirvió su ayuda