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

'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)

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
...

 

Hola amigo, muchas gracias por su ayuda. Ya realice las modificaciones y funciono perfecto.

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