UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

davidpaz


Estoy creando un userform, tanto buscar logre la forma de que me acepte ingresar en un listbox 12 columnas mediante 12 textbox pero con esto me limito las la cantidad de filas, solo me deja agregar una sola fila.

mi pregunta es ¿como puedo quitar esa limitación que me aparecio para agregar mas filas en un listbox?

muchas gracias

anexo el codigo que tengo hasta ahorita con ese error

Código:
Private Sub btn_agregar_Click()

        If txt_cedula = "" Then
                MsgBox ("FAVOR LLENAR N° DE CEDULA")
                Me.txt_cedula.SetFocus
                Exit Sub
        
        End If
        
    Me.ListBox_lista_ventas.ColumnCount = 12
    Me.ListBox_lista_ventas.ColumnWidths = "0 pt;0 pt;0 pt;0 pt;50 pt;130 pt;0 pt;80 pt;80 pt;60 pt;0 pt;0 pt"
      
    With Me.ListBox_lista_ventas
    
     .List = Range("A1:L1").Value
     .ColumnCount = 12
     .ColumnWidths = "0 pt;0 pt;0 pt;0 pt;50 pt;130 pt;0 pt;80 pt;80 pt;60 pt;0 pt;0 pt"
    
        'Agreamos los Items
        ListBox_lista_ventas.AddItem
        Me.ListBox_lista_ventas.List(I, 0) = Format(Me.txt_fecha, "DD / MM / YYY")
        Me.ListBox_lista_ventas.List(I, 1) = Me.txt_N_fact.Value
        Me.ListBox_lista_ventas.List(I, 2) = Format(Me.txt_cedula, "###,###,###")
        Me.ListBox_lista_ventas.List(I, 3) = UCase(Me.txt_nombre.Text)
        Me.ListBox_lista_ventas.List(I, 4) = Me.txt_codigo.Value
        Me.ListBox_lista_ventas.List(I, 5) = UCase(Me.txt_nombre_pdto.Text)
        Me.ListBox_lista_ventas.List(I, 6) = Me.txt_existencias.Value
        Me.ListBox_lista_ventas.List(I, 7) = Me.txt_und_vendida.Value
        Me.ListBox_lista_ventas.List(I,  = Format(Me.txt_vlr_unit, "$###,###")
        Me.ListBox_lista_ventas.List(I, 9) = Format(Val(Me.txt_und_vendida) * Me.txt_vlr_unit, "$###,###")
        Me.ListBox_lista_ventas.List(I, 10) = UCase(Me.txt_observacion.Text)
        Me.ListBox_lista_ventas.List(I, 11) = UCase(Me.txt_Fpago.Text)
        On Error Resume Next
        
        I = I + 1
        
        'Liampiamos los TextBox
        Me.txt_codigo = Empty
        Me.txt_und_vendida = Empty
        Me.txt_observacion = Empty
        Me.txt_vlr_unit = Empty
        
    End With
        
        Me.txt_codigo.SetFocus
        
vTotal = 0
    
    For I = 0 To Me.ListBox_lista_ventas.ListCount - 1
        vTotal = vTotal + Me.ListBox_lista_ventas.List(I, 9)
    Next I
    
    Me.txt_TotalFactura = Format(vTotal, "$###,###.00")


End Sub

jhon1904

avatar
Hola David

sera que el error radica por que estas colocando dos veces la propiedad columncount, elimina la primera haber si soluciona el error

le recuerdo que siempre que abras un tema debe adjuntar el documento de ejemplo para poder ayudarte mejor.

saludos,


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

davidpaz


No, aun que le deje solo una linea de columncount me sigue apareciendo el mismo error

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.