arreglar macro

25/04/2010 - 21:21 por j_lete | Informe spam
Hola foreros!!
he creado esta macro para que me facilite almacenar los datos de varios
libros en una sola hoja de un libro. los datos en la hoja resumen van uno en
la fila siguiente del anterior. El problema es que con esta macro los datos
no me los copia a partir de la columna A, sino a partir de la ultima celda
con valores de la fila anterior.
¿como podría hacer para que lo copiase siempre en la columna a de la fila
siguiente?
Gracias

Sheets("Hoja2").Select
Range("A1:AK1").Copy
Workbooks.Open Filename:= _
"C:\ resultados.xls"
Range("a1").SpecialCells(xlLastCell).Offset(1, 0).PasteSpecial
xlPasteValues
Application.CutCopyMode = False

ActiveWorkbook.Save
ActiveWorkbook.Close
 

Leer las respuestas

#1 Héctor Miguel
25/04/2010 - 23:22 | Informe spam
hola, !

prueba con algo +/- como lo siguiente:

workbooks.open "c:esultados.xls"
range("a65536").end(xlup).offset(1).range("a1:k1").value = _
thisworkbook.worksheets("hoja2").range("a1:k1").value
activeworkbook close, true

OJO: se entiende que la columna "a" de la primer hoja del libro "resultados" SIEMPRE contendra datos (?)

saludos,
hector.

__ OP __
he creado esta macro para que me facilite almacenar los datos de varios libros en una sola hoja de un libro.
los datos en la hoja resumen van uno en la fila siguiente del anterior.
El problema es que con esta macro los datos no me los copia a partir de la columna A
sino a partir de la ultima celda con valores de la fila anterior.
como podria hacer para que lo copiase siempre en la columna a de la fila siguiente?

Sheets("Hoja2").Select
Range("A1:AK1").Copy
Workbooks.Open Filename:= _
"C:\ resultados.xls"
Range("a1").SpecialCells(xlLastCell).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close

Preguntas similares