Tenho uma macro que sobe os dados de uma table para uma list box, onde posso editar e atualizar como se fosse um programa. Não estou conseguindo subir apenas os falores filtrados.
Código VBA Usado
Sub Atualizar_ListBox()
bloqueado = True
Dim tabela As ListObject
Set tabela = Planilha1.ListObjects(1)
UserForm1.ListBox1.RowSource = tabela.DataBodyRange.Address(, , , True)
bloqueado = False
End Sub
Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.
Boa tarde, Carlos.
Voce consegue editar sua perguntar e incluir o arquivo para que eu possa entender melhor e lhe ajudar?
Pelo que entendi, sua solucao passa por informar no VBA que sera copiado somente celulas visiveis (ignora celulas filtradas).
Se seus dados estiverem como valores e nao formatados como tabela, o seu range desejado seria algo como o abaixo,
Range("B2", Range("B" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)
Se voce conseguir incluir um modelo do seu arquivo eu posso te ajudar e editar este meu comentario com uma resposta mais personalizada.
Um abraco.
Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.
Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.