Problema con función excel buscarv
hola
tengo una tabla que meto datos de clientes con los artículos que ha comprado y en la siguiente hoja estoy intentando sacarlos...pero cuando son mas de un articulo no se como hacerlo....con buscarv sale solo el primero...
datos
a1 código cliente,b1 articulo ,g1 precio
a2 código cliente,b2 articulo ,g2 precio
hoja salida
a1 mete código cliente
a3 saca articulo
b3 saca precio
muchas gracias
agradecería vuestra [email protected]
1 respuesta
Respuesta de Luis Mondelo
1
Te mando la solución. Ejecutando esta macro te funcionará:
De todas formas te lo he mandado por mail
Sub clientes()
'por luismondelo
If Range("a1").Value = "" Then Exit Sub
fila = 3
cliente = Range("a1").Value
Set busca = Sheets("hoja1").Range("a1:a100").Find(cliente, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address
Do
Cells(fila, 1) = busca.Offset(0, 1)
Cells(fila, 2) = busca.Offset(0, 6)
fila = fila + 1
Set busca = Sheets("hoja1").Range("a1:a100").FindNext(busca)
Loop While Not busca Is Nothing And busca.Address <> ubica
End If
End Subrecuerda finalizar la consulta
