Juntar los datos de 2 tablas en una sola

Dtos>Consolidar...
1.- selecciona la celda donde quedara la nueva tabla
2.- Datos
3.-Consolidar..
4.selecciona Funcion Suma
5.-click en referencia selecciona primer rango
6.-Presiona Agregar
7.-Otra vez Referencia y agegar
8.- llena otras acsillas si necesario
9.-Aceptar

"jaime javier" escribió:

Hola, ¿Alguien sabe cómo puedo hacer esto?
Tengo dos consultas de inventarios en hojas de excel separadas digamos

Hoja1
ArticuloA 11
ArticuloC 12
ArticuloD 4

Hoja 2
ArticuloA 5
ArticuloB 10
ArticuloD 5

Quiero que en una tercera hoja se muestren los articulos mezclados con los
datos que corresponden a cada hoja
Hoja1 Hoja2
ArticuloA 11 5
ArticuloB 0 10
ArticuloC 12 0
ArticuloD 4 5

Espero haberme explicado. Si alguien sabe como se hace le agradecere mucho
que me detalle como
Atte
Jaime J

Prueba esto.


Option Explicit

Sub Merge()

Dim Hoja1 As Worksheet
Dim Hoja2 As Worksheet
Dim Hoja3 As Worksheet

Dim FilaHoja1 As Integer
Dim FilaHoja2 As Integer
Dim FilaHoja3 As Integer

Dim UltimaFilaHoja1 As Integer
Dim UltimaFilaHoja2 As Integer
Dim UltimaColumnaHoja1 As Integer
Dim UltimaColumnaHoja2 As Integer

Dim Articulo1 As String
Dim Articulo2 As String

FilaHoja1 = 1
FilaHoja2 = 1
FilaHoja3 = 1


Set Hoja1 = Worksheets("Hoja1")
Set Hoja2 = Worksheets("Hoja2")
Set Hoja3 = Worksheets("Hoja3")

UltimaFilaHoja1 = Hoja1.Cells.SpecialCells(xlLastCell).Row
UltimaColumnaHoja1 = Hoja1.Cells.SpecialCells(xlLastCell).Column
UltimaFilaHoja2 = Hoja2.Cells.SpecialCells(xlLastCell).Row
UltimaColumnaHoja2 = Hoja2.Cells.SpecialCells(xlLastCell).Column

Do Until (FilaHoja1 > UltimaFilaHoja1 And FilaHoja2 > UltimaFilaHoja2)
If FilaHoja1 > UltimaFilaHoja1 Then
Articulo1 = "ZZZZZZZZZZZ"
Else
Hoja1.Activate
Articulo1 = Hoja1.Cells(FilaHoja1, 1)
End If

If FilaHoja2 > UltimaFilaHoja2 Then
Articulo2 = "ZZZZZZZZZZZ"
Else
Hoja2.Activate
Articulo2 = Hoja2.Cells(FilaHoja2, 1)
End If

If Articulo1 < Articulo2 Then
Hoja1.Activate
Hoja1.Range(Cells(FilaHoja1, 1), Cells(FilaHoja1,
UltimaColumnaHoja1)).Copy _
Destination:=Hoja3.Cells(FilaHoja3, 1)
Hoja1.Range(Cells(FilaHoja1, 1), Cells(FilaHoja1, 1)).Copy _
Destination:=Hoja3.Cells(FilaHoja3, UltimaColumnaHoja1 + 1)
FilaHoja1 = FilaHoja1 + 1
FilaHoja3 = FilaHoja3 + 1
End If

If Articulo1 = Articulo2 Then
Hoja1.Activate
Hoja1.Range(Cells(FilaHoja1, 1), Cells(FilaHoja1,
UltimaColumnaHoja1)).Copy _
Destination:=Hoja3.Cells(FilaHoja3, 1)
Hoja2.Activate
Hoja2.Range(Cells(FilaHoja2, 1), Cells(FilaHoja2,
UltimaColumnaHoja2)).Copy _
Destination:=Hoja3.Cells(FilaHoja3, UltimaColumnaHoja1 + 1)
FilaHoja1 = FilaHoja1 + 1
FilaHoja2 = FilaHoja2 + 1
FilaHoja3 = FilaHoja3 + 1
End If

If Articulo1 > Articulo2 Then
Hoja2.Activate
Hoja2.Range(Cells(FilaHoja2, 1), Cells(FilaHoja2, 1)).Copy _
Destination:=Hoja3.Cells(FilaHoja3, 1)
Hoja2.Range(Cells(FilaHoja2, 1), Cells(FilaHoja2,
UltimaColumnaHoja2)).Copy _
Destination:=Hoja3.Cells(FilaHoja3, UltimaColumnaHoja2 + 1)
FilaHoja2 = FilaHoja2 + 1
FilaHoja3 = FilaHoja3 + 1
End If

Loop



End Sub

"jaime javier" escribió en el mensaje
news:

Hola, ¿Alguien sabe cómo puedo hacer esto?
Tengo dos consultas de inventarios en hojas de excel separadas digamos

Hoja1
ArticuloA 11
ArticuloC 12
ArticuloD 4

Hoja 2
ArticuloA 5
ArticuloB 10
ArticuloD 5

Quiero que en una tercera hoja se muestren los articulos mezclados con los
datos que corresponden a cada hoja
Hoja1 Hoja2
ArticuloA 11 5
ArticuloB 0 10
ArticuloC 12 0
ArticuloD 4 5

Espero haberme explicado. Si alguien sabe como se hace le agradecere
mucho
que me detalle como
Atte
Jaime J

