Ayuda para VBA...
Hola de nuevo, mi duda es la siguiente: He creado una base de datos en Excel y un formulario para introducir los datos con varios ListBox y TextBox. ¿Cómo puedo hacer que cuando el ListBox 1 esté activo osea (se active o seleccione un dato de la lista) se deseleccione en el ListBox2 y viceversa, cuando clickee en el dato del ListBox2 se deseleccione del ListBox1?, y ¿Qué código tengo que emplear para que cuando seleccione un dato de la lista me aparezca un número que yo designe en un textBox?. Gracias de antemano por tu paciencia y ayuda que me es imprescindible...
1 Respuesta
Respuesta de t4373125
1
Una manera fácil de hacer lo que dices es:
Private Sub ListBox1_Click()
For i = 0 To ListBox2.ListCount - 1
ListBox2.Selected(i) = False
Next
TextBox1.Value = ListBox1.Value
End Sub
Private Sub ListBox2_Click()
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next
TextBox1.Value = ListBox2.Value
End Sub
No lo ves claro, prueba de hacer un formulario nuevo y crear 2 listbox y un textbox, luego añade también este código para inicializar los listbox y veras el funcionamiento en seguida.
Private Sub UserForm_Initialize()
For i = 1 To 10
ListBox1.AddItem i
Next
For i = 20 To 30
ListBox2.AddItem i
Next
End Sub
Private Sub ListBox1_Click()
For i = 0 To ListBox2.ListCount - 1
ListBox2.Selected(i) = False
Next
TextBox1.Value = ListBox1.Value
End Sub
Private Sub ListBox2_Click()
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next
TextBox1.Value = ListBox2.Value
End Sub
No lo ves claro, prueba de hacer un formulario nuevo y crear 2 listbox y un textbox, luego añade también este código para inicializar los listbox y veras el funcionamiento en seguida.
Private Sub UserForm_Initialize()
For i = 1 To 10
ListBox1.AddItem i
Next
For i = 20 To 30
ListBox2.AddItem i
Next
End Sub
