Mostrar datos duplicados
hola expertos necesito ayuda urgente realizo un trabajo donde consolido datos y necesito que en la hoja de datos me busque y me muestre los registros duplicados.
en la Hoja1 necesito llenar los siguientes datos buscándolos en la hoja2
CÓDIGO PRODUCTO 1er PRECIO 2do PRECIO 3er PRECIO
00556789 XXXXXXXXXXX
__________________________
en la Hoja2
CÓDIGO PRODUCTO PRECIOS
00556789 XXXXXXXXXXX 23.50
00896745 YYYYYYYYYY 15.20
00785634 ZZZZZZZZZZZZ 21.30
00556789 XXXXXXXXXXX 25.80
Necesito que en la hoja1 me muestre el producto con sus diferentes precios que se encuentran en la hoja2 por ejemplo en la hoja1 el producto con código 00556789 me debe mostrar sus tres precios en el año que se encuentran registrados en la hoja2, primer precio 23.50, segundo precio 25.80 y asi de todos los productos.
agradecería me puedan ayudar con esto
1 Respuesta
Te mando mi solución. Con esta macro lo tienes solucionado pero si quieres me das tu mail y te la mando funcionando:
Sub prueba()
'por luismondelo
Sheets("hoja1").Select
fila = 2
Dim dato As String
dato = InputBox("que código buscamos???" & Chr(13) & "El código se compone de 8 dígitos, rellene con ceros si es necesario")
If dato = "" Then Exit Sub
Set busca = Sheets("hoja2").Range("a1:a100").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address
Do
Cells(fila, 1).Value = busca
Cells(fila, 2).Value = busca.Offset(0, 1)
Cells(fila, 3).Value = busca.Offset(0, 2)
fila = fila + 1
Set busca = Sheets("hoja2").Range("a1:a100").FindNext(busca)
Loop While Not busca Is Nothing And busca.Address <> ubica
End If
End Sub
No lo necesito en macro
Tengo una propuesta con fórmulas, si me das tu mail te lo mando.
