Botón cancelar en un mesbox
Hola que tal... Pues agradezco el tiempo para tu respuesta a esta pregunta:
Pues tengo un pequeño código que ejecuta una macro en todos los libros que tengo abiertos, pero hay veces que no la quiero ejecutar en ciertos libros, el problema es que no he logrado poner el botón cancelar y que me salte al siguiente libro, esta es mi macro:
Sub Formulas()
Dim Libro As Workbook, LibroActual As String, nueva As String
' Abre el libro y ejecuta la macro en el libro actual abierto
LibroActual = ActiveWorkbook.Name
For Each Libro In Workbooks
Libro.Activate
nueva = MsgBox("Ejecuta Marco en el " & Libro.Name, vbExclamation, "A POR ELLOS!!!")
' Aquí va todo el codigo que ejecuta la macro
'pasa al siguiente libro abierto
Next Libro
Workbooks(LibroActual).Activate
MsgBox "Ya termine con todos los libros abiertos... Me voy a cerrar " & ActiveWorkbook.Name
End Sub
Espero me puedas ayudar!
Pues tengo un pequeño código que ejecuta una macro en todos los libros que tengo abiertos, pero hay veces que no la quiero ejecutar en ciertos libros, el problema es que no he logrado poner el botón cancelar y que me salte al siguiente libro, esta es mi macro:
Sub Formulas()
Dim Libro As Workbook, LibroActual As String, nueva As String
' Abre el libro y ejecuta la macro en el libro actual abierto
LibroActual = ActiveWorkbook.Name
For Each Libro In Workbooks
Libro.Activate
nueva = MsgBox("Ejecuta Marco en el " & Libro.Name, vbExclamation, "A POR ELLOS!!!")
' Aquí va todo el codigo que ejecuta la macro
'pasa al siguiente libro abierto
Next Libro
Workbooks(LibroActual).Activate
MsgBox "Ya termine con todos los libros abiertos... Me voy a cerrar " & ActiveWorkbook.Name
End Sub
Espero me puedas ayudar!
1 respuesta
Respuesta de duainsulch