Tengo varios archivos de excel con diferente nombre en cada una de las hojas.

En cada hoja aparecen estos valores en unas celdas que no son siempre las mismas TELA y CLAVE.

Necesito copiar los valores que están a la derecha de estas palabras para hacer una base de datos de todos los archivos que están en el mismo directorio.

Solicito su ayuda. Gracias

Hola, si nos muestras lo que ya tienes avanzado nos facilitaras responder, gracias.

Soy nuevo en programar y me gustaría algo de ayuda en como hacerlo.

Puedes hacerlo manualmente?

Son 180 archivos con varias hojas, hacerlo manual me va a llevar mucho tiempo, este va a ser un trabajo recurrente y me gustaría automatizarlo si es posible.

Entiendo, mi pregunta es si puedes hacerlo manual, de ser asi puedes encender la grabadora de macros, procesar 2-3 archivos y apagar la grabadora.

Con eso generaras un codigo basico en el que podemos basarnos para el resto.

Gracias por la ayuda, aquí esta el código de macros generado de acuerdo a lo que me sugeriste.

Sub Exportar_Archivos()

'

' Exportar_Archivos Macro

'

'

ChDir "C:\Users\Jorge\Desktop\cuenta_alta"

Workbooks.Open Filename:="C:\Users\Jorge\Desktop\cuenta_alta\ADAD COORD..xls" _

, UpdateLinks:=0

Range("B4:4").Select

Selection.Copy

Windows("Libro2").Activate

Range("C4").Select

ActiveSheet.Paste

Range("F4").Select

Windows("ADAD COORD..xls").Activate

Range("B5:5").Select

Application.CutCopyMode = False

Selection.Copy

Windows("Libro2").Activate

ActiveSheet.Paste

Range("C5").Select

Windows("ADAD COORD..xls").Activate

ActiveWindow.Close

Workbooks.Open Filename:="C:\Users\Jorge\Desktop\cuenta_alta\ADAD.xls", _

UpdateLinks:=0

Range("B4:4").Select

Selection.Copy

Windows("Libro2").Activate

ActiveSheet.Paste

Range("F5").Select

Windows("ADAD.xls").Activate

Range("B5:5").Select

Application.CutCopyMode = False

Selection.Copy

Windows("Libro2").Activate

ActiveSheet.Paste

Range("C6").Select

Windows("ADAD.xls").Activate

ActiveWindow.Close

Workbooks.Open Filename:= _

"C:\Users\Jorge\Desktop\cuenta_alta\AFRICA (COL. 2012).xls", UpdateLinks:=0

ActiveWindow.SmallScroll Down:=-57

Range("B4:4").Select

Selection.Copy

Windows("Libro2").Activate

ActiveSheet.Paste

Range("F6").Select

Windows("AFRICA (COL. 2012).xls").Activate

Range("B5:5").Select

Application.CutCopyMode = False

Selection.Copy

Windows("Libro2").Activate

ActiveSheet.Paste

End Sub

Ok, facilitaras responder incluyendo un archivo(s) con el codigo generado.

Sube por favor el archivo destino y los archivos desde donde copiaste.

Los codigos publicados deben usar etiquetas.

Para aprovechar mejor el foro por favor lee:

Normas AyudaExcel | Ayuda Excel

Adjunto los archivos que utilice y el que se genero.

ADAD COORD.xls

ADAD.xls

AFRICA (COL. 2012).xls

Libro2.xls