Jump to content

Como asignar formatos a columnas en un listbox


Recommended Posts

 

Hola buenas tardes, soy nuevo en el grupo y en  crear macros en excel , he estado aprendiendo a programar vba en las redes. Actualmente le  estoy desarrollando un control de clientes y trabajos al negocio de mi hija y poco a poco le he estado creando formularios, aca les dejo el formulario que estoy desarrollando para visualizar los clientes y el trabajo que amerita cada uno así como sus costos.

En la visualización en el listbox no he podido encontrar que me traiga el mismo formato  que tiene cada columna  en la hoja de calculo.

Les agradezco la ayuda que me puedan aportar. Gracias

 

Private Sub Combobox1_Change()

Dim vtotal As Currency
Dim i As Long
Dim vtotal1 As Currency
Dim E As Long

Dim fila, a As Integer

On Error Resume Next
'Borra datos del listbox
ListBox1.Clear

a = 0
fila = 2
'Bucle mientras la fila no esté vacia
While Sheets("bd").Cells(fila, 5) <> Empty
      dato = ComboBox1
'Si el dato de la fila coincide con textbox carga los datos al listbox
  'Var = Sheets("bd").Cells(fila, 5)
   If Sheets("bd").Cells(fila, 5) = dato Then
         
        'Copia los datos de la celda list box
        a = ListBox1.ListCount
        ListBox1.AddItem
        ListBox1.List(a, 0) = Sheets("bd").Cells(fila, 2)
        ListBox1.List(a, 1) = Sheets("bd").Cells(fila, 3)
        ListBox1.List(a, 2) = Sheets("bd").Cells(fila, 4)
        ListBox1.List(a, 3) = Sheets("bd").Cells(fila, 7)
        ListBox1.List(a, 4) = Sheets("bd").Cells(fila, 8)
        ListBox1.List(a, 5) = Sheets("bd").Cells(fila, 9)
        ListBox1.List(a, 6) = Sheets("bd").Cells(fila, 10)
        ListBox1.List(a, 7) = Sheets("bd").Cells(fila, 13)
        ListBox1.List(a, 8) = Sheets("bd").Cells(fila, 14)
        ListBox1.List(a, 9) = Sheets("bd").Cells(fila, 15)
     
   End If
   
'Aumento la fila para que pase a la siguiente
fila = fila + 1

 'totalizar los trabajos de cada cliente y ver los montos pendientes por pagar

 vtotal = 0
    For i = 0 To Me.ListBox1.ListCount - 1
    vtotal = vtotal + Val(Me.ListBox1.List(i, 8))
    Next i
    Me.TextBox2 = Format(vtotal, "$###,##0")
vtotal1 = 0
    For E = 0 To Me.ListBox1.ListCount - 1
    vtotal1 = vtotal1 + Val(Me.ListBox1.List(E, 9))
    Next E
    Me.TextBox1 = Format(vtotal1, "$###,##0")

Wend

'Devuelvo movimientos de la pantalla
Application.ScreenUpdating = True
End Sub

 

prueba.xlsm

Link to post
Share on other sites
'Copia los datos de la celda list box
        a = ListBox1.ListCount
        ListBox1.AddItem
        ListBox1.List(a, 0) = Sheets("bd").Cells(fila, 2)
        ListBox1.List(a, 1) = Sheets("bd").Cells(fila, 3)
        ListBox1.List(a, 2) = Sheets("bd").Cells(fila, 4)
        ListBox1.List(a, 3) = Sheets("bd").Cells(fila, 7)
        ListBox1.List(a, 4) = Sheets("bd").Cells(fila, 8)
        ListBox1.List(a, 5) = Sheets("bd").Cells(fila, 9)
        ListBox1.List(a, 6) = Format(Sheets("bd").Cells(fila, 10), "$###,##0") 'Cambiar
        ListBox1.List(a, 7) = Format(Sheets("bd").Cells(fila, 13), "$###,##0") 'Cambiar
        ListBox1.List(a, 8) = Format(Sheets("bd").Cells(fila, 14), "$###,##0") 'Cambiar
        ListBox1.List(a, 9) = Format(Sheets("bd").Cells(fila, 15), "$###,##0") 'Cambiar

Hola, cambia en el fila  10, 13, 14 y 15 (Format(Sheets("bd").Cells(fila, 10), "$###,##0") 'Cambiar)

Link to post
Share on other sites

Así también valdría:

...
        ListBox1.List(a, 6) = Sheets("bd").Cells(fila, 10).Text
        ListBox1.List(a, 7) = Sheets("bd").Cells(fila, 13).Text
        ListBox1.List(a, 8) = Sheets("bd").Cells(fila, 14).Text
        ListBox1.List(a, 9) = Sheets("bd").Cells(fila, 15).Text
...

 

Link to post
Share on other sites
En 5/4/2020 at 18:49 , rolano dijo:

'Copia los datos de la celda list box
        a = ListBox1.ListCount
        ListBox1.AddItem
        ListBox1.List(a, 0) = Sheets("bd").Cells(fila, 2)
        ListBox1.List(a, 1) = Sheets("bd").Cells(fila, 3)
        ListBox1.List(a, 2) = Sheets("bd").Cells(fila, 4)
        ListBox1.List(a, 3) = Sheets("bd").Cells(fila, 7)
        ListBox1.List(a, 4) = Sheets("bd").Cells(fila, 8)
        ListBox1.List(a, 5) = Sheets("bd").Cells(fila, 9)
        ListBox1.List(a, 6) = Format(Sheets("bd").Cells(fila, 10), "$###,##0") 'Cambiar
        ListBox1.List(a, 7) = Format(Sheets("bd").Cells(fila, 13), "$###,##0") 'Cambiar
        ListBox1.List(a, 8) = Format(Sheets("bd").Cells(fila, 14), "$###,##0") 'Cambiar
        ListBox1.List(a, 9) = Format(Sheets("bd").Cells(fila, 15), "$###,##0") 'Cambiar

Hola, cambia en el fila  10, 13, 14 y 15 (Format(Sheets("bd").Cells(fila, 10), "$###,##0") 'Cambiar)

Hola buen dia, ya realice los cambios a las celdas y efectivamente le coloca los formatos asignados, pero el problema es que ahora no me quiere totalizar en los textbox .  ¿Seral que  los tomó como formatos textos?. Gracias

Link to post
Share on other sites
×
×
  • Create New...

Important Information

Privacy Policy