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
a


  • Crear macros Excel

  • Posts

    • Hola a todos. Quería vuestra opinión. Tengo un programa que envío las nóminas por correo y en una hoja tengo una tabla con los empleados. La empresa ha decidido cambiar todos los ID de los empleados poniendo un carácter más delante. Es decir, si alguien era el 76254 ahora es 076254. Yo en mis PDFs lo tenía como (76254)_Nómina_2020_10. Ahora que tengo más de 1.000 fichero guardados he de volver  renombrarlos con (076254)_Nómina_2020_10. Y lo que quería preguntaros es si me aconsejáis que haga una macro para cambiar el nombre de cada fichero (cosa que no veo por donde empezar) o que me busque en la Red algún programa que haga esto específicamente. Gracias. Moisés.
    • Saludos a todos, con la siguiente disyuntiva quiero con macros filtrar una base de datos para quitarle todos los espacios en blanco y copiar los valores restantes a otra hoja. Pero al momento de estar grabando la macro me marca este error "Demasiadas continuaciones de linea". Anexo archivo de ejemplo. De antemano muchas gracias.   demasiadas continuaciones de lineas .xlsm
    • Muchas gracias. Funciona perfecto 😊
    • Ayuda, tengo dificultad para obtener las sumas parciales y totales por mes, de cada hoja de control de tiempo trabajado de cada colaborador en: CCTC1, CCTC2, CCTC3 y CCTC4 en la columna de tiempo tiempo trabajado, también la conversión de la columna total en horas trabajado en horas, ésta conversión se traslada a la hoja de DATOSRESUMEN en el CUADRO 1. REGISTRO DE HORARIO TRABAJADO, de cada colaborador.    AYUDAEXCEL25.11.2020.xlsx
    • Muchísimas gracias. Es justo lo que necesitaba. Millones de gracias
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy