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
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,
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
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
Que belleza de video, me ayudo mucho. En mi trabajo me ahorre casi 20min de copy/paste. Gracias por compartir.
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
Es mas sencillo hacerlo con un array, lleva poquitisimo codigo, eres principiante amigo!!
Buen video profe
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
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,
Gracias por compartir tus conocimientos.
Muchas 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
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
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
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...
una pregunta, si quiero que no revise en varias hojas no solo en una como tendría que modificar el condicional? 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?
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!