19/10/2004, 05:59
|
 | | | Fecha de Ingreso: enero-2004 Ubicación: viña del mar
Mensajes: 180
Antigüedad: 21 años, 3 meses Puntos: 3 | |
| si te marco error entonces la opcion de poner la formula =+[libro1.xls]Hoja1!$C36 etc, queda descartada
a ver... las macros si quieres las puedes puedes hacer individualmente y ejecutarlas todas o resumirlas todas en una sola qe seria o aconsejable, con respecto a lo de las celdas, no necerariamente deben ser la misma celda en todos os libros
por ejemplo suponamos que tenemos los ibros 1 , 2 , 3 y 4 y en el 1 queremos que se copien columnas de los demas, entonces la macro seria mas o menos asi..
Workbooks.Open Filename:= _
"C:\Mis documentos\Libro2.xls"
Columns("B:B").Select
Selection.Copy
Windows("Libro1.xls").Activate
Columns("B:B").Select
ActiveSheet.Paste
Windows("Libro2.xls").Activate
Application.CutCopyMode = False
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Mis documentos\Libro3.xls"
Columns("B:B").Select
Selection.Copy
Windows("Libro1.xls").Activate
Columns("C:C").Select
ActiveSheet.Paste
Windows("Libro3.xls").Activate
Application.CutCopyMode = False
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Mis documentos\Libro4.xls"
Columns("G:G").Select
Selection.Copy
Windows("Libro1.xls").Activate
Columns("D:D").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Libro4.xls").Activate
Application.CutCopyMode = False
Range("F3").Select
ActiveWindow.Close
__________________
hay tres tipos de matemáticos, los que saben contar y los que no.
Oscar |