Formulario en excel
Buenos Días. Tengo una duda y es la siguiente:tengo una tabla en excel donde almaceno información sobre diferentes tipos de tuberías de acueducto y sus respectivos diámetros.
Cree un formulario en el editor de visual de excel y quiero saber como hago para que desde el formulario cuando el usuario elija un tipo de tubería(mediante selección)el le muestre automáticamente su respectivo diámetro.
Muchas gracias por la ayuda que me puedas brindar.
Mi mail es [email protected]
Cree un formulario en el editor de visual de excel y quiero saber como hago para que desde el formulario cuando el usuario elija un tipo de tubería(mediante selección)el le muestre automáticamente su respectivo diámetro.
Muchas gracias por la ayuda que me puedas brindar.
Mi mail es [email protected]
1 Respuesta
Respuesta de Elsa Matilde
1
Utilicé como ejemplo un cuadro combinado (por lo de "selección").
Private Sub ComboBox1_Change()
'tomé como ejemplo un combobox
tubo = ComboBox1.Value
'ajusta el rango de donde estará la lista de tuberías
rango = "A2:A10"
'ajusta el nombre de la hoja
Set diametro = Sheets("Hoja1").Range(rango).Find(tubo, LookIn:=xlValues, LookAt:=xlWhole)
If Not diametro Is Nothing Then
'devuelve en un Textbox el valor que se encuentra en la col siguiente
TextBox1.Value = diametro.Offset(0, 1).Value
End If
Set diametro = Nothing
End Sub
En caso de utilizar un cuadro de texto para el ingreso de la tubería, el procedimiento será:
Private Sub TextBox2_AfterUpdate()
Private Sub ComboBox1_Change()
'tomé como ejemplo un combobox
tubo = ComboBox1.Value
'ajusta el rango de donde estará la lista de tuberías
rango = "A2:A10"
'ajusta el nombre de la hoja
Set diametro = Sheets("Hoja1").Range(rango).Find(tubo, LookIn:=xlValues, LookAt:=xlWhole)
If Not diametro Is Nothing Then
'devuelve en un Textbox el valor que se encuentra en la col siguiente
TextBox1.Value = diametro.Offset(0, 1).Value
End If
Set diametro = Nothing
End Sub
En caso de utilizar un cuadro de texto para el ingreso de la tubería, el procedimiento será:
Private Sub TextBox2_AfterUpdate()
