Terias que informar como carregas, se possivel com exemplo.

Olá,

O José tem muito mais conhecimento e propriedade para falar sobre esse assunto do que eu. Mas pelo que pude entender sua necessidade poderia ser resolvida assim:

ListBox1.BoundColumn = 3
Label.Caption = ListBox1.Value

Abraço

Resolvido! Valeu a dica!!

Gente me ajudaa!!

Por que não consigo trazer o valor da 3 coluna do listbox1????
a questão está nas linhas abaixo do codigo em destaque. Quero que escreva na coluna "O" o resultado do listbox selecionado na coluna 3!

Help

ListBox1.BoundColumn = 3
Sheets("Pedidos").Range("O" & j).Value = ListBox1.List(i)

Private Sub CommandButton2_Click()
Dim i, j, UltimaLinha As Integer
UltimaLinha = Sheets("Pedidos").Cells(Cells.Rows.Count, 1).End(xlUp).Row
If UltimaLinha < 3 Then UltimaLinha = 3
For j = 3 To UltimaLinha
    For i = 0 To ListBox1.ListCount - 1
        If Sheets("Pedidos").Range("A" & j).Value = Val(ListBox1.List(i)) Then
            Sheets("Pedidos").Range("R" & j).Value = CDate(data.Value)
            Sheets("Pedidos").Range("M" & j).Value = "ENVIADO"
            Sheets("Pedidos").Range("AR" & j).Value = "SIM"
            ListBox1.BoundColumn = 3
            Sheets("Pedidos").Range("O" & j).Value = ListBox1.List(i)
        End If
    Next
Next

End Sub

Alguma ideia?

Por esse trecho do codigo fica muito dificil "ver" alguma coisa, aparentemente vc não menciona a 3° coluna do list, apenas seta boundcolumn =3

Me ajuda Reinaldo, não sei mais como fazer. O que precisas que eu te diga?

Precisaria "ver", se puder manda um exemplo de onde roda e o que espera de retorno