Gerson Pineda

Si te vas al explorador del proyecto VBA, en el árbol de módulos, puedes ver la hoja "aux" Te adjunto otro método, trabajando con una matriz y como te lo comenté al inicio, trasladando los registros visibles Saludos! Importar datos de otro libro.zip

Hola! Para fin de mes, prueba con Application.EoMonth Saludos a todos!

Visor He tenido un tiempito hoy, así que envío mi versión, revísalo y nos comentas Saludos a ambos! Importar datos de otro libro_GP.zip

Para ti también, que todo vaya bien con tu familia

Es un reconocimiento mas que merecido, para alguien como tu @Antoni Que todo vaya bien allá por tu lado, con esta "pandemia" Saludos

Hola JSD, lo comente porque ando mas que ocupado, pero si tu tienes algo ya elaborado, pues a espera de un aporte mas de tu parte Que todo vaya bien por tu lado y que esten bien Saludos hasta España!

Hola Tu archivo lee permiso denegado Para subirlo al foro, solo necesitamos una pequeña muestra y el resultado esperado El peso permitido es de 2 mb, que es mas que suficiente Saludos

Asi es, por eso es recomendable declarar las variables siempre, y mas cuando se trata de proyectos como los tuyos Por lo demás ya casi lo tienes, solo debes agregar los filtros a la BD y copiarlos al libro que contiene el formulario, es lo que entiendo te falta, para eso te recomiendo hazlo aparte con 2 criterios y luego lo adaptas con las variables de los combobox Saludos!

En la función agregar, solo cambia el primer argumento de 14 a 15 Pero si las fechas estan ordenadas de esa forma y la que necesitas es la de arriba, solo con Buscarv seria suficiente, tal como lo dice Gabriel Saludos!

No lo puedo creer En tu archivo tenias esto: Dim rutaArchivo As Variant If rutaArchivo <> True Then ' abrir archivo 'On Error Resume Next rutaArchivo = Application.GetOpenFilename(Title:="Prueba selección ficheros Excelforo", filefilter:="Excel files (*.xlsx), *.xlsx") Workbooks.Open Filename:=rutaArchivo ...... La variable debe estar fuera de la condicion! y deberia quedar asi: Dim rutaArchivo As Variant rutaArchivo = Application.GetOpenFilename(Title:="Prueba selección ficheros Excelforo", filefilter:="Excel files (*.xlsx), *.xlsx") If rutaArchivo <> False Then ' abrir archivo 'On Error Resume Next Workbooks.Open Filename:=rutaArchivo ...... Luego solo es cosa de que filtres el libro con la BD, según los criterios de los combobox, y copies los datos visibles Saludos a ambos!

Hola Adjunto una alternativa Saludos a todos Obtener ultima fecha_GP.zip

Tu aporte esta fenomenal, como siempre con los pormenores que no dejas escapar [te deje un comentario alla] Saludos

Pedro, gracias por tus muestras de aprecio, las cuales son reciprocas Veré tu aporte y te cuento luego Saludos!