Macro para filtrar, copiar y guardar en diferentes libros
Me pasa lo siguiente.
Tengo un libro con la data de varios países y para cada país hay un libro aparte. Lo que quiero hacer es una macro que me permita automatizar lo siguiente:
1. Se abra un cuadro donde seleccione la ruta de la carpeta con los archivos correspondientes.
2. Qué abra el primer archivo
3. Qué se devuelva al archivo data y filtre la información por país (nombre del archivo abierto) y luego por fecha (un día hábil anterior al día de activación de la macro)
4. Qué copié toda la información
5. Qué se devuelva al archivo abierto en el paso 1
6. Qué borre toda la información de este archivo, pegue la información, guarde el archivo y lo cierre
7. Qué se repita con todos los archivos que contenga la carpeta.
Para esto tenía pensado una macro de la siguiente forma
Dim directorio as strong, título as strong
Título= “please, select a file directory for save.”
On error resume next
'abre una ventana para escoger la ruta donde se encuentran los archivos
Whit CreateObject (“shell.application”)
Directorio= .BrowseForFolder(0, título, 0). Ítems.item.path
End with: on error goto 0
If directorio =”” then
Msgbox “you don’t select any file directory”, ,”cancelled operation.!!!”
Exit sub
End if
'abrir El archivo
Dim carpeta, archivos adjuntos string
Dim contador as integer
Dim archivos 1 as strong
Application.displayalerts=false
Contador=1
Archivos=directorio & “\” & dir (directorio&”\”)
Do while Len (archivos) >0
On error resume next
If archivos <> directorio & “\” then
Sheets (“data”). Select
Archivos=dir()
Archivos1=archivos
Archivos=directorio &”\” archivos
Worbooks. Open (archivos)
Hasta aquí abre libro por libro, pero no sé cómo hacer para que filtre los datos de la forma indicada, que los copié y los pegue en el libro que se abrió y luego que este libro se cierre para que haga lo mismo con los otros libros pertenecientes en la ruta.
Les agradezco el soporte y la ayuda que me puedan brindar para elaborar está macro de forma funcional, feliz día!
