Error al guardar datos desde ListBox
Publicado por Antonio (1 intervención) el 22/02/2021 21:30:32
Hola, estoy usando un ListBox para guardar los datos a una hoja de Excel pero me da un error, revisando me parece que el código esta bien, agradezco la ayuda.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub BTN_ADD_Click()
Me.Box1.AddItem Me.Tex_Fecha
Me.Box1.List(Me.Box1.ListCount - 1, 2) = Me.Combo_Ruta.Text
Me.Box1.List(Me.Box1.ListCount - 1, 3) = Me.Combo_Agente.Text
Me.Box1.List(Me.Box1.ListCount - 1, 4) = Me.Tex_Boleta.Text
Me.Box1.List(Me.Box1.ListCount - 1, 5) = Me.Combo_Despachador
Me.Box1.List(Me.Box1.ListCount - 1, 6) = Me.Combo_Producto.Text
Me.Box1.List(Me.Box1.ListCount - 1, 7) = Me.Tex_PBruto.Text
Me.Box1.List(Me.Box1.ListCount - 1, 8) = Me.Tex_PNeto.Text
Me.Box1.List(Me.Box1.ListCount - 1, 9) = Me.Combo_Medida.Text
Me.Box1.List(Me.Box1.ListCount - 1, 10) = Me.Tex_Unidades.Text
Me.Box1.List(Me.Box1.ListCount - 1, 11) = Me.Tex_Cajas.Text
Me.Box1.List(Me.Box1.ListCount - 1, 12) = Me.Tex_Fondos.Text
Me.Box1.List(Me.Box1.ListCount - 1, 13) = Me.Tex_Clientes.Text
Valora esta pregunta
0
