Duda con un error de excel con VBA
Hola, tengo un macro que hace una sumatoria de una columna POR, pero en el momento que hace eso necesito que el resultado aparezca en un libro nuevo; mi macro funciona hasta la sumatoria, pero al momento de crear el libro nuevo me aparece un error 9; te anexo el código completo espero me puedan ayudar.
Private Sub CommandButton1_Click()
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 1).Select
Range("R200").CurrentRegion.Select
******Range("A1").Value = Workbooks("C:\Documents and Settings\mendoza\Desktop\Proy\Acumulado2.xls").Sheets("hoja1").Range("Z1").Value*****
ActiveCell.Formula = "=SUM(TuFila:TuColumna)"
ActiveCell.Formula = "=SUM(Q:Q)"
End Sub
Sub MyMacro()
'abre el LibroA
Range("Q:Q").Select
ChDir "C:\Documents and Settings\mendoza\Desktop\Proy"
Workbooks.Open Filename:="C:\Documents and Settings\mendoza\Desktop\Proy\LibroA.xls"
Windows("acumulado2.xls").Activate
Range("B3").Select
End Sub
La columna que tiene los asteriscos es la que me manda el error, gracias por su ayuda
Private Sub CommandButton1_Click()
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 1).Select
Range("R200").CurrentRegion.Select
******Range("A1").Value = Workbooks("C:\Documents and Settings\mendoza\Desktop\Proy\Acumulado2.xls").Sheets("hoja1").Range("Z1").Value*****
ActiveCell.Formula = "=SUM(TuFila:TuColumna)"
ActiveCell.Formula = "=SUM(Q:Q)"
End Sub
Sub MyMacro()
'abre el LibroA
Range("Q:Q").Select
ChDir "C:\Documents and Settings\mendoza\Desktop\Proy"
Workbooks.Open Filename:="C:\Documents and Settings\mendoza\Desktop\Proy\LibroA.xls"
Windows("acumulado2.xls").Activate
Range("B3").Select
End Sub
La columna que tiene los asteriscos es la que me manda el error, gracias por su ayuda
1 respuesta
Respuesta de Raul Hernandez
1
No entiendo muy bien tu código, pero si quieres pasar un valor de un libro a otro, deberías guardar primero el valor en una variable, y luego esta escribirla en el libro que quieres, me explico, tienes el libro "A.xls" abierto y allí esta tu macro, que suma unos valores que están en unas celdas de este libro, el resultado de esa sumatoria lo guardas en una variable, abres el libro "B.xls" que es donde quieres copiar el resultado de la sumatoria, ubicas la celda que quieres y escribes en ella:
Sub prueba()
Range("A10").Select
ActiveCell.Formula = "=SUM(A1:A9)"
Sum = ActiveCell.Value
'abres el otro libro
Workbooks.Open Filename:="e:\book2.xls"
'ubicas la celda
Range("A1").Select
'escribes el valor
ActiveCell.Value = Sum
End Sub
Sub prueba()
Range("A10").Select
ActiveCell.Formula = "=SUM(A1:A9)"
Sum = ActiveCell.Value
'abres el otro libro
Workbooks.Open Filename:="e:\book2.xls"
'ubicas la celda
Range("A1").Select
'escribes el valor
ActiveCell.Value = Sum
End Sub
