Llenar Ultima Celda Vacía

Hola expertos,
Le quiero hacer la siguiente consulta con respecto a excel.
Resulta que tengo un macro que hace lo siguiente:
Copia un par de celas con imágenes
Sheets(5).Select 'selecciona la Hoja 2
Range("A2").Select 'el control se hará sobre la columna A, a partir de la fila
While ActiveCell.Value <> ""
ActiveCell. Offset(1, 0). Select 'si la celda contiene datos, pasa a la fila siguiente
Wend
fila1 = ActiveCell.Row 'guarda en la variable fila1 el número de la primer fila sin datos.
Pega lo copiado inclusive la imagen.
Pero esto se me hace cada vez más lento a medida que voy cargando los datos porque recorre hasta la ultima celda sobre la columna A
¿La consulta es que otro método creen ustedes que puede ser más rapido?

1 Respuesta

Respuesta
1
Podes encontrar la primer fila libre con esta instrucción, que busca desde abajo hasta encontrar el primer dato. Se suma 1 para quedar en la fila siguiente que es la vacía:
fila1 = range("A65536").End(xlup).Row + 1
En mi página de macros podes encontrar otras instrucciones para encontrar los límites.
Hola me sirvió de mucho tu ayuda como siempre lo haces cada vez que te consulto.
Ahora quiero preguntarte una ultima cosa y finalizo la pregunta
Quiero buscar un valor por 3 condiciones:
Ejemplo:
Buscar un dato por DNI - Apellido o Ficha
Pero buscar solo por UNO.
Los datos están así:
C4 : DNI
C5: Apellido
C6: Ficha
¿Cómo seria una condición de SI pero con 3 posibilidades?
No respondemos 2 temas distintos en 1 sola consulta... tratemos de ayudar entre todos al buscador del sitio.
Finalizá esta que quedó resuelta e iniciá una nueva con titulo acorde al tema y con gusto te la responderé.
Sdos
Elsa

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar celdas a otra hoja en la primera fila libre

Primero felicitarles por la página que me parece estupenda. Voy con mi pregunta: Tengo un libro con las hojas: externo, interno y base de datos, la utilizo para ingresar datos de personal autorizado a fin de realizar trabajos en la empresa, en las...
2 respuestas

Buscar celda vacía y eliminar fila.

Paso a detallarles mi problema, bajo unos archivos de texto de un programa POR que luego copio ordeno y pego en un libro excel con un formato de inventario preestablecido, mi problema es que cada inventario que bajo le quedan filas sin usar, me...
1 respuesta

Macro compara datos y copiar en otra hoja

Nnecesito una macro Buscar datos de hoja1 celda b2 en hoja2 columna b si es igual, guardar datos en variable, después compara datos de hoja1 c2 con hoja2 columna d si es igual copiar datos ubicado en columna b en hoja1 celda a2 si los datos no son...
1 respuesta

Tablas vinculadas

Tablas vinculadas (20/5/2003) Gracias por atenderme, Mi problema es quiero que en una tabla se vayan reflejando los datos que escribo en una primera tabla en otra hoja, hasta ahí todo muy fácil. El problema es que la tabla en la que escribo los datos...
1 respuesta

Ir a la ultima celda no vacía, bajar una fila más

Me podrían ayudar con una macro que realice lo siguiente. Ir hasta la ultima celda no vacía de la columna DE luego bajar una fila y seleccionar toda las filas situada más abajo y borrar el contenido, en mi caso hay datos en la columna A, B y C.
1 respuesta

Crear bordes

Respetuoso para todos y todas. Quiero darle borde a una cantidad no definida de filas y columnas, ¿Cómo se genera el código para lograrlo?
1 respuesta

Identificar ultima celda y pegar un rango diferent

Necesito lo siguiente, en un libro tengo la hoja 1 una base de datos de colombia y en la hoja 2 tengo la base de datos de ecuador, necesito por medio de una macro que en la hoja 1 colombia me identifique la ultima fila y me pegue la información de la...
1 respuesta

Macro para pegar datos en celda vacía

Necesito de la colaboración de los expertos. Bueno, tengo un libro con dos hojas (Hoja1 y Hoja2). La hoja1 me sirve como formulario en la que lleno datos, los cuales deseo copiar a la hoja 2. Tanto la Hoja1 como la Hoja2 tienen los siguientes...
1 respuesta

Mostrar MsgBox con datos de celda

Recurro de nuevo a su valiosa ayuda. Gracias al experto "Aprendemos" pude dar con una respuesta interesante. Por medio de un Formulario capturo un nombre ubicados un rango, si el valor no existe en el rango aparece un MsgBox "Número no encontrado"....
2 respuestas

¿Cómo programar vlookup en una macro?

Necesito pls que me ayuden a programar una macro para que en una columna de la hoja1 ponga el resultado de un vlookup, la lista llega a las cinco mil filas. Entonces la base de datos donde necesito que el buscarv haga la búsqueda esta en la hoja2,...
1 respuesta