¿TextBox guardado en ListBox grabado en 2 filas a la vez?
Tengo unos Textbox que se guardan en un ListBox en una sola fila y se pueden guardar de manera consecutiva varias filas de la siguiente manera:
Pero lo que necesito es que se guarde el TXB1 TXB2 TXB3TBX4TXB5TXB6 y TXB13 de forma repetida en otra fila al mismo tiempo y que en esa fila en las columnas 7,8 y 9 se guarde TXB10 TXB11 y TXB12 y quede de la siguiente forma:
Y que además me permita guardar más datos de forma consecutiva en la siguientes filas pero de la misma forma. EL código que tengo con el que logre lo de la primera imagen es el siguiente:
Private Sub CommandButton1_Click()
'configuramos el listbox para saber cuantas columnas y cuantas filas queremos
Me.ListBox1.ColumnCount = 15
Me.ListBox1.ColumnWidths = "50pt;40pt;180pt;35pt;35pt;30pt;35pt;35pt;30pt;30pt;30pt;30pt;20pt;20pt;20pt"
'agregamos los items
Me.ListBox1.AddItem
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = Me.TextBox1.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Me.TextBox2.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Me.TextBox3.Text & " " & Me.TextBox4.Text & " " & Me.TextBox5.Text & " " & Me.TextBox6.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Me.TextBox7.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Me.TextBox8.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Me.TextBox9.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Me.TextBox10.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Me.TextBox11.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 8) = Me.TextBox12.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 9) = Me.TextBox13.Text
Me.TextBox1 = Empty
Me.TextBox1.SetFocus
Me.TextBox2 = Empty
Me.TextBox2.SetFocus
Me.TextBox3 = Empty
Me.TextBox3.SetFocus
Me.TextBox4 = Empty
Me.TextBox4.SetFocus
Me.TextBox5 = Empty
Me.TextBox5.SetFocus
Me.TextBox6 = Empty
Me.TextBox6.SetFocus
Me.TextBox7 = Empty
Me.TextBox7.SetFocus
Me.TextBox8 = Empty
Me.TextBox8.SetFocus
Me.TextBox9 = Empty
Me.TextBox9.SetFocus
Me.TextBox10 = Empty
Me.TextBox10.SetFocus
Me.TextBox11 = Empty
Me.TextBox11.SetFocus
Me.TextBox12 = Empty
Me.TextBox12.SetFocus
Me.TextBox13 = Empty
Me.TextBox13.SetFocus
End Sub
1 Respuesta
Te anexo el código actualizado, cada que presiones el botón se van a agregar 2 registros.
No es necesario que pongas el foco a cada textbox, solamente se lo tienes que poner al textbox que se va a quedar con el foco.
Private Sub CommandButton1_Click()
'configuramos el listbox para saber cuantas columnas y cuantas filas queremos
Me.ListBox1.ColumnCount = 15
Me.ListBox1.ColumnWidths = "50pt;40pt;180pt;35pt;35pt;30pt;35pt;35pt;30pt;30pt;30pt;30pt;20pt;20pt;20pt"
'agregamos los items
Me.ListBox1.AddItem
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = Me.TextBox1.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Me.TextBox2.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Me.TextBox3.Text & " " & Me.TextBox4.Text & " " & Me.TextBox5.Text & " " & Me.TextBox6.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Me.TextBox7.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Me.TextBox8.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Me.TextBox9.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Me.TextBox13.Text
Me.ListBox1.AddItem
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = Me.TextBox1.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Me.TextBox2.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Me.TextBox3.Text & " " & Me.TextBox4.Text & " " & Me.TextBox5.Text & " " & Me.TextBox6.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Me.TextBox10.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Me.TextBox11.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Me.TextBox12.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Me.TextBox13.Text
'
For i = 1 To 13
'Controls("TextBox" & i) = Empty
Next
Me.TextBox1.SetFocus
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
