Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
#72043
Veja se lhe ajuda.

1. no código UserForm_Initialize desative esta linha ~~~> Call PopularListView

2. altere o código comboBox1_Click conforme abaixo.
Código: Selecionar todos
Private Sub comboBox1_Click()
 PopularListView
End Sub
#
#
3. no código PopularListView substitua estas linhas
Código: Selecionar todos
 ULinha = Plan1.Cells(Plan1.Cells.Rows.Count, "A").End(xlUp).Row
       ListView1.ListItems.Clear
       For X = 2 To ULinha
           Set li = ListView1.ListItems.Add(Text:=Plan1.Cells(X, "A").Value)
           li.ListSubItems.Add Text:=Plan1.Cells(X, "B").Value
           li.ListSubItems.Add Text:=Plan1.Cells(X, "C").Value
       Next
#
por estas abaixo
Código: Selecionar todos
With Sheets(ComboBox1.Value)
        ULinha = .Cells(Rows.Count, "A").End(xlUp).Row
        ListView1.ListItems.Clear
        For X = 2 To ULinha
         Set li = ListView1.ListItems.Add(Text:=.Cells(X, "A").Value)
         li.ListSubItems.Add Text:=.Cells(X, "B").Value
         li.ListSubItems.Add Text:=.Cells(X, "C").Value
        Next
       End With
fcarlosc2018 agradeceu por isso
#72047
Olá, @fcarlos.
O recurso para marcar o tópico como resolvido continua inativo aqui no fórum.
Para contornar você pode editar o título do post na sua primeira postagem acrescentar algo como [RESOLVIDO] no início do título.

=SE(MÊS(A1)<7;"1º sem&a[…]

Bom Dia Senhores. Tenho uma macro que preciso dei[…]

Free relationships without drama and obligations. […]

Girar Imagem e Zoom

Boa noite Teria alguma forma de dar um "[…]

Valeu. Muito Obrigado!!!!!!!!

Pessoal, Ao clicar no botão Copiar (Guia C[…]

Procv com serro em vba

Resolvido

Bom dia, pessoal! com a data de nascimento e data […]

Estamos migrando para uma comunidade no Discord