coincidir filas

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

He de confesar que no entiendo porque necesitas lo que pides, pero lo veo
interesante y voy a intentar ayudarte.

Confírmame si he entendido bien o no.

En una hoja tienes:

1 libretas
2 lapiz
3 borrador
5 calculadora

y en la otra:

1 libretas
2 lapiz
4 pluma
5 calculadora


SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"Esteban Cerecer" escribió en el mensaje
news:%

Saludos al grupo,

Espero ser claro con el ejemplo, y lo que quiero tengo una lista de
productos con su existencia, de por ejemplo 150 filas (por dar un numero)
y
otra lista de productos con 170 productos. Algunos productos solo van a
estar en una de las lista, otros van a estar en ambas, lo que quiero es
que,
considerando la clave de manera ordenada (se como hacerlo) haya algo que,
sin hacer el trabajo manual te permita poner los productos coincidentes en
el mismo renglon, los que no coincidan sigan el orden ascendente, y como
no
tienen par en la otra lista esten celdas vacias en ese renglon.

jejeje, no se si los enrede, un ejemplo de como quiero que quede

1 libretas 1 libretas
2 lapiz 2 lapiz
3 borrador
4 pluma
5 calculadora 5 calculadora

..
.. y asi con la lista

el ejemplo muestra el resultado deseado, las dos listas estan en hojas
separadas pero necesito ponerlas en una sola y como el ejemplo

Si tus datos están en las hojas: Hoja1 y Hoja2, en las columnas A:B y
quieres escribir la Hoja2 en las columnas C:D de la Hoja1, quizás con esto
te valga:

Sub prueba()
Dim celda As Range
Cells(1, 3).Select
For Each celda In Sheets("Hoja2").Range("A:A")
If celda.Value = "" Then Exit Sub
1
If celda.Value = ActiveCell.Offset(0, -2).Value Then
2
ActiveCell.Value = celda.Value
ActiveCell.Offset(0, 1).Value = Sheets("Hoja2").Cells(celda.Row,
2).Value
ActiveCell.Offset(1, 0).Select
ElseIf celda.Value > ActiveCell.Offset(0, -2).Value Then
If ActiveCell.Offset(0, -2).Value = "" Then GoTo 2
ActiveCell.Offset(1, 0).Select
GoTo 1
Else
Range("A" & ActiveCell.Row & ":B" & ActiveCell.Row).Insert
Shift:=xlDown
ActiveCell.Value = celda.Value
ActiveCell.Offset(0, 1).Value = Sheets("Hoja2").Cells(celda.Row,
2).Value
ActiveCell.Offset(1, 0).Select
End If
Next celda
End Sub

Saludos desde Tenerife.
***************************
"Esteban Cerecer" escribió en el mensaje
news:%

Saludos al grupo,

Espero ser claro con el ejemplo, y lo que quiero tengo una lista de
productos con su existencia, de por ejemplo 150 filas (por dar un numero)
y
otra lista de productos con 170 productos. Algunos productos solo van a
estar en una de las lista, otros van a estar en ambas, lo que quiero es
que,
considerando la clave de manera ordenada (se como hacerlo) haya algo que,
sin hacer el trabajo manual te permita poner los productos coincidentes en
el mismo renglon, los que no coincidan sigan el orden ascendente, y como
no
tienen par en la otra lista esten celdas vacias en ese renglon.

jejeje, no se si los enrede, un ejemplo de como quiero que quede

1 libretas 1 libretas
2 lapiz 2 lapiz
3 borrador
4 pluma
5 calculadora 5 calculadora

..
.. y asi con la lista

el ejemplo muestra el resultado deseado, las dos listas estan en hojas
separadas pero necesito ponerlas en una sola y como el ejemplo

Gracias por tu ayuda,

lo que quiero es un comparativo de las dos listas, las lista A es lo que
tengo en Almacen y la B lo que solicitan, hay mas informacion, pero para el
ejemplo las columnas que pongo es suficiente.

la informacion vienen de sistemas diferentes y necesito cotajarlas para ver
si lo que tengo en almacen es suficente para lo que me piden, si no es asi,
que productos me hacen falta pedir o si el producto ya existe que cantidad
hace falta.

"julian-vlc-sp" escribió en el mensaje
news:

> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>
He de confesar que no entiendo porque necesitas lo que pides, pero lo veo
interesante y voy a intentar ayudarte.

Confírmame si he entendido bien o no.

En una hoja tienes:

1 libretas
2 lapiz
3 borrador
5 calculadora

y en la otra:

1 libretas
2 lapiz
4 pluma
5 calculadora


SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"Esteban Cerecer" escribió en el mensaje
news:%

Saludos al grupo,

Espero ser claro con el ejemplo, y lo que quiero tengo una lista de
productos con su existencia, de por ejemplo 150 filas (por dar un numero)
y
otra lista de productos con 170 productos. Algunos productos solo van a
estar en una de las lista, otros van a estar en ambas, lo que quiero es
que,
considerando la clave de manera ordenada (se como hacerlo) haya algo que,
sin hacer el trabajo manual te permita poner los productos coincidentes
en
el mismo renglon, los que no coincidan sigan el orden ascendente, y como
no
tienen par en la otra lista esten celdas vacias en ese renglon.

