Recorra cada hoja de trabajo o cada libro de trabajo

Recorrer cada hoja de trabajo o cada libro de trabajo es una acción muy común. Uno que quizás esté haciendo con regularidad. El siguiente código debería ponerlo en el camino correcto.

Recorre cada hoja de trabajo

Sub LoopThroughWorksheets()'Cree una variable para contener la hoja de trabajo y también el mensaje de salidaDim Ws As WorksheetDim Message As String'Recorra cada hoja de trabajo en la colección Worksheets del libro activo. Para cada Ws en ActiveWorkbook.Worksheets 'Inserte las acciones que desea realizar en cada hoja de trabajo 'En este ejemplo, se agrega el nombre de una hoja a una cadena Message = Message Ws.Name vbNewLineNext Ws'Emite la cadena que contiene el nombre de cada hoja de trabajoMsgBox MessageEnd Sub

Recorre cada libro de trabajo

Sub LoopThroughWorkbooks()'Crea una variable para contener el libro y también el mensaje de salidaDimWb AsWorkbook Dim Message As String'Recorre cada libro abierto en la colección de libros de la sesión activa de Excel For EachWbInWorkbooks 'Inserta las acciones que deseas realizar en cada libro 'En este ejemplo, se agrega el nombre de una hoja a una cadena Message = Message Wb.Name vbNewLine NextWb 'Muestra la cadena que contiene el nombre de cada libroMsgBox Message End Sub