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

1 Respuesta

Respuesta
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas