Guru do Excel e Power BI

Enviado: **30 Nov 2017 às 10:46**

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.

Imagem

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

Obrigado
Jorge Cabral

Enviado: **30 Nov 2017 às 10:50**

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

Enviado: **30 Nov 2017 às 11:12**

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

Enviado: **30 Nov 2017 às 12:09**

Boa tarde.
Seria +- isso que deseja?

Enviado: **30 Nov 2017 às 13:04**

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

Enviado: **30 Nov 2017 às 13:08**

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

Enviado: **30 Nov 2017 às 13:26**

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

Enviado: **30 Nov 2017 às 14:09**

boa tarde.
Veja agora.

Enviado: **30 Nov 2017 às 23:24**

Gfranco,

Muito obrigado era mesmo isto

Abraço
Jorge Cabral

Guru do Excel e Power BI

Selecionar na Planilha e aparcer na ListBox selecionado

Selecionar na Planilha e aparcer na ListBox selecionado

Re: Selecionar na Planilha e aparcer na ListBox selecionado

Selecionar na Planilha e aparcer na ListBox selecionado

Re: Selecionar na Planilha e aparcer na ListBox selecionado

Selecionar na Planilha e aparcer na ListBox selecionado

Selecionar na Planilha e aparcer na ListBox selecionado

Selecionar na Planilha e aparcer na ListBox selecionado

Re: Selecionar na Planilha e aparcer na ListBox selecionado

Selecionar na Planilha e aparcer na ListBox selecionado