Clases
1: Instrucción Select...Case para múltiples condiciones
2: Introducción a los Bucles en VBA: Bucle For...Next
3: Bucle For Each...Next para recorrer objetos de una colección
4: Bucle Do...While. Ejecutar mientras se cumple una condición
5: Bucle Do...Until . Ejecutar hasta que se cumpla una condición
6: Implementar un Controlador de errores
7: Procedimientos Sub públicos, privados y cómo ejecutarlos
8: Práctica: Agrupar tablas de varias hojas en una sola
9: Macro optimizada: Agrupar tablas de varias hojas en una sola
10: Funciones definidas por el usuario (UDF)
11: Funciones VBA para manejo de textos
12: Funciones VBA para manejo de Fecha y Hora
13: Funciones VBA de conversión, formato y evaluación
14: Usar Fórmulas y funciones de Excel desde VBA
15: Introducción a los Eventos en VBA y Eventos de libro
16: Introducción a los Eventos en VBA y Eventos de hoja
17: Eventos de Aplicación y eventos no asociados a objetos
Copiar Datos de las Hojas Existentes
Participaciones
OsmaniPititi hace 1 mes
Buenos Dias Julia
Muchas Gracias por la anterior aclaracion. Abajo pongo el codigo del ejemplo de la clase pero utilizando for each
Dim ws As Worksheet
Dim MsgContinuar As Byte
Dim UltimaFilaOrigen, UltimaFilaDestino As Long
MsgContinuar = MsgBox("Se agruparán las tablas de igual estructura." + _
vbNewLine + vbNewLine + "Desea continuar?", vbYesNo + vbQuestion, "Deztaca")
If MsgContinuar = vbNo Then Exit Sub
' Agregar una nueva hoja antes de la primera
ActiveWorkbook.Sheets.Add Before:=Sheets(1)
' Copiar los encabezados de la segunda hoja
Sheets(2).Range("A1:G1").Copy Sheets(1).Range("A1")
Columns("A:G").Select
Columns("A:G").EntireColumn.AutoFit
Sheets(1).Range("A2").Select
For Each ws In ThisWorkbook.Worksheets
If ws.Index <> 1 Then
UltimaFilaOrigen = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
If UltimaFilaOrigen > 1 Then
UltimaFilaDestino = Sheets(1).Cells(Sheets(1).Rows.Count, "A").End(xlUp).Row + 1
With Sheets(1).Range("A" & UltimaFilaDestino).Resize(UltimaFilaOrigen - 1, 7)
.Value = ws.Range("A2:G" & UltimaFilaOrigen).Value
End With
End If
End If
Next ws
Muchas Gracias por la anterior aclaracion. Abajo pongo el codigo del ejemplo de la clase pero utilizando for each
Dim ws As Worksheet
Dim MsgContinuar As Byte
Dim UltimaFilaOrigen, UltimaFilaDestino As Long
MsgContinuar = MsgBox("Se agruparán las tablas de igual estructura." + _
vbNewLine + vbNewLine + "Desea continuar?", vbYesNo + vbQuestion, "Deztaca")
If MsgContinuar = vbNo Then Exit Sub
' Agregar una nueva hoja antes de la primera
ActiveWorkbook.Sheets.Add Before:=Sheets(1)
' Copiar los encabezados de la segunda hoja
Sheets(2).Range("A1:G1").Copy Sheets(1).Range("A1")
Columns("A:G").Select
Columns("A:G").EntireColumn.AutoFit
Sheets(1).Range("A2").Select
For Each ws In ThisWorkbook.Worksheets
If ws.Index <> 1 Then
UltimaFilaOrigen = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
If UltimaFilaOrigen > 1 Then
UltimaFilaDestino = Sheets(1).Cells(Sheets(1).Rows.Count, "A").End(xlUp).Row + 1
With Sheets(1).Range("A" & UltimaFilaDestino).Resize(UltimaFilaOrigen - 1, 7)
.Value = ws.Range("A2:G" & UltimaFilaOrigen).Value
End With
End If
End If
Next ws
↳ Responder
JuliaBravo490 hace 1 mes
Buenos días, Osmani.
Gracias por compartir el código.
El enfoque con For Each está muy bien aplicado. Es una muy buena adaptación del ejemplo de clase y cumple perfectamente con el objetivo de agrupar tablas con la misma estructura.
Un saludo y gracias por tu dedicación.
Saludos,
Julia - Equipo Deztaca
Gracias por compartir el código.
El enfoque con For Each está muy bien aplicado. Es una muy buena adaptación del ejemplo de clase y cumple perfectamente con el objetivo de agrupar tablas con la misma estructura.
Un saludo y gracias por tu dedicación.
Saludos,
Julia - Equipo Deztaca
1
OsmaniPititi hace 1 mes
Buenas tardes Sergio
En el caso del ejemplo , seria bueno agregar dos lineas de codigo despues de las que se copia el encabezado para ajustar el ancho de las columnas al texto del encabezado de la tabla. Pudiera ser las siguientes
Sheets(2).Range("A1:G1").Copy Sheets(1).Range("A1")
Columns("A:G").Select
Columns("A:G").EntireColumn.AutoFit
Sheets(1).Range("A2").Select
Ademas , tengo una duda.
Si Hubieramos usado un bucle For each en vez de un For Next, no hubiera sido necesario activar las hojas para poder copiar las tablas ?
En el caso del ejemplo , seria bueno agregar dos lineas de codigo despues de las que se copia el encabezado para ajustar el ancho de las columnas al texto del encabezado de la tabla. Pudiera ser las siguientes
Sheets(2).Range("A1:G1").Copy Sheets(1).Range("A1")
Columns("A:G").Select
Columns("A:G").EntireColumn.AutoFit
Sheets(1).Range("A2").Select
Ademas , tengo una duda.
Si Hubieramos usado un bucle For each en vez de un For Next, no hubiera sido necesario activar las hojas para poder copiar las tablas ?
↳ Responder
JuliaBravo490 hace 1 mes
Hola, Osmani.
Gracias por el comentario y la sugerencia del ajuste de columnas.
Gracias por el comentario y la sugerencia del ajuste de columnas.
Sobre tu duda: en esta macro se usa Activate porque el código trabaja con Select/Selection/ActiveSheet, y esos objetos siempre se refieren a lo que esté activo en ese momento. Por eso, si no activas la hoja correcta, Excel podría copiar/pegar desde otra hoja o tomar otro rango.
Pero ojo: no depende de si el bucle es For Next o For Each. Aunque uses For Each, si sigues usando Selection, igual vas a depender de activar. For Each solo hace más cómodo y legible recorrer las hojas
Espero que esto aclare tu duda.
Saludos,
Equipo Deztaca
Espero que esto aclare tu duda.
Saludos,
Equipo Deztaca
1
Javierr hace 8 meses
Hola Sergio una pregunta
Si la ultima hoja no tuviera el nombre de deztaca sino sucursal4 y con datos
estos se copiarian tambien y la macro para ahi o sigue o tenemos que ponerle un nombre de una hoja para que asi pare la macro al llegar al nombre donde queremos que pare
Si la ultima hoja no tuviera el nombre de deztaca sino sucursal4 y con datos
estos se copiarian tambien y la macro para ahi o sigue o tenemos que ponerle un nombre de una hoja para que asi pare la macro al llegar al nombre donde queremos que pare
↳ Responder
JuliaBravo490 hace 8 meses
Hola, Álvaro.
Claro, la macro ya cuenta las hojas con Sheets.Count, por lo que si quitas la condición que excluye la hoja "Deztaca" (If Sheets(i).Name <> "Deztaca") y dejas el bucle como For i = 2 To Cuenta, recorrerá todas las hojas desde la segunda hasta la última sin depender de nombres; de ese modo, copiará los datos de todas las hojas existentes sin necesidad de indicarle cuándo parar, ya que el bucle se detiene automáticamente al alcanzar la última hoja.
Espero haber aclarado tu duda, y siempre es un gusto recibir sus comentarios.
Saludos,
Julia
Equipo DEZTACA
Claro, la macro ya cuenta las hojas con Sheets.Count, por lo que si quitas la condición que excluye la hoja "Deztaca" (If Sheets(i).Name <> "Deztaca") y dejas el bucle como For i = 2 To Cuenta, recorrerá todas las hojas desde la segunda hasta la última sin depender de nombres; de ese modo, copiará los datos de todas las hojas existentes sin necesidad de indicarle cuándo parar, ya que el bucle se detiene automáticamente al alcanzar la última hoja.
Espero haber aclarado tu duda, y siempre es un gusto recibir sus comentarios.
Saludos,
Julia
Equipo DEZTACA
0
Estás agregando un comentario en esta clase
Inicia sesión para dejar tu duda, comentario y/o respuesta