PatraoBruceBR

Private Sub cb_tamanho_Change() Planilha3.Range("P2") = cb_tamanho Call Filtro End Sub Private Sub listsaida_Click() End Sub Private Sub txt_produto_Change() Planilha3.Range("L2") = txt_produto Call Filtro End Sub Private Sub txt_referencia_Change() Planilha3.Range("O2") = txt_referencia Call Filtro End Sub Private Sub UserForm_Initialize() Dim base As Range Dim NOME As String Set base = Planilha3.Range("A1").CurrentRegion NOME = "'" & Planilha3.Name & "'!" listsaida.RowSource = NOME & base.Address Planilha3.Range("K2:S2").ClearContents End Sub Sub Filtro() Dim base As Range Dim crt As Range Dim filtrada As Range Dim NOME As String Set base = Planilha3.Range("A1").CurrentRegion Set crt = Planilha3.Range("K2:S2") base.AdvancedFilter xlFilterCopy, crt, Planilha2.Range("A1:I1") Set filtrada = Planilha2.Range("A1").CurrentRegion NOME = "'" & Planilha2.Name & "'!" LISTBOX.listsaida.RowSource = NOME & filtrada.Address End Sub Pessoal, boa tarde! Gostaria da ajuda de vocês nesta questão, criei uma listbox para a minha plan saída, até aí tudo bem, os dados e colunas aparecem normalmente, mas infelizmente travei na parte do filtro, o meu filtro roda normal, sem nenhum problema com o depurador, porém não filtra os dados, eles permanecem os mesmos, poderiam me ajudar?

Olá pessoal, abrir uma pequena loja de materiais esportivos e desenvolvi um VBA muito básico, o suficiente apenas para que eu tenha o meu estoque em uma Plan, alguma saída (se houver) apenas pressionar o botão saída, pois bem, eu consegui chegar até aqui e registrar a Saída em outra Plan com hora e data (o que é importante) coloquei até uma Plan Editar com um botão solicitar Edição (Caso algum produto vá para avaria, ou para o manequim meu funcionário possa solicitar a atualização (o qual será registrado nessa Plan Editar e depois eu manualmente altero as informações de observação e localização na planilha principal (apenas para não correr o risco que errem), esbarrei no meu primeiro erro inserir outro botão, ENTRADA, o qual preciso que ele apague o registro que o botão saída o fizer na plan saída, mas nunca consigo tentei criar o botão excluir mas acontece um erro "" Erro em tempo de execução '438': O objeto não aceita esta propriedade ou método". Me ajudem por favor, e se puder Não consegui anexar a Pasta de Trabalho aqui, então o fiz no Media Fire https://www.mediafire.com/file/qq5565ylfzaalnb/Sportswear_Loja_01_Estoque.xlsm/file