Lista Despegable en UserForm (Va dirigida a Dante Amor)
Buenas Noches Dante, como veras vuelvo a la consulta sobre Formularios en Excel 2003, pero esta ves sobre Listas desplegadles, como puedo aplicarlo en dicho Userform que arme, ya que en dos lugares en reiteradas oportunidades se repite el ingreso de Apellido y Nombre o la Dirección.
Esto es lo que arme en el UserForm
ActiveSheet.Cells(12, 4) = TextBox2 ( En dicha celda se carga el Apellido y Nombre)
ActiveSheet.Cells(12, 5) = TextBox3 ( En dicha celda se carga la Direccion)
TextBox2 = Empty
TextBox3 = Empty
Confeccione ya la 2 lista en la hoja de la base de datos están ubicadas Cells(1, 30) Apellido y Nombre y en Cells(1, 31) Dirección
.Lo que consulto es lo siguiente:
-Como armar en el TextBox 2 una lista despegable para el Apellido y Nombre y otra para la Dirección en el TextBox3.
-Que me permita si no se encuentra el (Apellido y Nombre o la Dirección segun el caso tipiarlo para que quede registrado el TextBox2 o el TextBox3, y luego automáticamente lo inserte en dicha lista ya confeccionada previamente, es decir que al intento de un nuevo ingreso estos aparezcan en dicha Lista Despegable
Puede ser?????
JC
1 Respuesta
Buenas Noches Dante, termino de enviarte el correo.
Muchas gracias
JC
Te envié el archivo con el siguiente código incluido
Private Sub UserForm_Activate()
'Por.Dante Amor
cargar
End Sub
Sub cargar()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
ComboBox1.Clear
ComboBox2.Clear
i = 2
Do While h1.Cells(i, "A") <> ""
ComboBox1.AddItem h1.Cells(i, "A")
i = i + 1
Loop
i = 2
Do While h1.Cells(i, "B") <> ""
ComboBox2.AddItem h1.Cells(i, "B")
i = i + 1
Loop
End Sub
Private Sub CommandButton1_Click()
'Por.Dante Amor
If ComboBox1 = "" Then
MsgBox "Debe introducir un nombre y apellido"
ComboBox1.SetFocus
Exit Sub
End If
If MsgBox("Desea crear el nuevo nombre", vbYesNo) = vbYes Then
u = Hoja1.Range("A" & Rows.Count).End(xlUp).Row + 1
Hoja1.Cells(u, "A") = ComboBox1
cargar
MsgBox "Registro creado"
End If
End Sub
Private Sub CommandButton2_Click()
'Por.Dante Amor
If ComboBox2 = "" Then
MsgBox "Debe introducir un origen"
ComboBox2.SetFocus
Exit Sub
End If
If MsgBox("Desea crear el nuevo origen", vbYesNo) = vbYes Then
u = Hoja1.Range("B" & Rows.Count).End(xlUp).Row + 1
Hoja1.Cells(u, "B") = ComboBox2
cargar
MsgBox "Registro creado"
End If
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
