Consulta con Busqueda!!

mira a ver si te sirve esta sencilla función




Private Function find_exists(str_buscar as string) As Boolean 'busca el
numero de empleado para evitar empleados repetidos
Dim found As Range
On Error Resume Next
Set found = Cells.Find(str_buscar, ActiveCell, xlValues, xlPart, ,
xlPrevious) ' la funcion esta devuelve un valor del tipo "range"
If found.Address = "" Then
find_exists = False
Else
find_exists = True
End If
End Function

yo la uso asi
if find_exists=true then

codigo... que se ejecuta cuando si lo encontró
else
codigo que se ejecuta cuando no se encontró ' aqui colocarias tu msgbox " no
se encontro",etc..
end if




espero que te sirva.

zz [MX]
cuasi-musico,semi-poeta y loco


"DOORS" wrote in message
news:

Amigos, gracias por sus prontas repuestas, pero lo que necesito es que
cuando
ella hace la busqueda y no encuentre el dato me envie un mensaje de que
ese
cliente no existe, que si desea crearlo, al darle yo aceptar me llama una
form que tengo para la insercion de los datos.

mas que todo seria con codigo de visual basic (creo)

Gracias!

"alberto" wrote:

Doors:

utiliza esta formula =BUSCARV(C18;Hoja1!H61:I73;2;FALSO), suponiendo que
el
dato o clave que busques esta en tu hoja 2, en la celda c18, esta formula
la
pondria en d18, tus datos estan en la hoja 1 desde h61 a i73, si quieres
cambiar el nombre (dices que se llama clientes) entre ;lo borras y te
cambias
a la hoja y marcas el rango correcto, el 2 es que el nombre que buscas y
este
dato esta en la segunda columna de tu base de datos si es difernte
ponele
el No. correcto 3,4,5,6,7,

comentas


"DOORS" wrote:

> Saludos,
>
> Amigos, tengo una consulta, tengo recibo en excel, a la hora digitar la
> cédula jurídica del cliente me aparece el nombre, la consulta mia es si
> ese
> cliente no existe que me envie un mensaje diciendome eso y despues que
> me
> permita insertar los datos del cliente en una hoja que tengo que se
> llama
> clientes.
>
> Lo que no he logrado hacer es que cuando digito el numero de cedula que
> me
> busque en la hoja de clientes la existencia de ese registro.
>
> Alguien me puede ayudar ??
>
> GRACIAS!

Me corrijo


yo la uso asi

if find_exists(str_busqueda)=true then





"zz" wrote in message
news:

mira a ver si te sirve esta sencilla función




Private Function find_exists(str_buscar as string) As Boolean 'busca el
numero de empleado para evitar empleados repetidos
Dim found As Range
On Error Resume Next
Set found = Cells.Find(str_buscar, ActiveCell, xlValues, xlPart, ,
xlPrevious) ' la funcion esta devuelve un valor del tipo "range"
If found.Address = "" Then
find_exists = False
Else
find_exists = True
End If
End Function

yo la uso asi
if find_exists=true then

codigo... que se ejecuta cuando si lo encontró
else
codigo que se ejecuta cuando no se encontró ' aqui colocarias tu msgbox "
no se encontro",etc..
end if




espero que te sirva.

zz [MX]
cuasi-musico,semi-poeta y loco


"DOORS" wrote in message
news:

Amigos, gracias por sus prontas repuestas, pero lo que necesito es que
cuando
ella hace la busqueda y no encuentre el dato me envie un mensaje de que
ese
cliente no existe, que si desea crearlo, al darle yo aceptar me llama una
form que tengo para la insercion de los datos.

mas que todo seria con codigo de visual basic (creo)

Gracias!

"alberto" wrote:

Doors:

utiliza esta formula =BUSCARV(C18;Hoja1!H61:I73;2;FALSO), suponiendo
que el
dato o clave que busques esta en tu hoja 2, en la celda c18, esta
formula la
pondria en d18, tus datos estan en la hoja 1 desde h61 a i73, si quieres
cambiar el nombre (dices que se llama clientes) entre ;lo borras y te
cambias
a la hoja y marcas el rango correcto, el 2 es que el nombre que buscas y
este
dato esta en la segunda columna de tu base de datos si es difernte
ponele
el No. correcto 3,4,5,6,7,

