Cargar cuadro combinado de un userform
Hola Bacter, la solución que me has dado para el userform quedo impecable, desde ya agradezco tu ayuda, pero quería consultarte algo.
¿En el texbox3 es posible reemplazarlo por un cuadro combinado el cual pueda elegir entre 20 datos predeterminados?, por ejemplo ... Transporte: VÍA CARGO, LA ESTRELLA, CHEVALLIER, EL RAPIDO, ETC. ¿tendría qué armar una columna con todos estos datos?, ¿Y cuál sería el código para asociar este cuadro combinado? Agradeceré tu respuesta y vuelvo a agradecerte por la anterior. Cordiales saludos.
¿En el texbox3 es posible reemplazarlo por un cuadro combinado el cual pueda elegir entre 20 datos predeterminados?, por ejemplo ... Transporte: VÍA CARGO, LA ESTRELLA, CHEVALLIER, EL RAPIDO, ETC. ¿tendría qué armar una columna con todos estos datos?, ¿Y cuál sería el código para asociar este cuadro combinado? Agradeceré tu respuesta y vuelvo a agradecerte por la anterior. Cordiales saludos.
1 respuesta
Respuesta de bacter582
1
Como estas amigo, tranquilo estamos para ayudar en lo que se pueda
Ingresa un combobox y prueba este código, los distintos item en el combobox los agregas donde esta combobox1. Additem
Private Sub CommandButton1_Click()
Dim ctrl As Control
Dim i As Integer
Dim j As Integer
j = InputBox("indique Nº de textbox a mostrar")
For Each ctrl In UserForm1.Controls
If TypeName(ctrl) = "TextBox" Then
If i < j Then
i = i + 1
With ctrl
.Visible = True
End With
If i = 3 Then
ctrl.Visible = False
ComboBox1.Visible = True
End If
End If
End If
Next ctrl
End Sub
Private Sub UserForm_Initialize()
ComboBox1.Visible = False
ComboBox1.AddItem "VIA CARGO"
ComboBox1.AddItem "LA ESTRELLA"
For Each ctrl In UserForm1.Controls
If TypeName(ctrl) = "TextBox" Then
With ctrl
.Visible = False
End With
End If
Next ctrl
End Sub
Ingresa un combobox y prueba este código, los distintos item en el combobox los agregas donde esta combobox1. Additem
Private Sub CommandButton1_Click()
Dim ctrl As Control
Dim i As Integer
Dim j As Integer
j = InputBox("indique Nº de textbox a mostrar")
For Each ctrl In UserForm1.Controls
If TypeName(ctrl) = "TextBox" Then
If i < j Then
i = i + 1
With ctrl
.Visible = True
End With
If i = 3 Then
ctrl.Visible = False
ComboBox1.Visible = True
End If
End If
End If
Next ctrl
End Sub
Private Sub UserForm_Initialize()
ComboBox1.Visible = False
ComboBox1.AddItem "VIA CARGO"
ComboBox1.AddItem "LA ESTRELLA"
For Each ctrl In UserForm1.Controls
If TypeName(ctrl) = "TextBox" Then
With ctrl
.Visible = False
End With
End If
Next ctrl
End Sub
