Pessoal estou com um probleminha no listbox um colega me ajudo no código porem
não estou acertando no select da linha com o listbox. em vez do list box selecionar uma linha que eu quero na planilha ele seleciona outra linha acima daquela que eu quero.
passarei o codigo e o ex em zip para mais informações obrigado desde já.

Private Sub CommandButton1_Click()
For I = 1 To ListBox1.ListCount
If I >= ListBox1.ListCount Then Exit For
    If ListBox1.Selected(I) = True Then
        'ListBox1.RemoveItem (I)
        Range("Plan1!A" & I & ":C" & I).select
        'I = I - 1
    End If
        Next I
End Sub

Meu caro amigo, modiquei um pouco o código fonte melhorando a interpretação e deixando um pouco mais fácil de entender.
Verifica se esta planilha atende a sua expectativa.
Qualquer dúvida inspecione o código fonte, está bem explicado.

Meu caro amigo, modiquei um pouco o código fonte melhorando a interpretação e deixando um pouco mais fácil de entender.
Verifica se esta planilha atende a sua expectativa.
Qualquer dúvida inspecione o código fonte, está bem explicado.

Cara Wesley exelente,muito obrigado era exatamente o que eu precisava, pq o metodo range não estava selecionando a linha certa na planilha
ótima lógica de pensar, cara gostei muito !!! Parabéns !!! e Obrigado Novamente.

Disponha!

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.