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,531 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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...

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 31/05/2018 5:58 pm
 rabaloco
(@rabaloco)
Posts: 5
Active 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