Proceso interativo
Hola hola... Necesito que mi macro realice un proceso interativo para correr la macro en diferentes archivos...
For i = 1 To 100
Let x = "Libro"i
Windows(x).Activate
Next i
For i = 1 To 100
Let x = "Libro"i
Windows(x).Activate
Next i
1 Respuesta
Respuesta de hugolaza
1
Utiliza esta rutina
Option Explicit
Sub Interactivo()
Dim Libro As Workbook, LibroActual As String
LibroActual = ActiveWorkbook.Name
For Each Libro In Workbooks
Libro.Activate
MsgBox "Ejecuta Marco en el " & Libro.Name
Next Libro
Workbooks(LibroActual).Activate
MsgBox "Regresa al " & ActiveWorkbook.Name
End Sub
Este código ejecuta una misma macro en cada libro abierto.
Option Explicit
Sub Interactivo()
Dim Libro As Workbook, LibroActual As String
LibroActual = ActiveWorkbook.Name
For Each Libro In Workbooks
Libro.Activate
MsgBox "Ejecuta Marco en el " & Libro.Name
Next Libro
Workbooks(LibroActual).Activate
MsgBox "Regresa al " & ActiveWorkbook.Name
End Sub
Este código ejecuta una misma macro en cada libro abierto.
