Anónimo
Ayuda con mi hoja de cálculo en Microsoft Excel
Te molesto para saber si me puedes ayudar.
Mira en una hoja tengo cinco columnas en las cuales hay diferentes cantidades lo que nesesiot hacer es que automaticamen pasen a otra hoja en la columna A, esto seria columna por columna pero una abajo de otra sin dejar celdas vacías y tomando en cuenta que cada columna de la hoja 1 varia en el numero de cantidades. Tengo una copia de estas hojas si me permites tu e mail te las mando creeo que así seria más fácil tu ayuda.
Se me olvidaba en la hoja 2 necesito que esos datos se pasen con solo formato de valores.
Gracias. Roberto
Mira en una hoja tengo cinco columnas en las cuales hay diferentes cantidades lo que nesesiot hacer es que automaticamen pasen a otra hoja en la columna A, esto seria columna por columna pero una abajo de otra sin dejar celdas vacías y tomando en cuenta que cada columna de la hoja 1 varia en el numero de cantidades. Tengo una copia de estas hojas si me permites tu e mail te las mando creeo que así seria más fácil tu ayuda.
Se me olvidaba en la hoja 2 necesito que esos datos se pasen con solo formato de valores.
Gracias. Roberto
1 Respuesta
Respuesta de César Mera
1
Que pena la demora pero estuve muy ocupado esta semana, la macro quedaría así:
Option Explicit
Dim columna As Integer
Dim celdas As Integer
Sub Pegar5Columnas()
Dim fila As Integer
Sheets(1).Select
columna = 1
fila = 1
Do While columna <= 5
Call Copiar(columna)
Sheets(2).Paste Destination:=Worksheets("Hoja2").Cells(fila, 1)
columna = columna + 1
fila = fila + celdas
Loop
Application.CutCopyMode = False
End Sub
Sub Copiar(columna)
Cells(1, columna).Select
If Cells(2, columna).Value <> "" Then _
Range(ActiveCell, Selection.End(xlDown)).Select
Selection.Copy
celdas = Selection.Cells.Count
End Sub
Esa macro copia de la primera hoja del libro en la segunda como pides en la pregunta... si lo deseas puedes cambiar Sheets(1)...
Por
Sheets("Hoja1")...
De manera que le pongas los nombres que necesites.
Espero haber resuelto la inquietud, te agradezco finalizar la pregunta con una calificación acorde con la calidad de la respuesta.
Option Explicit
Dim columna As Integer
Dim celdas As Integer
Sub Pegar5Columnas()
Dim fila As Integer
Sheets(1).Select
columna = 1
fila = 1
Do While columna <= 5
Call Copiar(columna)
Sheets(2).Paste Destination:=Worksheets("Hoja2").Cells(fila, 1)
columna = columna + 1
fila = fila + celdas
Loop
Application.CutCopyMode = False
End Sub
Sub Copiar(columna)
Cells(1, columna).Select
If Cells(2, columna).Value <> "" Then _
Range(ActiveCell, Selection.End(xlDown)).Select
Selection.Copy
celdas = Selection.Cells.Count
End Sub
Esa macro copia de la primera hoja del libro en la segunda como pides en la pregunta... si lo deseas puedes cambiar Sheets(1)...
Por
Sheets("Hoja1")...
De manera que le pongas los nombres que necesites.
Espero haber resuelto la inquietud, te agradezco finalizar la pregunta con una calificación acorde con la calidad de la respuesta.