Este fórum está sendo desativado

[werlewow]

Bom dia a todos,
Tenho uma coluna (Coluna A) com vários números de pedidos, e outra coluna (Coluna D) com apenas alguns. Quero saber se é possível filtrar de uma maneira automática todos os valores da coluna D na coluna A. Como se pegasse o auto-filtro e fosse marcando as caixinhas conforme os números da coluna D, porem de forma automática. Tentei com essa macro e não deu:

Sub pMain()
Dim rData As Excel.Range
Dim SeuInterval As Range

'Altere abaixo o nome da planilha e o intervalo da tabela a filtrar conforme desejado.
Set rData = ThisWorkbook.Worksheets("Planilha1").Range("A1:a500")

Set SeuInterval = Application.InputBox(Prompt:="Por favor selecione o intervalo", Title:="Seleção de Intervalo", Type:=8)

rData.AutoFilter

rData.AutoFilter Field:=1, Criteria1:=SeuInterval
End Sub

Obrigado

[gfranco]

Amigo,
veja se é isso que precisa

[werlewow]

É exatamente isso, porem não estou conseguindo adaptar a minha planilha. Pode trocar as duas tabelas criadas para uma seleção de celulas na planilha? tipo $A$1:$A$200...

Obrigado

[gfranco]

É exatamente isso, porem não estou conseguindo adaptar a minha planilha. Pode trocar as duas tabelas criadas para uma seleção de celulas na planilha? tipo $A$1:$A$200...

Obrigado

É muito mais eficiente trabalhar com tabelas nomeadas.
Basta, para isso, converter os intervalos em tabelas e nomeá-las de acordo com a nomenclatura que utilizei no código.
Lembre-se também de nomear o codename da aba da mesma forma que fiz na planilha de exemplo (chamei-a de wsdados, neste exemplo)

[werlewow]

Tentei de todas as formas, realmente nao consegui, veja nesse exemplo troquei a tabela valores pela tabela3, e não consegui fazer funcionar.

[gfranco]

Tentei de todas as formas, realmente nao consegui, veja nesse exemplo troquei a tabela valores pela tabela3, e não consegui fazer funcionar.

Não adianta mudar o nome da tabela se não mudar o nome da coluna de referência.
Devolvo funcionando para a nova tabela 3

[werlewow]

Opa, não havia percebido, agora consegui, muito obrigado!