Excel VBA - Consolidar (juntar) datos de varias hojas en una sola usando macros.
ฝัง
- เผยแพร่เมื่อ 17 ต.ค. 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
![“อาร์ต พศุตม์” เกือบเอี่ยวทุกคดีดัง เอ๊ะไว้ก่อน ไม่มีอะไรได้มาง่ายๆ | แฉ 16 ต.ค. 67 [2/3] | GMM25](http://i.ytimg.com/vi/0Gx-0-kUBv8/mqdefault.jpg)
Que belleza de video, me ayudo mucho. En mi trabajo me ahorre casi 20min de copy/paste. Gracias por compartir.
Buen video profe
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 estimado, que código podría usar para seleccionar solo algunas hojas para consolidar la información
Buen video estimado, que código podría usar si deseo consolidar los datos de solo algunas hojas
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
Gracias por compartir tus conocimientos.
Es mas sencillo hacerlo con un array, lleva poquitisimo codigo, eres principiante amigo!!
Muchas Gracias
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
una pregunta, si quiero que no revise en varias hojas no solo en una como tendría que modificar el condicional? Gracias.
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
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,
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!
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?
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
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