![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
08/11/2010, 16:19
|
![Avatar de mrocf](http://static.forosdelweb.com/customavatars/avatar174421_2.gif) | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 10 meses Puntos: 88 | |
Buscar un dato de una tabla en excel con VB ¡Ahora sí que se entiende a la perfección!... Podrías intentar lo siguiente:
Código vb:
Ver originalPrivate Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim C As Range Set C = Worksheets("Hoja1").[a:a].Find(What:=TextBox1, LookIn:=xlValues, LookAt:=xlWhole) If C Is Nothing Then MsgBox "Temperatura no especificada" Cancel = True Exit Sub End If TextBox2 = C.Offset(, 1) TextBox3 = C.Offset(, 2) Set C = Nothing End Sub
La idea es que tú introduces la temperatura en el TextBox1 y das un <Tab> (o sea: sales de esa caja de texto) y se buscará la información en la columna "A" de la hoja "Hoja1".
Si se encuentra el dato: se despliega la información asociada en los Textbox 2 y 3.
Si no se encuentra, se despliega un mensaje.
¿Es lo que andabas buscando?
Saludos, Cacho. |