Nao testei mas aparentemente vc so tem que ajustar essas duas linhas para carregar os novos dados para cada botao.
Para Catalogo Referencia esse codigo
Range("A2").Select
LinhaFinal = Planilha2.Cells(Rows.Count, 1).End(xlUp).Row
Para Periodo
Troque A2 por B2
e
Planilha2.Cells(Rows.Count, 1).End(xlUp).Row por Planilha2.Cells(Rows.Count, 2).End(xlUp).Row
E dentro do For
For linha = 2 To LinhaFinal
lst_Cadastro.AddItem Planilha2.Cells(linha, 1) ' Troque o 1 por 2
x = x + 1
Next
Isso vai ajusta seu codigo para carregar os dados referente ao periodo.
Ajuste as demais.
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Postado : 16/10/2016 8:42 am