Consulta con Busqueda!!

HOLA HECTOR!!

No me funciono el codigo : (, lo puse en la hoja de clientes pero al momento
en que digito la cedula no hace nada!

GRACIAS POR LA AYUDA QUE ME ESTAS BRINDANDO!!

"Héctor Miguel" wrote:

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

hola, DOORS !

No me funciono el codigo : (, lo puse en la hoja de clientes pero al momento en que digito la cedula no hace nada!

-> en cual celda 'digitas' la cedula que estas buscando ?
la propuesta menciona que 'mi' supuesto es que se trata de la celda 'A1' -???-
y que el dato de la empresa lo necesitas en la celda 'B1'

comentas cualquier otro detalle que se estuviera quedando 'en el tintero' ?
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

Hola Hector!!, vieras que he tratado todo el dia y no he podido, la cedula la
digito en la celda d9 y en d10 me deberia aparecer el nombre, hice los
cambios en el codigo pero no me funciona.

GRACIAS POR TU AYUDA!!

"Héctor Miguel" wrote:

hola, DOORS !

> No me funciono el codigo : (, lo puse en la hoja de clientes pero al momento en que digito la cedula no hace nada!

-> en cual celda 'digitas' la cedula que estas buscando ?
la propuesta menciona que 'mi' supuesto es que se trata de la celda 'A1' -???-
y que el dato de la empresa lo necesitas en la celda 'B1'

comentas cualquier otro detalle que se estuviera quedando 'en el tintero' ?
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

hola, DOORS !

... he tratado todo el dia y no he podido
la cedula la digito en la celda d9 y en d10 me deberia aparecer el nombre
hice los cambios en el codigo pero no me funciona...

si cambias la propuesta anterior al siguiente codigo... tampoco te funciona ?
comentas donde te deposita los datos ?
saludos,
hector.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$9" Then Exit Sub
If IsEmpty(Target) Then Target.Resize(2).ClearContents: Exit Sub
With Worksheets("clientes")
If Application.CountIf(.[a:a], Target) Then
[d10] = 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.")
[d10] = .Offset(1, 1)
End With
End If
End With
End Sub

HOLA HECTOR!!!

Tampoco me funciona no hace nada : = (

"Héctor Miguel" wrote:

hola, DOORS !

> ... he tratado todo el dia y no he podido
> la cedula la digito en la celda d9 y en d10 me deberia aparecer el nombre
> hice los cambios en el codigo pero no me funciona...

si cambias la propuesta anterior al siguiente codigo... tampoco te funciona ?
comentas donde te deposita los datos ?
saludos,
hector.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$9" Then Exit Sub
If IsEmpty(Target) Then Target.Resize(2).ClearContents: Exit Sub
With Worksheets("clientes")
If Application.CountIf(.[a:a], Target) Then
[d10] = 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.")
[d10] = .Offset(1, 1)
End With
End If
End With
End Sub