selecionar archivos , copiar hoja, y dar nombre desde celda de referencia

[HUNTERX]

hola a todos aqui tratando de hacer la siguiente tarea :

lo que hago manualmente es lo siguiente:

abro un archivo en una carpeta x , este archivo es en formato xls , luego abro otro archivo que es el archivo de formato especial que contiene 2 pestañas

luego copio desde el archivo de la carpeta todo la hoja ,al archivo de formato especial

despues seleciono la celda j2 de la pestaña Solicitud cliente del archivo formato especial, copio ese dato

y luego me voy a la pestaña CSV COMMA DELIMITED , para despues guardar el archivo con el nombre de la celda J2

en formato csv delimitado

a nivel gravador de macro me da este codigo,

Sub es()

'

' es Macro

'

'

Range("A1").Select

Windows("E1708-08.xls").Activate

Windows("Archivo para carga 2 0.xls").Activate

Windows("E1708-08.xls").Activate

Cells.Select

Selection.Copy

Windows("Archivo para carga 2 0.xls").Activate

Cells.Select

ActiveSheet.Paste

Range("J2").Select

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = "E1708-08"

ActiveSheet.Next.Select

Windows("E1708-08.xls").Activate

Windows("Archivo para carga 2 0.xls").Activate

Windows("E1708-08.xls").Activate

Windows("Archivo para carga 2 0.xls").Activate

ChDir "C:\Users\eagb\Desktop\clases vb macros excel\MACROS"

ActiveWorkbook.SaveAs Filename:= _

"C:\Users\eagb\Desktop\clases vb macros excel\MACROS\E1708-08.csv", FileFormat _

:=xlCSV, CreateBackup:=False

ActiveWorkbook.Save

ActiveWorkbook.Close

ActiveWorkbook.Close

End Sub

gracias , si me pueden ayudar

tambien trato cada dia mas de ir entendiendo las macros

estudiando , pero aun me falta

E1708-08 - copia.xls

Archivo para carga 2 0.xls

[HUNTERX]

amigos alguna ayuda

pregunte mal

[HUNTERX]

amigos , por que esta macro me funciona mas o menos

en relacion un poco de lo que pretendo en mi pregunta

Sub Copytt()

Dim wbCopy As Workbook

Dim wbPaste As Workbook

Application.ScreenUpdating = False

Set wbCopy = Workbooks.Open("C:\Users\eagb\Desktop\clases vb macros excel\MACROS\respaldo\E1708-08.xls")

Set wbPaste = Workbooks.Open("C:\Users\eagb\Desktop\clases vb macros excel\MACROS\respaldo\Archivo para carga 2 0.xls")

wbCopy.Sheets(Materiales).Range("A1:J67").Copy

With wbPaste.Sheets(Solicitudcliente).Range("A1:J67")

.PasteSpecial xlValues

.PasteSpecial xlFormats

End With

wbCopy.Close , False

wbPaste.Close , False

Application.ScreenUpdating = True

End Sub

si lo hago con un ejemplo simple de copiar de libro1 a libro2 , me lo hace bien

pero, con la macro que les describo con los arvhivos que quiero trabajar

hace como el intento de copiar , pero al final no pega la informacion que pongo en archivo original