ekaitz-eh
09-ene-2008, 06:28
Hola!
Tengo una duda con visual para excel que no sé resolver!! a ver si me podéis ayudar.
Tengo dos hojas excel: libro1.xls y libro2.xls
Quiero hacer un bucle que en la celda A1 del libro1.xls tome el valor de:
1) celda A1 libro2.xls
2) celda A4 libro3.xls
3) y así para las celdas que yo quiera...
Si yo grabo una macro en excel me da este código..
pero necesito saber como se pone en general las celdas con una fórmula.
He probado cosas como:
Range("A1").Select
ActiveCell.Formula = Workbook(Libro2).worksheet(Hoja1).cells(i,j)
Pero no funciona dándole valores a i y a j... Esta no es la forma...
Esto sería para un valor concreto:
Sub Macro1()
'
' Macro1 Macro
'
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "=[Libro2]Hoja1!R1C1"
Range("A1").Select
ActiveCell.FormulaR1C1 = "=[Libro2]Hoja1!R4C1"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=[Libro2]Hoja1!R5C1"
Range("A4").Select
End sub
Si alguien me pudiera ayudar...
Muchas gracias de antemano!
Tengo una duda con visual para excel que no sé resolver!! a ver si me podéis ayudar.
Tengo dos hojas excel: libro1.xls y libro2.xls
Quiero hacer un bucle que en la celda A1 del libro1.xls tome el valor de:
1) celda A1 libro2.xls
2) celda A4 libro3.xls
3) y así para las celdas que yo quiera...
Si yo grabo una macro en excel me da este código..
pero necesito saber como se pone en general las celdas con una fórmula.
He probado cosas como:
Range("A1").Select
ActiveCell.Formula = Workbook(Libro2).worksheet(Hoja1).cells(i,j)
Pero no funciona dándole valores a i y a j... Esta no es la forma...
Esto sería para un valor concreto:
Sub Macro1()
'
' Macro1 Macro
'
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "=[Libro2]Hoja1!R1C1"
Range("A1").Select
ActiveCell.FormulaR1C1 = "=[Libro2]Hoja1!R4C1"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=[Libro2]Hoja1!R5C1"
Range("A4").Select
End sub
Si alguien me pudiera ayudar...
Muchas gracias de antemano!