Busquedas

12/02/2006 - 14:21 por Javier | Informe spam
hola a todos:
Tengo una hoja de cálculo con varias columnas, entre ellas nº, importe,
fecha y sociedad. Necesito crear mediante una macro o código un
procedimiento en el que yo le introduzca dos valores correspondientes a las
columnas nº e importe y me devuelva verdadero o falso dependiendo de si los
ha encontrado en una misma fila.

Mediante la función FIND encuentro si uno de los valores está en la tabla
pero no soy capaz de buscar el otro valor en la misma fila en la que me ha
encontrado el primero.

¿alguna idea?

Muchas gracias

Javier
 

Leer las respuestas

#1 KL
12/02/2006 - 15:27 | Informe spam
Hola Javier,

Suponiendo que:
- nº esta en la columna [A] y en cualquier formato
- importe esta en la columna [C] y en formato numerico

Prueba algo asi:

Sub test()
Dim Numero As String, Importe As Double, rng As Range
Numero = _
InputBox("introduzca el numero:")
Importe = _
Application.InputBox("introduzca el importe:", , , , , , , 1)
Set rng = [A1]
If Numero = "" And Importe = 0 Then Exit Sub
For i = 0 To Application.CountIf([A:A], Numero) - 1
Set rng = [A:A].Find(Numero, rng.Offset(i))
If rng.Offset(, 2) = Importe Then
MsgBox True
Exit Sub
End If
Next i
MsgBox False
End Sub

Saludos,
KL



"Javier" wrote in message news:
hola a todos:
Tengo una hoja de cálculo con varias columnas, entre ellas , importe,
fecha y sociedad. Necesito crear mediante una macro o código un
procedimiento en el que yo le introduzca dos valores correspondientes a las
columnas nº e importe y me devuelva verdadero o falso dependiendo de si los
ha encontrado en una misma fila.

Mediante la función FIND encuentro si uno de los valores está en la tabla
pero no soy capaz de buscar el otro valor en la misma fila en la que me ha
encontrado el primero.

¿alguna idea?

Muchas gracias

Javier


Preguntas similares