Mantener formato de la celda de origen (personalizado) en listbox

[Andrey Fernández]

Saludos.

Deseo presentar una información mediante listbox, todo está bien menos una cosa: hay una columna donde la información tiene un formato personalizado (8 mA, 12 mA, 16 mA, etc), el "mA" es el formato personalizado.

Pero el listbox no mantiene el formato y solo presenta (8, 12, 16,..).

Cómo podría solucionar este incoveniente y hacer que el listbox mantenga el formato de origen de la celda?

De antemano, gracias.

(No adjunto archivo porque no lo veo necesario)

[AlexanderS]

El listbox no toma en cuenta el formato personalizado de las celdas, no se como cargas el listbox ya que no adjuntas un ejemplo pero podría ser algo así:

listbox1.additem cells(X,X) & " mA"[/CODE]

Salu2

[Andrey Fernández]

Gracias es muy bueno tu aporte, pero lo que pasa es que mas abajo en la misma columna tengo otros formatos personalizados (mmH2O, °C, mmHg). Por eso deseo que mantenga el formato de origen. ¿Es posible esto?

El listbox lo cargo con un for, y las columnas con offset.

[AlexanderS]

Adjunta un ejemplo entonces...

[Andrey Fernández]

Aquí adjunto como cargo el listbox.

Cargar listbox.txt

[AlexanderS]

Suponiendo que la columna que tiene los formatos condicionales es la "F" el código seria así:

Sheets("HVswitches").Select
Me.ListBox5.Clear
k = 1
filas = Range("A1").CurrentRegion.Rows.Count
For j = 1 To filas
    If Cells(j, k).Value Like TextBox1 Then
    If Cells(j, 4) Like "ANTIGUO" Then
        Me.ListBox5.AddItem Cells(j, k).Offset(0, 2)
        '''''''''''''''''''''''''''''''''''
        Me.ListBox5.List(Me.ListBox5.ListCount - 1, 1) = Format(Cells(j, k).Offset(0, 5), Cells(j, k).Offset(0, 5).NumberFormat)
        '''''''''''''''''''''''''''''''''''
        Me.ListBox5.List(Me.ListBox5.ListCount - 1, 2) = Cells(j, k).Offset(0, 6)
        Me.ListBox5.List(Me.ListBox5.ListCount - 1, 3) = Cells(j, k).Offset(0, 7)
        Me.ListBox5.List(Me.ListBox5.ListCount - 1, 4) = Cells(j, k).Offset(0, 8)
        Me.ListBox5.List(Me.ListBox5.ListCount - 1, 5) = Cells(j, k).Offset(0, 9)
        Me.ListBox5.List(Me.ListBox5.ListCount - 1, 6) = Cells(j, k).Offset(0, 10)
        Me.ListBox5.List(Me.ListBox5.ListCount - 1, 7) = Cells(j, k).Offset(0, 11)
        Me.ListBox5.List(Me.ListBox5.ListCount - 1, 8) = Cells(j, k).Offset(0, 12)
    End If[/PHP]

[Antoni]

Esta función te devuelve el string del final del formato.

Function Formato(Celda As Range) As Variant

x = Split(Celda.NumberFormat, Chr(34))

Formato = x(UBound(x) - 1)

End Function

[/CODE]

Por cierto, has de subir un archivo Excel para poder ver los formatos y el formulario, lo que has subido no sirve para pruebas.

.

[Andrey Fernández]

Aquí te lo adjunto, como verás en algunas columnas hay formatos personalizados (que cambian dentro de la misma columna) y no supe adaptar tu código.

Gracias por la atención.

PruebasFormatoPersonalizado.zip

[Antoni]

He probado la solución aportada por [uSER=143023]@Riddle[/uSER] con tu archivo, cosa que deberías haber hecho tú, y funciona perfectamente.

[Andrey Fernández]

Verás, casi funciona, pero el formato me atraviesa por la mitad al número que acompaña.

Por ejemplo: en la celda dice "10.28 mA" pero el listbox muestra "1mA0.28"...

Esta muy cerca de funcionar, pero no supe corregirlo, muchas gracias a ambos.