Fóruns
Microsoft Excel - 2...
Formulários
Selected listbox
 
Notifications
Clear all

Selected listbox

 
Formulários
Post Recente por rabaloco 6 anos atrás
3 Posts
3 Usuários
0 Reactions
1,523 Visualizações
RSS
 araujors
(@araujors)
Posts: 79
Estimable Member
Topic starter
 

Boa noite pessoal,

No exemplo abaixo tenho a variável auxProcura que compara se o valor da variável valorCelula é diferente, caso ele seja preciso que a listbox se auto selecione. Poderiam me ajudar, segue exemplo abaixo. 

auxProcura = Application.Index(Sheets("Secao").Columns("A:A"), _
                Application.Match(.List(linhaList, 0), Sheets("Secao").Columns("B:B"), 0), 0)
                
                If auxProcura <> valorCelula Then
                   listMaterial.List(listMaterial.ListIndex).Selected = True
                End If

 
Postado : 31/05/2018 4:59 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

araujors,

Boa noite!

Antes de mais nada, solicitamos, por gentileza, que ao postar códigos VBA aqui no fórum que o faça com a utilização da ferramenta CODE que fica localizada logo no início da caixa de mensagens (quinto botão da esquerda para a direita).

Quanto a sua demanda, ficou meio difícil ajudar... primeiro você não anexou o arquivo, depois só um pequeno pedaço de código que não diz nada, não diz como as variáveis são alimentadas, não dá pra rodar, não dá pra depurar...

 
Postado : 31/05/2018 5:58 pm
 rabaloco
(@rabaloco)
Posts: 0
New Member
 

Bom dia!
Pelo o que eu entendi, você precisa comparar 2 valores, caso seja verdadeiro, a Listbox se "auto" selecione, correto?

Se for isso mesmo, coloque essa rotina no seu código de comparação, com as devidas modificações:

    
        Dim n As Long
    
        For n = 0 To ListBox1.ListCount - 1 Step 1
            If ListBox1.List(n, 0) = auxProcura Then _
                ListBox1.Selected(n) = True
        Next n
 
Postado : 14/07/2018 7:00 am
Forum Jump:
  Tópico Anterior
Próximo Tópico