Selecionar linha da Planilha pela Listbox

giancarlo.oliveira · 19 de setembro de 2017

Boa tarde,

Caros estou tentando adaptar para o meu form o código abaixo:

Private Sub btnSelecionar_Click()
Dim i As Long
With ListBoxLista
For i = .ListCount - 1 To 0 Step -1
If .Selected(i) Then
Sheets("OPME").Rows(i + 1).EntireRow.Select
End If
Next i
End With

A função desse código seria ao selecionar uma linha da listbox, a linha correspondente seja selecionada
na planilha. Porém ao executar o código, o código sempre seleciona a primeira linha logo abaixo do
cabeçalho da minha planilha.

Meus cabeçalhos começam na linha 1, e os dados estão empilhados logo abaixo na linha 2,
serei eternamente grato por qualquer ajuda. Não faço questão que seja no mesmo método, se
conhecerem alguma outra forma aceito e agradeceria muito da mesma forma
Muito obrigado
Giancarlo

Basole · 19 de setembro de 2017

Esse negocio de usar a referencia indice do listbox como o indice da linha da celula, nem sempre funciona.

Eu procuro fazer de uma forma diferente. Eu uso o find para localizar um dado na planilha de acordo com dado no listbox:

Ex.:

Private Sub btnSelecionar_Click()
Dim i    As Long
Dim rng  As Range

With ListBoxLista
    For i = .ListCount - 1 To 0 Step -1
        If .Selected(i) Then
            Set rng = Sheets("OPME").Columns("A").Find(.List(i, 0))
            If Not rng Is Nothing Then
                rng.EntireRow.Activate
                Exit For
            End If
        End If
    Next i
End With
End Sub