Gracias Leonel y Luis Por contestar:
Quiero informarles que la solución de Leonel no funcionó por que no muestra
el resultado esperado, solo la suma de ambas hojas aunque si los mezcla
bien.

En cuanto a la solcion de Luis tampoco la puedo usar porque Me aparecieron
los siguientes errores
Error en el método Range del objeto Worksheet en la instrucción que copia la
celda del la hoja 1 a la hoja 3
Hoja1.Range(Cells(FilaHoja1, 1), Cells(FilaHoja1,
UltimaColumnaHoja1)).Copy Destination:=Hoja3.Cells(FilaHoja3, 1)

Me asegure de que las hojas se llaman Hoja1 Hoja2 y Hoja3 pero supongo que
algo debe estar haciendo mal.. Puse el llamado al procedimiento desde un
botón no se si eso sea correcto.

De todos modos gracias a ambos ...
Alguien mas podria ayudarme?










"jaime javier" escribió en el mensaje
news:

Hola, ¿Alguien sabe cómo puedo hacer esto?
Tengo dos consultas de inventarios en hojas de excel separadas digamos

Hoja1
ArticuloA 11
ArticuloC 12
ArticuloD 4

Hoja 2
ArticuloA 5
ArticuloB 10
ArticuloD 5

Quiero que en una tercera hoja se muestren los articulos mezclados con los
datos que corresponden a cada hoja
Hoja1 Hoja2
ArticuloA 11 5
ArticuloB 0 10
ArticuloC 12 0
ArticuloD 4 5

Espero haberme explicado. Si alguien sabe como se hace le agradecere

mucho

que me detalle como
Atte
Jaime J

Copia el código en ThisWorkbook y ejecutalo desde alli.


"jaime javier" escribió en el mensaje
news:

Gracias Leonel y Luis Por contestar:
Quiero informarles que la solución de Leonel no funcionó por que no
muestra
el resultado esperado, solo la suma de ambas hojas aunque si los mezcla
bien.

En cuanto a la solcion de Luis tampoco la puedo usar porque Me
aparecieron
los siguientes errores
Error en el método Range del objeto Worksheet en la instrucción que copia
la
celda del la hoja 1 a la hoja 3
Hoja1.Range(Cells(FilaHoja1, 1), Cells(FilaHoja1,
UltimaColumnaHoja1)).Copy Destination:=Hoja3.Cells(FilaHoja3, 1)

Me asegure de que las hojas se llaman Hoja1 Hoja2 y Hoja3 pero supongo
que
algo debe estar haciendo mal.. Puse el llamado al procedimiento desde
un
botón no se si eso sea correcto.

De todos modos gracias a ambos ...
Alguien mas podria ayudarme?










"jaime javier" escribió en el mensaje
news:

Hola, ¿Alguien sabe cómo puedo hacer esto?
Tengo dos consultas de inventarios en hojas de excel separadas digamos

Hoja1
ArticuloA 11
ArticuloC 12
ArticuloD 4

Hoja 2
ArticuloA 5
ArticuloB 10
ArticuloD 5

Quiero que en una tercera hoja se muestren los articulos mezclados con
los
datos que corresponden a cada hoja
Hoja1 Hoja2
ArticuloA 11 5
ArticuloB 0 10
ArticuloC 12 0
ArticuloD 4 5

Espero haberme explicado. Si alguien sabe como se hace le agradecere

mucho

que me detalle como
Atte
Jaime J

Gracias Luis : Ya fuciono. voy a intentar hacer los cambios necesarios para
que funcione en el proyecto real pues el problema que expuse es una
"muestra" del problema real y te aviso
Gracias
Problema resuelto.

"luis" escribió en el mensaje
news:

Copia el código en ThisWorkbook y ejecutalo desde alli.


"jaime javier" escribió en el mensaje
news:
> Gracias Leonel y Luis Por contestar:
> Quiero informarles que la solución de Leonel no funcionó por que no
> muestra
> el resultado esperado, solo la suma de ambas hojas aunque si los mezcla
> bien.
>
> En cuanto a la solcion de Luis tampoco la puedo usar porque Me
> aparecieron
> los siguientes errores
> Error en el método Range del objeto Worksheet en la instrucción que

copia

> la
> celda del la hoja 1 a la hoja 3
> Hoja1.Range(Cells(FilaHoja1, 1), Cells(FilaHoja1,
> UltimaColumnaHoja1)).Copy Destination:=Hoja3.Cells(FilaHoja3, 1)
>
> Me asegure de que las hojas se llaman Hoja1 Hoja2 y Hoja3 pero supongo
> que
> algo debe estar haciendo mal.. Puse el llamado al procedimiento desde
> un
> botón no se si eso sea correcto.
>
> De todos modos gracias a ambos ...
> Alguien mas podria ayudarme?
>
>
>
>
>
>
>
>
>
>
> "jaime javier" escribió en el mensaje
> news:
>> Hola, ¿Alguien sabe cómo puedo hacer esto?
>> Tengo dos consultas de inventarios en hojas de excel separadas digamos
>>
>> Hoja1
>> ArticuloA 11
>> ArticuloC 12
>> ArticuloD 4
>>
>> Hoja 2
>> ArticuloA 5
>> ArticuloB 10
>> ArticuloD 5
>>
>> Quiero que en una tercera hoja se muestren los articulos mezclados con
>> los
>> datos que corresponden a cada hoja
>> Hoja1 Hoja2
>> ArticuloA 11 5
>> ArticuloB 0 10
>> ArticuloC 12 0
>> ArticuloD 4 5
>>
>> Espero haberme explicado. Si alguien sabe como se hace le agradecere
> mucho
>> que me detalle como
>> Atte
>> Jaime J
>>
>>
>
>