comentas


"DOORS" wrote:

> Saludos,
>
> Amigos, tengo una consulta, tengo recibo en excel, a la hora digitar
> la
> cédula jurídica del cliente me aparece el nombre, la consulta mia es
> si ese
> cliente no existe que me envie un mensaje diciendome eso y despues que
> me
> permita insertar los datos del cliente en una hoja que tengo que se
> llama
> clientes.
>
> Lo que no he logrado hacer es que cuando digito el numero de cedula
> que me
> busque en la hoja de clientes la existencia de ese registro.
>
> Alguien me puede ayudar ??
>
> GRACIAS!

Saludos,

Amigos, gracias por sus prontas respuestas pero aun sigo son lograr el
objetivo : (.

Por ejemplo,

Yo tengo una hoja que se llama Recibo y otra que se llama Clientes.

En la hoja de recibo tengo un campo que se llama Cédula Juridica, cuando yo
digito esa cédula , lo quiero hacer es que por medio de codigo visual basic,
me busque en la hoja de clientes si esta cédula existe. Si la cédula existe
entonces me carga el nombre de la empresa, pero si no existe entonces me
llama una form para insertar el registro del cliente.

El codigo tiene que ser en visual ya que no tengo forma de llamar a la form
desde excel.


Gracias!!

"DOORS" wrote:

Saludos,

Amigos, tengo una consulta, tengo recibo en excel, a la hora digitar la
cédula jurídica del cliente me aparece el nombre, la consulta mia es si ese
cliente no existe que me envie un mensaje diciendome eso y despues que me
permita insertar los datos del cliente en una hoja que tengo que se llama
clientes.

Lo que no he logrado hacer es que cuando digito el numero de cedula que me
busque en la hoja de clientes la existencia de ese registro.

Alguien me puede ayudar ??

GRACIAS!

hola, DOORS !

__ 1 __

Yo tengo una hoja que se llama Recibo y otra que se llama Clientes.
En la hoja de recibo tengo un campo que se llama Cedula Juridica, cuando yo digito esa cedula

1) cual es la celda donde digitas el dato que necesitas buscar ?

__ 2 __

lo quiero hacer es que por medio de codigo visual basic, me busque en la hoja de clientes si esta cedula existe.

2) cual es el rango donde se deberia buscar 'a ver si se encuentra' la cedula que digitas en la otra hoja ?
y... cuantas columnas mas contienen informacion [y de que tipo] en la hoja de clientes ?

__ 3 __

Si la cedula existe entonces me carga el nombre de la empresa

3) en cual celda necesitas que 'se cargue' el nombre de la empresa ?
[y cualquier otro dato adicional... en cuales otras celdas] ?
[y de que columnas de la hoja de clientes estamos hablando para cada dato] ?

__ 4 __

pero si no existe entonces me llama una form para insertar el registro del cliente...

4) algun otro detalle que estes 'dejando en el tintero' ?

saludos,
hector.

hola, DOORS !

El rango es en la columna A que es la cedula y en la B el nombre...

[pues]... todavia han quedado algunos detalles en el tintero :D
la siguiente propuesta es solo para un 'acercamiento' :))
de seguro no cumple aun con -todos- los requisitos 'del caso' pero... -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

suponiendo que el codigo que buscar lo escribes en la celda 'A1' de la hoja 'recibo'
y que el dato de la empresa 'encontrada' quieres ponerlo en 'B1' de la misma hoja...

copia/pega las siguientes instrucciones en el modulo de codigo de la hoja 'clientes'...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
With Worksheets("clientes")
If Application.CountIf(.[a:a], Target) Then
[b1] = Evaluate("index(clientes!b:b,match(" & Target & ",clientes!a:a,0))")
Else
If MsgBox(Target & " NO existe en la hoja clientes." & vbCr & _
"Confirmas que se debe dar de alta?", _
vbYesNo + vbQuestion, "Registro de clientes...") _
= vbNo Then Target.Resize(, 2).ClearContents: Exit Sub
With .Range("a" & Rows.Count).End(xlUp)
.Offset(1) = Target
.Offset(1, 1) = InputBox("Indica el nombre de la empresa.")
[b1] = .Offset(1, 1)
End With
End If
End With
End Sub