jejeje, no se si los enrede, un ejemplo de como quiero que quede

1 libretas 1 libretas
2 lapiz 2 lapiz
3 borrador
4 pluma
5 calculadora 5 calculadora

..
.. y asi con la lista

el ejemplo muestra el resultado deseado, las dos listas estan en hojas
separadas pero necesito ponerlas en una sola y como el ejemplo

hola chicos, aqui va otra propuesta

se supone que:

1.- las listas estan en las hojas llamadas "Hoja1" y "Hoja2" y cargamos la nueva lista en otra llamada "Hoja3"
2.- las hojas 1 y 2 tienen los titulos en la fila 1 y como poco tienen unaa fila con datos
3.- la hoja 3 eata vacia [ aunque en cualquier caso va a borrar lo que tenga cada vez que se ejecute la macro]

pega este codigo en un modulo normal y ejecuta como mejor te venga (desde elcuadro macros pej.)

Ojo: a los saltos de linea 'accidentales' en el foro

Sub cargarDocles()
Dim n As Long, f As Long, celda As Range
With Worksheets("Hoja3")
.Columns.Clear
With Worksheets("Hoja1")
.Range("a1:b" & .[a65536].End(xlUp).Row).Copy Worksheets("Hoja3").[a1]
End With
f = .[a65536].End(xlUp).Row
n = f + 1
With Worksheets("Hoja2")
.Range("a2:b" & .[a65536].End(xlUp).Row).Copy _
Worksheets("Hoja3").Range("c" & n)
End With
Set celda = .[a1]
Do
If Application.CountIf(.Range("a1:a" & f - 1), .Cells(n, 3).Value) > 0 Then
Set celda = .Range("a1:a" & f - 1) _
.Find(.Cells(n, 3).Value, celda, xlValues, xlWhole)
If Not celda Is Nothing Then
celda.Offset(, 2) = .Cells(n, 3): celda.Offset(, 3) = .Cells(n, 4)
.Rows(n).Delete
End If
Else
.Cells(n, 1) = .Cells(n, 3)
n = n + 1
End If
Loop Until .Cells(n, 3) = ""
Set celda = Nothing
.Range("a1:d" & n - 1).Sort key1:=.[a2], order1:=xlAscending, Header:=xlYes
For Each celda In .Range("b2:b" & .[a65536].End(xlUp).Row)
If celda = "" Then celda.Offset(, -1).Clear
Next
End With
End Sub

solo como una posibilidad mas

un saludo
Ivan

Te agradesco tu respuesta,

desconozco de basic y no se como aplicar lo que me pones. me imagino que
tengo que crear una macro y poner el texto que tienes ahi pero no estoy
seguro si es asi y de como se usaria.


"AnSanVal" escribió en el mensaje
news:

Si tus datos están en las hojas: Hoja1 y Hoja2, en las columnas A:B y
quieres escribir la Hoja2 en las columnas C:D de la Hoja1, quizás con
esto te valga:

Sub prueba()
Dim celda As Range
Cells(1, 3).Select
For Each celda In Sheets("Hoja2").Range("A:A")
If celda.Value = "" Then Exit Sub
1
If celda.Value = ActiveCell.Offset(0, -2).Value Then
2
ActiveCell.Value = celda.Value
ActiveCell.Offset(0, 1).Value = Sheets("Hoja2").Cells(celda.Row,
2).Value
ActiveCell.Offset(1, 0).Select
ElseIf celda.Value > ActiveCell.Offset(0, -2).Value Then
If ActiveCell.Offset(0, -2).Value = "" Then GoTo 2
ActiveCell.Offset(1, 0).Select
GoTo 1
Else
Range("A" & ActiveCell.Row & ":B" & ActiveCell.Row).Insert
Shift:=xlDown
ActiveCell.Value = celda.Value
ActiveCell.Offset(0, 1).Value = Sheets("Hoja2").Cells(celda.Row,
2).Value
ActiveCell.Offset(1, 0).Select
End If
Next celda
End Sub

Saludos desde Tenerife.
***************************
"Esteban Cerecer" escribió en el mensaje
news:%

Saludos al grupo,

Espero ser claro con el ejemplo, y lo que quiero tengo una lista de
productos con su existencia, de por ejemplo 150 filas (por dar un numero)
y
otra lista de productos con 170 productos. Algunos productos solo van a
estar en una de las lista, otros van a estar en ambas, lo que quiero es
que,
considerando la clave de manera ordenada (se como hacerlo) haya algo que,
sin hacer el trabajo manual te permita poner los productos coincidentes
en
el mismo renglon, los que no coincidan sigan el orden ascendente, y como
no
tienen par en la otra lista esten celdas vacias en ese renglon.

jejeje, no se si los enrede, un ejemplo de como quiero que quede

1 libretas 1 libretas
2 lapiz 2 lapiz
3 borrador
4 pluma
5 calculadora 5 calculadora

..
.. y asi con la lista

el ejemplo muestra el resultado deseado, las dos listas estan en hojas
separadas pero necesito ponerlas en una sola y como el ejemplo