Filtrar palabras únicas, copiarlas, crear libro con el nombre del filtro y luego pegar filtro

1 post / 0 nuevos
hookom119
Imagen de hookom119
Offline
última acción: Hace 3 meses 3 semanas
alta: 26/08/2019 - 04:45
Puntos: 25
Filtrar palabras únicas, copiarlas, crear libro con el nombre del filtro y luego pegar filtro

 

Hola, muy buenas de ante mano doy gracias.

 

 

E estado días intentando formular un código VBA que haga lo siguiente voy por pasos por qué es tedioso y paradojico de explicar:

 

1) Primero necesito filtrar todas las palabras de una columna de un libro

2) Después de filtrar las palabras necesito que recorra cada palabra filtrada y valide si existe una carpeta con el nombre del archivo de la palabra filtrada, ejemplo rápido:

dim palabrafiltrada as string

if CurDir(palabrafiltrada & "\" & palabrafiltrada ".xlsm", vbdirectory) <> vbNullString

End If

3) Luego de haber hecho esa validación, copie las palabras filtradas PERO, no quiero que copie algunas columnas.

Ejemplo escrito:

Filtrar para copiar columnas en el rango de "A" y "C" pero copia también "G" y "F"

4) Luego de haber filtrado y copiado esas columnas separadas, que pegue los filtros a cada uno de los directorios con sus archivos con los nombre del filtro.

Ejemplo escrito:

Se copia desde el rango "A" y "C" luego "G" y "F"

la palabra filtrada en este caso fue: Higiene

Entonces voy a ir a la carpeta con el archivo de la palabra filtrada, ejemplo: CurDir("Higiene\higiene.xlsm")

Luego, pego el filtro en el archivo higiene.xlsm.

Y así hasta terminar de recorrer todas carpetas y pegue todos los filtros de todos los archivos correspondientes.

Todo un reto sinceramente o al menos para mi xD espero un heroe sin capa

Etiquetas: