Página 1 de 1
Selecionar Plan na ComboBox e Preencher ListView [RESOLVIDO]
Enviado: 09 Ago 2022 às 22:24
por fcarlosc2018
Boa-noite,
Teria como após selecionar a Planilha na ComboBox preencher também a ListView com os dados da Planilha que foi selecionada na ComboBox !?
Att,
Francisco
Re: Selecionar Plan na ComboBox e Preencher ListView
Enviado: 10 Ago 2022 às 14:37
por osvaldomp
Veja se lhe ajuda.
1. no código
UserForm_Initialize desative esta linha ~~~>
Call PopularListView
2. altere o código
comboBox1_Click conforme abaixo.
#
#
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 todosWith 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
Re: Selecionar Plan na ComboBox e Preencher ListView
Enviado: 10 Ago 2022 às 17:10
por fcarlosc2018
Funcionou, Obrigado osvaldomp...!
Obs: já procurei, procurei e não achei a opção marcar como (Resolvido)
Re: Selecionar Plan na ComboBox e Preencher ListView
Enviado: 10 Ago 2022 às 17:50
por osvaldomp
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.