Anónimo
¿Cómo puedo pasar los valores de columnas entre hojas de libros de excel?
Tengo un libro de 4 hojas en la 1,2y 3hoja columna A .tengo varias cantidades.lo que necesito es como pasar esas cantidades a la columna A de la hoja 4. Primero las de la hoja 1 luego las de la 2 y así con la 3.pero todas una abajo de otra sin que queden celdas vacías.
Esto es tomando en cuenta que el numero de cantidades varia constantemente.
Espero me `puedas entender y ayudar de antemano muchas gracias.
[email protected]
Esto es tomando en cuenta que el numero de cantidades varia constantemente.
Espero me `puedas entender y ayudar de antemano muchas gracias.
[email protected]
1 Respuesta
Respuesta de Elsa Matilde
1
Hubieras tardado menos copiando y pegando que haciendo la consulta, pero aquí va la macro.
Para copiarla, Alt+F11 para activar el Editor, menú Insertar/módulo, doble clic en el módulo y pegas el siguiente código en la ventana:
Sub CopiandoHojas()
Dim hoja, final, ult As Integer
hoja = 1
ult = 2 'comienza a pegar desde la fila 2
While hoja < 4
Sheets(hoja).Select
final = Range("A65536").End(xlUp).Row
Range("A2:A" & final).Select 'comienza a copiar desde la fila 2
Selection.Copy
ActiveSheet.Paste Destination:=Sheets("Hoja4").Range("A" & ult)
hoja = hoja + 1
ult = ult + final - 1
Wend
Application.CutCopyMode = False
End Sub
Solo modifica, si fuese necesario, donde asume que debe buscar a partir de la fila 2.
Para copiar y pegar te paso algunos trucos por si no los conoces:
Seleccionar los datos de la hoja1 y Ctrl+C (para copiar)
Activar la hoja4, celda A2 y Ctrl+V (para pegar)
Repito el paso 1 para la hoja2
Activar la hoja4, Ctrl+Fin y Ctrl+V.
Repito para la hoja3.
Elsa
Para copiarla, Alt+F11 para activar el Editor, menú Insertar/módulo, doble clic en el módulo y pegas el siguiente código en la ventana:
Sub CopiandoHojas()
Dim hoja, final, ult As Integer
hoja = 1
ult = 2 'comienza a pegar desde la fila 2
While hoja < 4
Sheets(hoja).Select
final = Range("A65536").End(xlUp).Row
Range("A2:A" & final).Select 'comienza a copiar desde la fila 2
Selection.Copy
ActiveSheet.Paste Destination:=Sheets("Hoja4").Range("A" & ult)
hoja = hoja + 1
ult = ult + final - 1
Wend
Application.CutCopyMode = False
End Sub
Solo modifica, si fuese necesario, donde asume que debe buscar a partir de la fila 2.
Para copiar y pegar te paso algunos trucos por si no los conoces:
Seleccionar los datos de la hoja1 y Ctrl+C (para copiar)
Activar la hoja4, celda A2 y Ctrl+V (para pegar)
Repito el paso 1 para la hoja2
Activar la hoja4, Ctrl+Fin y Ctrl+V.
Repito para la hoja3.
Elsa