Encontrar valores repetidos
Soy novato y no se mucho de vb ok.
Si alguien me quiere ayudar le mandaría lo que tengo para que le eche un vistazo y me diga como hacerlo....
1 respuesta
En mi ejemplo he hecho una base de datos de 2 columnas y empiezan en A1. En la columna A tenemos que tener datos repetidos para probarlo. En la columna B está el otro dato. El resultado de la búsqueda lo pintará a partir de la ceda H1.
Sub busca_varios()
filaclear = Range("h10000").End(xlUp).Row
Range("h1:i" & filaclear).Clear
fila = 1
dato = InputBox("introduzca el dato a buscar")
If dato = "" Then Exit Sub
ultimo = Range("a10000").End(xlUp).Row
Set busca = ActiveSheet.Range("a1:a" & ultimo).Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address
Do
Cells(fila, 8).Value = Range(ubica)
Cells(fila, 9).Value = Range(ubica).Offset(0, 1)
fila = fila + 1
Set busca = ActiveSheet.Range("a1:a" & ultimo).FindNext(busca)
Loop While Not busca Is Nothing And busca.Address <> ubica
End If
End Sub
Recuerda finalizar y puntuar la consulta
"Experto", te agradezco mucho que te hayas tomado el tiempo en tratar de ayudarme, muchas gracias, te muestro en imagen anexa cual es mi problema, espero me puedas ayudar, aunque la solución que me diste no resuelve mi problema, voy a tratar de aplicarla para ver su funcionamiento y aprender un poco mas de vb...muchas gracias
Fernando
http://www.4shared.com/photo/riM2s0v0/Ejemplo.html
La macro que he confeccionado responde a la petición descrita en su consulta: "devolver todos los posibles resultados de una búsqueda".
Solo resta adaptarla a tus datos y ponerla a prueba.
Finaliza y puntúa la consulta
