agrupar datos

¿Copiar y pegar los datos en una hoja y después ordenar, no te sirve?


"Diana" escribió en el mensaje
news:

Hola!!!
Tengo un libro con varias hojas y necesito juntar todo en una, pero sin
efectuar ninguna operación entre ellos, no logro hacerlo, va ejemplo de 2
hojas:

Hoja 1:

AGUDAT DODIM

Psicofármaco Cant. Importe % Dto. Descuento Total
ALPLAX 2 MG CMPR.X 30 1 $ 20,52 22% $ 4,51 $ 16,01
ANAFRANIL RET.75 MG CMPR.X 30 1 $ 59,42 22% $ 13,07 $ 46,35



Hoja 2:

EMANU EL

Psicofármaco Cant. Importe % Dto. Descuento Total
ALPLAX 2 MG CMPR.X 60 1 $ 40,36 20% $ 8,07 $ 32,29
ANAFRANIL GRAG.X 30 1 $ 25,25 40% $ 10,10 $ 15,15



alguna idea de como hacerlo?

Gracias!!!!!!!!!!!

justamente eso quería evitar, son más de 10 hojas y es tedioso.

"fernando" escribió en el mensaje
news:

¿Copiar y pegar los datos en una hoja y después ordenar, no te sirve?


"Diana" escribió en el mensaje
news:

Hola!!!
Tengo un libro con varias hojas y necesito juntar todo en una, pero sin
efectuar ninguna operación entre ellos, no logro hacerlo, va ejemplo de 2
hojas:

Hoja 1:

AGUDAT DODIM

Psicofármaco Cant. Importe % Dto. Descuento Total
ALPLAX 2 MG CMPR.X 30 1 $ 20,52 22% $ 4,51 $ 16,01
ANAFRANIL RET.75 MG CMPR.X 30 1 $ 59,42 22% $ 13,07 $ 46,35



Hoja 2:

EMANU EL

Psicofármaco Cant. Importe % Dto. Descuento Total
ALPLAX 2 MG CMPR.X 60 1 $ 40,36 20% $ 8,07 $ 32,29
ANAFRANIL GRAG.X 30 1 $ 25,25 40% $ 10,10 $ 15,15



alguna idea de como hacerlo?

Gracias!!!!!!!!!!!

Hola Diana,

Suponiendo que:
1) Todas las hojas tienen la misma estructura (solo varian los datos)
2) Los encabezados de las columnas se encuentran en la fila 3 de todas las
hojas
3) Los nombres tipo "AGUDAT DODIM" se encuentran en la celda [A1] de cada
hoja (y son importantes a la hora de consolidar)
4) Se tienen que consolidar los datos de todas las hojas del libro sin
excepcion

Podrias probar el macro que te pongo a continuacion y que deberias colocar
en cualquier modulo VBA de tu archivo y ejecutarlo. Para ello:
1) haz clic-derecho sobre el nombre de cualquier hoja en una de las pestañas
de la parte de abajo de la ventana de Excel.
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) En la ventana mas grande a la derecha pega el codigo que te pongo a
continuacion.
4) Pulsa Ctrl+F8
5) Haz doble-clic sobre "Consolidar"

Saludos,
KL

'Inicio Codigo
Sub Consolidar()
Dim h As Long
Dim hFinal As Worksheet
Dim rngOrig As Range
Dim rngDest As Range
Dim cadNombre As String

Application.ScreenUpdating = False
With ThisWorkbook
Set hFinal = .Worksheets.Add(.Worksheets(1))
hFinal.Name = "Consolidado"
For h = 2 To .Worksheets.Count
With .Worksheets(h)
cadNombre = .Range("A1")
Set rngOrig = .Range(.Cells(4, "A"), _
.Cells(.Rows.Count, "A").End(xlUp))
.Range("A:A").Insert Shift:=xlToRight
rngOrig.Offset(0, -1) = cadNombre
Set rngOrig = rngOrig.EntireRow
End With
With hFinal
Set rngDest = .Cells(.Rows.Count, "A").End(xlUp). _
Offset(1, 0).EntireRow.Resize(rngOrig.Rows.Count)
End With
rngDest.Value = rngOrig.Value
Next h
End With
Application.ScreenUpdating = True
End Sub
'Fin Codigo