Agregar datos en la columna 2 del listbox en Excel
Tengo un ListBox1 {REGISTRO CLIENTES}
ListBox2 {CLIENTES SANCIONADOS}
Explico que del registro clientes selecciono los nombres, y paso aquellos clientes que van ser sancionados, la cual ya tengo resuelto.
Y lo que deseo es:
En LISTBOX 2 (CLIENTES SANCIONADOS) deseo agregar la multa que va estar en la columna 2, y la multa le agrego a través del TEXTBOX1 y cuando le dé APLICAR Y GRABAR lo aplique la multa a cada uno de los clientes sancionados, por ejemplo si los clientes sancionados sería 5 multa 10.00 soles, cada uno de los clientes se aplicaría la multa de 10 en el LISTBOX2 COLUMNA2
Y para finalizar me lo guarde en la hoja de excel cada uno en su columna.
1 Respuesta
H o l a:
Te faltaron comentar algunos detalles.
1. En cuál hoja se van a guardar
2. En cuál columna y en cuál fila, es decir, en tu ejemplo mencionas que van a ser 5 clientes. Entonces tienes que explicar en cuál fila y cuál columna hay que poner la multa de 10 soles al cliente 1; en cuál fila y cuál columna hay que poner la multa de 10 soles al cliente 2; y así para cada cliente me explicas cómo consigo la fila y la columna.
3. Quieres que también se muestre en el listbox2 la columna de la multa, o es suficiente con que se guarde en la hoja.
4. Después de guardar los datos en la hoja, se deben limpiar los listbox.
E spero tus comentarios en ese orden.
S a l u d o s
Buenas tardes amigo Dante.
1.aquí le explico mejor se va guardar en la hoja multas.
2.Sí, deseo que se muestre la columna de la multa.
3. Las cantidades de los sancionados varían no siempre es 5
4. Se va guardar como te muestro en la imagen; en el ejemplo tengo 3 clientes sancionados, se le aplica la multa de 10 soles y lo pasa al excel en sus respectivas columnas.
-habrá otros por ejemplo 10 clientes sancionados le aplico la multa y se debe guardar después del ultimo registro creado.
y así sucesivamente.
Muchas gracias por su atención.
Saludos!!!!
H o l a:
Te anexo la macro
Private Sub CommandButton1_Click()
'Por.Dante Amor
If ListBox2.ListCount = 0 Then
MsgBox "No hay clientes sancionados"
Exit Sub
End If
'
If TextBox1 = "" Then
MsgBox "Captura el valor de la multa"
TextBox1.SetFocus
Exit Sub
End If
'
ListBox2.ColumnCount = 2
Set h2 = Sheets("MULTAS")
u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 0 To ListBox2.ListCount - 1
ListBox2.List(i, 1) = TextBox1
h2.Cells(u, "A") = ListBox2.List(i, 0)
h2.Cells(u, "B") = TextBox1
u = u + 1
Next
MsgBox "Los datos se pasaron a la hoja Multas"
End Sub
Amigo Dante buenas tardes!!
Todo funciona perfecto solo que las multas se guardan como texto y no calcula cuando suma.
Gracias por su atención
Cambia esta línea
h2.Cells(u, "B") = TextBox1
Por esta:
h2.Cells(u, "B") = val(TextBox1)
