Excel VBA - Consolidar (juntar) datos de varias hojas en una sola usando macros.
Вставка
- Опубліковано 6 вер 2024
- Ejercicio del curso de VBA Excel, donde explicamos la solución para consolidar (Juntar) datos de varias hojas con el mismo formato mediante la creación de un macro.
Manual de VBA Macros en Excel: payhip.com/b/E...
PC STUDIO Computación
Hermosillo, Sonora, México
www.pctudiocursos.com
Buen video profe
Buen aporte 👍 lo realice con algunos cambios y todo bien. Adjunto mi macro:
Sub Consolidar_Hojas_Excel()
Dim WS As Worksheet
Dim NameSheet As String
NameSheet = "Hoja1" 'Hoja destino
For Each WS In Worksheets
If WS.Name NameSheet Then
WS.Activate
Range("A1").CurrentRegion.Offset(1, 0).Copy
Worksheets(NameSheet).Select
If Range("A2") = "" Then
Range("A2").PasteSpecial
Else
Range("A1").End(xlDown).Offset(1, 0).PasteSpecial
End If
End If
Next WS
End Sub
Que belleza de video, me ayudo mucho. En mi trabajo me ahorre casi 20min de copy/paste. Gracias por compartir.
Muy buena alternativa el tiempo qeu uno se ahorra, tendras alguna macro que haga lo mismos pero de libros diferentes a un libro Resumen. Me explico tener varios libros en una carpeta y en esa misma carpeta ejecutar una macro que anexa toda la información de esos archivo en una libro nuevo, Nota los libros tienen la misma estructura pero la cantidad de información varia,
Es mas sencillo hacerlo con un array, lleva poquitisimo codigo, eres principiante amigo!!
Buen video estimado, que código podría usar para seleccionar solo algunas hojas para consolidar la información
Excelente voy analizar el primer procedimiento y luego el otro, gracias por postear
Ok José, espero te sirva. Saludos.
@@cursospcstudio si pero me copia las hojas y me deja siempre un fila vacía q corresponde a la cabecera, a ver si lo soluciono
Buen video estimado, que código podría usar si deseo consolidar los datos de solo algunas hojas
Gracias por compartir tus conocimientos.
Muchas Gracias
Hola muy buenas noches, realicé el ejercicio con el método corto y me marca un error con el último "End If", ya lo revisé varias veces y no le encuentro la falla. Mucho he de agradecer si me pudieras orientar
Por lo demás, la explicación es clara y sencilla, sería ideal enriquecerla agregando una condición, que copie por ejemplo con un rango de fechas.
Saludos desde Guadalajara
Buenos días, quiero copiar datos de dimensiones y hojas diferentes y consolidarlo en otra hoja, cómo podría hacerlo, me ayudarías mucho, gracias...
Buen video. Una duda, si en lugar de ir transferiendo todas las columnas de los meses, cómo puedo transferir solo las filas de 1 de esas columnas?
si deseo colocar condición por ejemplo que busque por cedula, o cualquier otra y me traiga los datos que necesito como nos quedaría? mil gracias
una pregunta, si quiero que no revise en varias hojas no solo en una como tendría que modificar el condicional? Gracias.
hice la macro tal cual incluyendole el pegado en valores y me marca error
Hola Gilberto, si deseas mándame el archivo para revisártelo y ayudarte a cesarquiroz5@hotmail.com
BUEN APORTE Y SI QUIERO QUE SOLO ME COPIE ALGUNAS HOJAS Y NO TODAS..
buenas tardes un saludo desde Bolivia,
aquí tengo un error...
se a producido el error '13' en tiempo de ejecución:
No coinciden los tipos
si seria tan amable de ayudarme, gracias
Sub importar()
Application.ScreenUpdating = False
Dim Hoja As Worksheets
For Each Hoja In Worksheets
If Hoja.Name "resumen" Then
Hoja.Select
Range("A1").CurrentRegion.Offset(1, 0).Copy
Worksheets("resumen").Select
If Range("A2") = "" Then
Range("A2").PasteSpecial
Else
Range("A1").End(xlDown).Offset(1, 0).PasteSpecial
End If
End If
MsgBox ("Ordenado Exitoso")
Next Hoja
End Sub
Hola, la declaración de la variable Hoja debe ser en singular: Dim Hoja As Worksheet
Ese es el error. Saludos!