Ayuda con Listbox
Buenos días:
Estoy trabajando en un pequeña automatización, y lo que trato de hacer es ingresar información en un listbox desde dos textbox, en columnas diferentes del listbox el problema que solo puedo ingresar la primera fila y al tratar de ingresar un segunda fila esta le cae encima a la primera.
mas especificamente el list box consta de dos columnas una es el producto y otra es el precio, y dos textbox igual una e producto y otra el precio, puedo agregar la primera fila, pero no encuentro como agregar filas adicionales en la medida que vaya introduciendo datos al listbox.
De antemano gracias por su ayuda
Estoy trabajando en un pequeña automatización, y lo que trato de hacer es ingresar información en un listbox desde dos textbox, en columnas diferentes del listbox el problema que solo puedo ingresar la primera fila y al tratar de ingresar un segunda fila esta le cae encima a la primera.
mas especificamente el list box consta de dos columnas una es el producto y otra es el precio, y dos textbox igual una e producto y otra el precio, puedo agregar la primera fila, pero no encuentro como agregar filas adicionales en la medida que vaya introduciendo datos al listbox.
De antemano gracias por su ayuda
1 respuesta
Respuesta de Jorge Cue
1
Lo que puedes hacer en caso que utilices excel es pasar los datos de los Text a dos columnas de una hoja de excel, después puedes utilizar el comando Listbox. Listindex, te paso ejemplo de más de dos columnas:
Numero de fila y ES VARIABLE, NOTA es un UserForm
Private Sub ComboBox2_Click()
Set rangoPRO = Worksheets("PRODUCTOS").Cells(2, 1).CurrentRegion
NúmFila = NOTA.ComboBox2.ListIndex + 1
NúmFila = NúmFila + 1
If NúmFila = 1 Then
NOTA.ListBox1.Clear
Else
ListBox1.AddItem rangoPRO.Cells(NúmFila, 1)
Filanueva = ListBox1.ListCount - 1
ListBox1.List(Filanueva, 1) = rangoPRO.Cells(NúmFila, 2)
ListBox1.List(Filanueva, 2) = Format(ComboBox3.Value, "#,##0.000")
ListBox1.List(Filanueva, 3) = rangoPRO.Cells(NúmFila, 3)
End If
NOTA.ComboBox2.Text = ""
NOTA.ComboBox3.Text = ""
' Trabajando con For i
Filanue = ListBox1.ListCount - 1
If NOTA.ListBox1.List(Filanueva, 1) = "" Then
MsgBox "Debes capturar tonelaje o piezas"
NOTA.ListBox1.Clear
NOTA.ComboBox3.SetFocus
Exit Sub
End If
NOTA.ListBox1.ListIndex = (ListBox1.ListCount - 1)
NOTA.ComboBox3.SetFocus
End Sub
Numero de fila y ES VARIABLE, NOTA es un UserForm
Private Sub ComboBox2_Click()
Set rangoPRO = Worksheets("PRODUCTOS").Cells(2, 1).CurrentRegion
NúmFila = NOTA.ComboBox2.ListIndex + 1
NúmFila = NúmFila + 1
If NúmFila = 1 Then
NOTA.ListBox1.Clear
Else
ListBox1.AddItem rangoPRO.Cells(NúmFila, 1)
Filanueva = ListBox1.ListCount - 1
ListBox1.List(Filanueva, 1) = rangoPRO.Cells(NúmFila, 2)
ListBox1.List(Filanueva, 2) = Format(ComboBox3.Value, "#,##0.000")
ListBox1.List(Filanueva, 3) = rangoPRO.Cells(NúmFila, 3)
End If
NOTA.ComboBox2.Text = ""
NOTA.ComboBox3.Text = ""
' Trabajando con For i
Filanue = ListBox1.ListCount - 1
If NOTA.ListBox1.List(Filanueva, 1) = "" Then
MsgBox "Debes capturar tonelaje o piezas"
NOTA.ListBox1.Clear
NOTA.ComboBox3.SetFocus
Exit Sub
End If
NOTA.ListBox1.ListIndex = (ListBox1.ListCount - 1)
NOTA.ComboBox3.SetFocus
End Sub
