Ver Mensaje Individual
  #3 (permalink)  
Antiguo 15/03/2006, 02:29
Avatar de 3pies
3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 20 años, 4 meses
Puntos: 144
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.

Última edición por 3pies; 15/03/2006 a las 02:41