Antes de seguir con el desarrollo y en el caso que no tengas conocimiento suficiente sobre el manejo de hojas de Excel, te recomiendo antes de introducirte en el mundo de las macros, que leas un excelente libro sobre Excel el que te ayudará manejar las planillas de cálculo, debes hacer click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá.
MASTERCARD PAYONEER |
Muchas veces cuando se trabaja con libros donde se listan ventas mensuales, por sucursal o cualquier otro dato, se necesita recorrer hoja por hoja y extraer ciertos datos para realizar un resumen, este post muestra en detalle como la macro va recorriendo hoja por hoja del libro de Excel se fija en las celdas que tienen los datos necesarios para el resumen y los copia en la hoja Resumen, que se llama en este ejemplo. Es una macro sencilla, pero muy útil y que da muchos dolores de cabeza a los más novatos en el tema de macros.
Desde el link del final se puede descargar el archivo de ejemplo de esta manera podrás ver su funcionamiento en forma más detallada. El código de VBA o Macro de Excel crea una hoja denominada resumen si es que ya no está creada, luego determina cuantas hojas hay en el libro de Excel, para hacer un bucle que va desde la hoja2 a la última, la hoja1 no se tiene en cuenta, porque es donde se hace el resumen; posteriormente selecciona las celdas con los datos necesarios para el resumen y los copia en la hoja resumen, por último da formato a las celdas para que se vea más ordenado, descarga el ejemplo desde el link del final.
Código que se debe insertar en un módulo
On Error Resume Next
Application.ScreenUpdating = False
Dim hoja As Worksheet
Dim x, i, fila, fila1 As Integer
If Sheets(1).Name <> «Resumen» Then
Sheets.Add Before:=Worksheets(1)
ActiveSheet.Name = «Resumen»
Else
Sheets(1).Select
End If
x = Sheets.Count
col = 2
For i = 2 To x
Sheets(i).Range(«B2»).Copy Destination:=Sheets(«Resumen»).Cells(2, col)
Sheets(i).Range(«B3»).Copy Destination:=Sheets(«Resumen»).Cells(3, col)
col = col + 1
Next i
Sheets(«Resumen»).Columns(«A:M»).Select
With Selection
.RowHeight = 12.75
.Interior.Pattern = xlNone
.Interior.TintAndShade = 0
.Interior.PatternTintAndShade = 0
.Font.Name = «Arial»
.Font.Size = 10
.Font.Bold = False
End With
Sheets(«Resumen»).Range(«C:T»).EntireColumn.AutoFit
Range(«A1»).Select
Application.ScreenUpdating = True
End Sub
.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends