Este fórum está sendo desativado

[JCabral]

Boa tarde

De novo pedindo uma ajuda.

Tenho uma planilha com determinados dados e gostaria de poder selecionar um determinado dado na planilha, fazendo um click na célula ou simplesmente posicionando-me na célula com o rato, e o corresponde valor era ativado na ListBox.

Neste caso concreto ao selecionar um qualquer valor da Coluna "B" era ativado na ListBox, tendo em atenção que a listagem na planilha e na Listbox podem não estar pela mesma ordem, e normalmente não estão.

Anexo esquema do resultado que gostaria que acontece-se ou seja quando estou no "Item #02" na Userform aparecem os dados "3"-correspondente à linha seleccionada; o código e o preço.



Gostaria também que quando a seleção é feita através da ListBox as TextBox também seriam preenchidas.

Obrigado
Jorge Cabral

[alexandrevba]

Bom dia!!

Tente.

Código: Selecionar todos

Private Sub ListBox1_Click()

If Me.ListBox1.ListIndex = -1 Then
        MsgBox " Selecione uma linha"
    ElseIf Me.ListBox1.ListIndex >= 1 Then
        r = Me.ListBox1.ListIndex
        With Me
            .TextBox1.Value = ListBox1.List(r, 0)
            '.TextBox2.Value = ListBox1.List(r, 1)
            'etc
         End With
    End If
End Sub

Att

[JCabral]

Bom dia Alexandrevba

Esse código só funciona quando eu seleciono o valor diretamente na ListBox.
O que pretendia era que ao selecionar um dado diretamente na Coluna "B" da Planilha fosse "ativado"/"Pintado de azul" o dado correspondente na ListBox e fossem preenchidas as TextBox.

Obrigado
Jorge Cabral

[gfranco]

Boa tarde.
Seria +- isso que deseja?

[JCabral]

Gfranco é isso, só falta preencher os dados do Código e do Preço e permitir a mesma operação mas clicando na ListBox, ou seja preencher o Código e o Preço, é possível?

Obrigado
Jorge Cabral

[gfranco]

Jorge...não estou entendendo essa parte. Só tem uma textbox no seu form.
Poderia explicar melhor?

[JCabral]

Gfranco, veja a imagem no primeiro post, devo ter mandado o ficheiro errado, vou retificar no seu ficheiro as duas TextBox.

[gfranco]

boa tarde.
Veja agora.

[JCabral]

Gfranco,

Muito obrigado era mesmo isto

Abraço
Jorge Cabral