Buenas noches,

Quisiera pedirles ayuda con la formulación de un código para el siguiente problema.

Los datos se ingresan a través de un Textbox hacia un Listbox y lo que necesito es que una ves en el Listbox mediante un msgbox informe cuantas unidades de cada código se ingresaron y por ultimo, se grabe en una pestaña del excel.

Ejemplo:

Se guardaran los siguientes datos:

A03223 2 und

A03225 3 und

etc ......

Private Sub CommandButton1_Click()


ListBox1.AddItem (TextBox1.Text)


End Sub 


Private Sub CommandButton2_Click() 


'Debe guardar los datos del ListBox junto a la veces que se repiten en un apestaña de excel


End Sub 

[/CODE]

Adjunto el pequeño form que creé.

Espero me puedan ayudar..

Si tienen alguna otra idea también sera bienvenida.

Gracias.

textbox a Listbox.rar

Sustituye el código del formulario por este:

Private Sub CommandButton1_Click()

ListBox1.AddItem (TextBox1.Value)

End Sub


Private Sub CommandButton2_Click()

Sheets("data").Select

With ListBox1

   For x = 0 To .ListCount - 1

      If IsNull(.List(x, 1)) Then

         Total = 0

         Item = .List(x, 0)

         For xx = 0 To .ListCount - 1

            If .List(xx, 0) = .List(x, 0) Then

               Total = Total + 1

               .List(xx, 1) = "*"

            End If

         Next

         fila = Range("A" & Rows.Count).End(xlUp).Row + 1

         Range("A" & fila) = Item

         Range("B" & fila) = Total

      End If

   Next

   .Clear

   TextBox1 = ""

   TextBox1.SetFocus

End With

End Sub


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

ListBox1.RemoveItem (ListBox1.ListIndex)

End Sub

[/CODE]

Todo perfecto estimado.

Lo único que falto es que antes muestre lo que se va a grabar en un Msgbox o en otra ListBox.

El resto todo perfecto.

Gracias.

Con el permiso de Macro Antonio, con lo poco que voy aprendiendo y siguiendo el ejemplo de ayudar, creo que se puede añadir en CommandButton1:

Empty y SetFocus

Private Sub CommandButton1_Click()

ListBox1.AddItem (TextBox1.Value)

TextBox1 = Empty

TextBox1.SetFocus

End Sub[/CODE]

así quedará textbox1 vacío y esperando un nuevo dato para ingresar

Disculpen la demora, tuve un problema con Chrone y recién pude ingresar por IE.

Gracias por el código también Visor.

Subo el archivo para que veas como va.

Lo que comentaba era que si antes de guardar los datos, se puede mostrar en una nueva ListBox el resumen.

Gracias de nuevo.

Texbox a ListBox.rar