Error al linkear Datos...URG

30/01/2008 - 02:24 por Mauricio | Informe spam
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
 

Leer las respuestas

#1 Ivan
30/01/2008 - 02:44 | Informe spam
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

Preguntas similares