Linea vba en excel listbox a textbox

[JoaoM]

Tengo un ListBox con datos, los datos son numéricos con signo moneda Bs 1.234,56

Quiero al dar clic en una determinada línea del ListBox pasar esos datos al TextBox y que también quede en este ultimo con signo moneda también, tal como está e el listBox

algún experto me puede suministrar dicha línea o líneas?

Gracias

[AlexanderS]

Hola, pues prueba así:

Private Sub ListBox1_Click()

TextBox1 = FormatCurrency(ListBox1)

End Sub

[/CODE]

Salu2

[tan178]

Prueba con un InputBox en el evento de darle DblClick al listBox y para el formato del texbox con formato de moneda seria asi.

TextBox5 = Format(TextBox5, "$ #,000.00")

Con un archivo de ejemplo seria mas facil aydudarte.

[JoaoM]

Gracias ridle, muy bien, perfecto, solo me falta ahora asignarle que columna del ListBox entre las 8 que tiene, va a pasar al TextBox pero tu línea es perfecta.

tan178, gracias por tu interés, si lo deseas lo hare

[AlexanderS]

Hola, lo puedes lograr con esta modificación:

With ListBox1

TextBox1 = FormatCurrency(.List(.ListIndex, 0))

End With[/CODE]

Donde el "0" (cero), es la primera columna del listbox y "7" es la ultima.

Salu2

[JoaoM]

Muy bien Ridle.

Voy abriendo nuevo tema y dejare aquí el enlace