Problema com ListBox

2024 - VBA & Macros

Post Recente por Fernando Fernandes 11 anos atrás

6 Posts

3 Usuários

0 Reactions

1,499 Visualizações

RSS

regis147

(@regis147)

Posts: 16

Active Member

Topic starter

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).Delete
        'I = I - 1
    End If
        Next I
End Sub

TESTELISTBOX.7z

Postado : 19/02/2014 9:16 pm

regis147

(@regis147)

Posts: 16

Active Member

Topic starter

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

Postado : 19/02/2014 9:17 pm

Weslley

(@weslley)

Posts: 90

Trusted Member

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.

TESTELISTBOX1_resolvido_Weslley.zip

Se a resposta foi útil, clique na mãozinha do lado da ferramenta Citar

Atenciosamente,

Weslley Henrique S.S.
MOS (Microsoft Office Specialist)

"O impossível é uma questão de tempo!"
(Alberto Saltiel)

Postado : 20/02/2014 4:48 am

regis147

(@regis147)

Posts: 16

Active Member

Topic starter

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.

Postado : 20/02/2014 9:43 am