Problema con listbox con decimales, parte2

[ALDO GARCIA]

Tuve la oportunidad de contar con el apoyo de DiegoPC en el proyecto de mi post anterior, él definió correctamente con el código la aparición de decimales en listbox y textbox de una determinada columna ("E"), sin embargo, y por un error totalmente mío, no considere que serían dos las columnas en que requeria que aparecieran los decimales. He intentado adecuar el codigo que DiegoPC me facilito, pero simplemente no le "atino" al que corresponde.

Las columnas deben ser "D" y "E" que en el proyecto le llamo "Inicial" y "CostoI" respectivamente. Adjunto el archivo correspondiente y agradezco de antemano su apoyo.

zproblema2.rar

[elunico22]

Hola @[uSER=116]ALDO GARCIA[/uSER]

Para eso ingresa el siguiente codigo en la subrutina CargarVid

L.List(L.ListCount - 1, y) = Format(K.List(x, y - 1), "#,##0.00")

Y te quedara asi

Private Sub CargarVid()

Application.ScreenUpdating = False


L.Clear

Sheets("fin").Select

K.RowSource = "b2:h" & Range("b" & Rows.Count).End(xlUp).Row

For x = 0 To K.ListCount - 1

    L.AddItem x + 1

    cadena = ""

    For y = 0 To K.ColumnCount - 1


        If y = 3 Then

            L.List(L.ListCount - 1, y + 1) = Format(K.List(x, y), "#,##0.00")

            L.List(L.ListCount - 1, y) = Format(K.List(x, y - 1), "#,##0.00")

            cadena = cadena & Format(K.List(x, y), "#,##0.00")

        Else

            L.List(L.ListCount - 1, y + 1) = K.List(x, y)

            cadena = cadena & K.List(x, y)

        End If



    Next

    ' If Not (cadena) Like "*" & UCase(Texto) & "*" Then L.RemoveItem (L.ListCount - 1)

Next


Sheets("fin").Select

Application.ScreenUpdating = True


End Sub[/CODE]

Saludos

[elunico22]

Hola @[uSER=116]ALDO GARCIA[/uSER]

Para eso ingresa el siguiente codigo en la subrutina CargarVid

L.List(L.ListCount - 1, y) = Format(K.List(x, y - 1), "#,##0.00")

Y te quedara asi

Private Sub CargarVid()

Application.ScreenUpdating = False


L.Clear

Sheets("fin").Select

K.RowSource = "b2:h" & Range("b" & Rows.Count).End(xlUp).Row

For x = 0 To K.ListCount - 1

    L.AddItem x + 1

    cadena = ""

    For y = 0 To K.ColumnCount - 1


        If y = 3 Then

            L.List(L.ListCount - 1, y + 1) = Format(K.List(x, y), "#,##0.00")

            L.List(L.ListCount - 1, y) = Format(K.List(x, y - 1), "#,##0.00")

            cadena = cadena & Format(K.List(x, y), "#,##0.00")

        Else

            L.List(L.ListCount - 1, y + 1) = K.List(x, y)

            cadena = cadena & K.List(x, y)

        End If



    Next

    ' If Not (cadena) Like "*" & UCase(Texto) & "*" Then L.RemoveItem (L.ListCount - 1)

Next


Sheets("fin").Select

Application.ScreenUpdating = True


End Sub[/CODE]

Saludos

[ALDO GARCIA]

Muchas gracias en verdad elunico22 por tu apoyo, lo adecue al proyecto original y me da los resultados que necesitaba. Doy por solucionado el tema.

[elunico22]

Que bueno que te haya servido.

Saludos Tema cerrado