Error al linkear Datos...URG

On 30 ene, 02:24, Mauricio wrote:

Hola al grupo,
gracias a Hector Miguel construí este código para linkear datos a un
formulario desde una hoja excel (Sheet3)...entonces en el formulario en un
textbox1 ingreso un código y al dar enter en el textbox me aparece el
nombre respectivo a este código...tengo una situacion cuando digito por ej.
979no me trae el nombre que pertenece a 979 en Sheet3 si no el nombre de
2979 ...dedusco que tiene que ver con la funcion val que tengo incorporada
sin embargo he probado con cdbl --     not evaluate y no logro
atinar..agradezco sus comentarios

Private Sub TextBox1_AfterUpdate()



> With Worksheets("sheet3")
>    If Application.CountIf(.Range("a:a"), _
>      TextBox1.Value) > 0 Then TextBox2 = _
>        .Range("a:a").Find(val(TextBox1.Value, .[a1], _
>          xlValues).Offset(, 7)
>  End With
> End Sub- Ocultar texto de la cita -

- Mostrar texto de la cita -

hola,

la verdad es qu si el codigo lo tines tal cual lo raro es que no te de
error=> al menos, que se vea a simple vista te falta un cierre de
parentesis tras el uso de Val, en esta linea
=> .Range("a:a").Find(val(TextBox1.Value, .[a1], _ que deberia quedar
asi (aunque no creo que sea el problema)=>

.Range("a:a").Find(val(TextBox1.Value, .[a1], _

de todas formas yo probaria buscar por coincidencia completa, es
decir, añadir al metodo find xlWhole tras xlValues,

y creo que tampoco te haria falta 'Val', al menos si usas
explicitamente las propidades del textbox (Value o Text) como estas
haciendo (de este tema nunca acabo de estar seguro)

te podria quedar +/- asi =>

With Worksheets("sheet3")
If Application.CountIf(.Range("a:a"), _
TextBox1.Value) > 0 Then TextBox2 = _
.Range("a:a").Find(TextBox1.Value, .[a1], _
xlValues, xlWhole).Offset(, 7)
End With

mira a ver que tal

un saludo
Ivan

...glubb...

_ que deberia quedar asi (aunque no creo que sea el problema)=>

.Range("a:a").Find(val(TextBox1.Value), .[a1], _

Ivan...Muchas gracias !!!!!!!!!!!!!!!!!!!!!
me sirvió y funciona bien

"Ivan" escribió:

On 30 ene, 02:24, Mauricio wrote:
> Hola al grupo,
> gracias a Hector Miguel construí este código para linkear datos a un
> formulario desde una hoja excel (Sheet3)...entonces en el formulario en un
> textbox1 ingreso un código y al dar enter en el textbox me aparece el
> nombre respectivo a este código...tengo una situacion cuando digito por ej.
> 979no me trae el nombre que pertenece a 979 en Sheet3 si no el nombre de
> 2979 ...dedusco que tiene que ver con la funcion val que tengo incorporada
> sin embargo he probado con cdbl -- not evaluate y no logro
> atinar..agradezco sus comentarios
>
> Private Sub TextBox1_AfterUpdate()
>
>
>
> > With Worksheets("sheet3")
> > If Application.CountIf(.Range("a:a"), _
> > TextBox1.Value) > 0 Then TextBox2 = _
> > .Range("a:a").Find(val(TextBox1.Value, .[a1], _
> > xlValues).Offset(, 7)
> > End With
> > End Sub- Ocultar texto de la cita -
>
> - Mostrar texto de la cita -

hola,

la verdad es qu si el codigo lo tines tal cual lo raro es que no te de
error=> al menos, que se vea a simple vista te falta un cierre de
parentesis tras el uso de Val, en esta linea
=> .Range("a:a").Find(val(TextBox1.Value, .[a1], _ que deberia quedar
asi (aunque no creo que sea el problema)=>

.Range("a:a").Find(val(TextBox1.Value, .[a1], _

de todas formas yo probaria buscar por coincidencia completa, es
decir, añadir al metodo find xlWhole tras xlValues,

y creo que tampoco te haria falta 'Val', al menos si usas
explicitamente las propidades del textbox (Value o Text) como estas
haciendo (de este tema nunca acabo de estar seguro)

te podria quedar +/- asi =>

With Worksheets("sheet3")
If Application.CountIf(.Range("a:a"), _
TextBox1.Value) > 0 Then TextBox2 = _
.Range("a:a").Find(TextBox1.Value, .[a1], _
xlValues, xlWhole).Offset(, 7)
End With

mira a ver que tal

un saludo
Ivan