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

Suban sus archivos a servidor externo (Dropbox, google, etc) y dejan enlace en su consulta.

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


Cuando lleno los datos de los TextBox, oprimo el boton agregar, con eso paso los datos al ListBox en la primera fila del listboxl, hasta alli va todo bien, pero cuando lleno otra ves los textbox con datos y los vuelvo a agregar al listbox me sobrescribe los datos que ya tenia agregados.

como hago para que cuando lo vuelva a hacer me coloque otra fila en el ListBox y no me los sobrescriba en la fila que ya se agrego?

https://drive.google.com/open?id=15QjbFD-szze6H2equ7flYCGuBXYoMN5G

jhon1904

avatar
hola davipaz

ve a los códigos del  botón agregar  y quita la propiedad Clear ya que cada vez que agregas datos al formulario lo que hace es borrar primero los datos de listbox y luego agregar, por esos siempre va agregar una sola fila de datos.


saludos,


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

Antoni


Modifica tu procedimiento:
Código:
Private Sub CommandButton1_Click()
With ListBox1
  .AddItem  'A partir de aquí carga los datos de los TextBoxes
   .List(.ListCount - 1, 0) = TextBox1
   .List(.ListCount - 1, 1) = TextBox2
   .List(.ListCount - 1, 2) = TextBox3
   .List(.ListCount - 1, 3) = TextBox4
   .List(.ListCount - 1, 4) = TextBox5
   .List(.ListCount - 1, 5) = TextBox6
   .List(.ListCount - 1, 6) = TextBox7
   .List(.ListCount - 1, 7) = TextBox8
   .List(.ListCount - 1,  = TextBox9
   .List(.ListCount - 1, 9) = TextBox10
   .List(.ListCount - 1, 10) = TextBox11
   .List(.ListCount - 1, 11) = TextBox12
   .List(.ListCount - 1, 12) = TextBox13
   .List(.ListCount - 1, 13) = TextBox14
   .List(.ListCount - 1, 14) = TextBox15
End With
End Sub

y añade:
Código:
Private Sub UserForm_Initialize()
With ListBox1
    .ColumnCount = 15  'Cantidad de columnas = cantidad de TextBoxes
    .List = [A1:O1].Value 'Rango de datos "temporal" para que se cargue en el ListBox
End With
End Sub

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.