Dado que son casi pocos registros y va a ser hecho en un entorno local
me decidi ir copiando una fila a la vez.
En el archivo de prueba las columnas son A B C D, cada fila va desde 2
hasta 32, la hoja destino creada por un template tiene el nombre de
"2005", j contiene elnumero de la linea que se esta copiando de los
datos, k la linea de destino, wrkb
Set wrkb = Application.Workbooks.Add("Base.xls")
.
EsteLibro.Sheets("Hoja de Análisis").Range("A" & Trim(Str(j)), "D" &
Trim(Str(j))).Select
Selection.Copy
wrkb.Worksheets("2005").Range("A" & Trim(Str(k))).Select
'wrkb.Paste Range("A" & Trim(Str(k)))
k = k + 1
Me indica error en fallo en el metodo select de la clase range en
EsteLibro.Sheets("Hoja de Análisis").Range("A" & Trim(Str(j)), "D" &
Trim(Str(j))).Select
Se requiere un objeto
wrkb.Worksheets("2005").Range("A" & Trim(Str(k))).Select
Leer las respuestas