Macros en excel
Hola Cesar Mera, cordial saludo.
Nuevamente recurro a tus conocimientos para pedirte información sobre como completar mi macro con una instrucción repetitiva que me permita llamar a una ventana activa con el nombre del archivo variable de acuerdo al turno que le corresponda en la repetición.
Yo estoy intentando con la siguiente instrucción: Windows (ActiveCell. Value.Activate).Activate pero me sale error 424
La macro toda en su conjunto te la relacono aparte por si la necesitas.
Te agradecería tus comentarios.
Con respecto a la respuesta de ayer me fue de mucha utilidad y pude a partir de ella cosntruir la solución a mi medida. Te quedo muy agradecido
Atentamente
Ricardo bolaños
La macro en conjunto es:
Sub Macro6()
'
' Macro6 Macro
' Macro grabada el 03/04/2003 por Ricardo A. Bolaños
'
' Acceso directo: CTRL+s
'
Windows("Presupuesto 2003.xls").Activate
Application.Goto Reference:="Ingresos"
Selection.ClearContents
Windows("MAINMENU II.xls").Activate
Application.Goto Reference:="RUTA1"
Contador = 0
Do While Contador < Range("NClientes").Value
ActiveCell.Offset(1, 0).Select
Windows(ActiveCell.Value.Activate).Activate
Application.Goto Reference:="Ingresos"
Selection.Copy
Windows("Presupuesto 2003.xls").Activate
Application.Goto Reference:="Ingresos"
Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Contador = Contador + 1
Loop
End Sub
Nuevamente recurro a tus conocimientos para pedirte información sobre como completar mi macro con una instrucción repetitiva que me permita llamar a una ventana activa con el nombre del archivo variable de acuerdo al turno que le corresponda en la repetición.
Yo estoy intentando con la siguiente instrucción: Windows (ActiveCell. Value.Activate).Activate pero me sale error 424
La macro toda en su conjunto te la relacono aparte por si la necesitas.
Te agradecería tus comentarios.
Con respecto a la respuesta de ayer me fue de mucha utilidad y pude a partir de ella cosntruir la solución a mi medida. Te quedo muy agradecido
Atentamente
Ricardo bolaños
La macro en conjunto es:
Sub Macro6()
'
' Macro6 Macro
' Macro grabada el 03/04/2003 por Ricardo A. Bolaños
'
' Acceso directo: CTRL+s
'
Windows("Presupuesto 2003.xls").Activate
Application.Goto Reference:="Ingresos"
Selection.ClearContents
Windows("MAINMENU II.xls").Activate
Application.Goto Reference:="RUTA1"
Contador = 0
Do While Contador < Range("NClientes").Value
ActiveCell.Offset(1, 0).Select
Windows(ActiveCell.Value.Activate).Activate
Application.Goto Reference:="Ingresos"
Selection.Copy
Windows("Presupuesto 2003.xls").Activate
Application.Goto Reference:="Ingresos"
Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Contador = Contador + 1
Loop
End Sub
1 Respuesta
Respuesta de César Mera
1