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

1 Respuesta

Respuesta
1
Como vas Ricardo... por lo que veo te fue bien con lo de ayer y eso me alegra.
La de hoy la tenías de un pelito... más bien te sobra un pedazo, la instrucción es:
Windows(ActiveCell. Value). Activate
La instrucción ActiveCell. Value te devuelve un valor de tipo variant que en este caso representa una cadena (string) con el nombre del archivo.
Espero que sea lo que necesitas y que te sirva, si me quedó algo mal o no entendiste no dudes en preguntar, si de lo contrario la respuesta te satisface te agradeceré una calificación acorde con la calidad y oportunidad de la misma.
Estimado Cesar, Muchas gracias por la oportunidad de tu colaboración.
Corri la macro con la solución que me propones y me reporta "Error 9". Con esa instrucción pretendo que tome la información en forma repetitiva de las celdas que tienen la siguiente información:
C:\Ricardo Documentos\Contratos\SLI S.A\Alkosto\ALK.XLS
C:\Ricardo Documentos\Contratos\SLI S.A\Andina de Herramientas\AND.XLS
C:\Ricardo Documentos\Contratos\SLI S.A\Angeos\ANG.XLS
C:\Ricardo Documentos\Contratos\SLI S.A\Avery Deninson\AVE.XLS
C:\Ricardo Documentos\Contratos\SLI S.A\Crisa\CRI.XLS
C:\Ricardo Documentos\Contratos\SLI S.A\Fashion\FAS.XLS
C:\Ricardo Documentos\Contratos\SLI S.A\Jhonson & Jhonson\J&J.XLS
C:\Ricardo Documentos\Contratos\SLI S.A\Panasonic\PAN.XLS
C:\Ricardo Documentos\Contratos\SLI S.A\XFood de Colombia\XFO.XLS
C:\Ricardo Documentos\Contratos\SLI S.A\Zanahorias Baby\ZAN.XLS
Te agradecería si me puedes colaborar con tus conocimientos.
Atentamente
Ricardo bolaños
El inconveniente se encuentra en que en las celdas sólo debe figurar el nombre del archivo sin la ruta, es decir, deben figurar por ejemplo así:
PAN.XLS
XFO.XLS
ZAN.XLS
Y ahí si te funciona.
Me cuentas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas