Excel - Busqueda avanzada con macros

Estimados

Necesito un codigo en VBA para realizar una busqueda avanzada. P/E

Tengo en la celda A1 el valor de 1 y en la B1 el texto de + y en la C1 el valor de 2 , luego las concateno en la celda D1 para que me de 1+2

El valor de referencia D1 lo uso para realizar una busqueda con la función .find en un rango X y lo busca perfectamente, pero si en la celda A1 pongo 2 y en la C1 pongo 1, D1 = 2+1 me manda al depurador

Como puedo hacer de que la busqueda la haga sea 2+1 o 1+2 si al final el orden de los factores no altera el producto.

Gracias anticipadas

Frank

Creo que para entenderte mejor, seria bueno poder ver el archivo en cuestion: "Cuelgalo" de algun servidor y envia el enlace

Abraham

A ver si les sirve este ejemplo

http://www.uploadyourfiles.de/download.php?file=640busqueda avanzada.xls

saludos

OJO, esstas confundiendo un rpincipio matematico ("el orden de ...") con una cuestion gramatical/ortografica.

Si tu realizas una busqueda de texto (que en la practica es lo que ya tienes ahi), es obivo que no es lo mismo bucar "Abraham" que "Maharbra". Una opcion que tienes es invertir, previo al Find, lo concatenado alternativo y ahi recien proceder a la busqueda, que terminaria siendo similar al texto original

Abraham

ya que no son muchos datos podés buscar celda x celda con un bucle,
comparando si en la celda se encuentra cada uno de los sumandos
Ej:

Sub test()
Dim s$, s1$, s2$, cell As Range
Dim t$, t1$, t2$
s = "b1 + a1"
s1 = UCase(Replace(Split(s, "+")(0), " ", ""))
s2 = UCase(Replace(Split(s, "+")(1), " ", ""))
For Each cell In Range("A1:A59")
t = UCase(Replace(cell.Value, " ", ""))
t1 = Split(t, "+")(0)
t2 = Split(t, "+")(1)
If s1 = t1 And s2 = t2 Or s1 = t2 And s2 = t1 Then
MsgBox cell.Address
End If
Next
End Sub

quizá sea un poco rebuscado, pero ....

Saludos, desde Baires, JuanC

Casi nunca he visto que respondan dos grandes maestros :-)
Que pasaria si en vez de dos sumandos fuesen mas? No nos valdria este procedimiento no Juan C?
Podria llegarse el caso que habria muchas combinaciones , ( lo problemas de combinatoria no los tengo demasiado frescos)
un saludo a todos.

en el caso de más sumandos habría que modificarlo o hacer otra cosa...
no sé si estás suponiendo solamente o lo necesitás...

Saludos, desde Baires, JuanC

Solo es una suposicion desde el punto de vista pedagogico :-)
siempre es bueno aprender jajaja.
Un saludo amigo.

una forma más genérica de lo mismo podría ser algo así...

Sub test()
Dim s$, cell As Range
Dim t$, bflg As Boolean
Dim i%, sText$
sText = "b1 + a1" '//Valor buscado
sText = Replace("+" & UCase(sText), " ", "")
On Error Resume Next
For Each cell In Range("A1:A59")
t = "+" & UCase(Replace(cell.Value, " ", ""))
bflg = True
For i = 1 To 100
Err.Clear
s = "+" & Split(sText, "+")(i)
If Err.Number = 9 Then Exit For
If Not InStr(1, t, s) > 0 Then
bflg = False
Exit For
End If
Next
If bflg Then
MsgBox cell.Address
End If
Next
Set cell = Nothing
End Sub

Saludos, desde Baires, JuanC

Sub test()
Dim s$, cell As Range
Dim t$, bflg As Boolean
Dim i%, sText$
sText = "b1 + a1" '//Valor buscado
sText = "+" & Replace(UCase(sText), " ", "") + "+"
For Each cell In Range("A1:A59")
t = "+" & UCase(Replace(cell.Value, " ", "")) & "+"
bflg = True
For i = 1 To 100
s = "+" & Split(sText, "+")(i) & "+"
If s = "++" Then Exit For
If Not InStr(1, t, s) > 0 Then
bflg = False
Exit For
End If
Next
If bflg Then
MsgBox cell.Address
End If
Next
Set cell = Nothing
End Sub

Me lo apuntaré pues para cuando lo necesite.
Muchas gracias.

Excelente estuvo buenisimo. Gracias!!!
Pero necesito que cuando encuentre la dirección, en vez de un message box me copie en otra celda los datos que se encuentren a la derecha del criterio buscado.
Aqui copio el link para mas claridad

http://www.uploadyourfiles.de/download.php?file=273busqueda avanzada.xls

Saludos y gracia nuevamente

algo así...

Range("M11") = cell.Offset(, 1).Value

Saludos, desde Baires, JuanC

Excellente esa es la idea
Muchas gracias!!!