Filtro Avançado via VBA

[FSoares.FCS]

Boa tarde,

Estou tentando montar uma macro que vai utilizar o filtro avançado, fazendo um Loop para separar o centro de custo referente a cada supervisor,

em uma Worksheet "C.Custo", tenho na coluna "A" vários centro de custo separado por supervisores exemplo:

Ana

C.Custo

1.1.0.101

1.2.0.101

2.1.0.101

2.1.0.201

2.1.0.601

Pedro

C.Custo

2.1.0.202

2.1.0.203

2.1.0.204

2.1.0.205

Simone

C.Custo

2.1.0.301

2.1.0.302

2.1.0.303

2.1.0.304

2.1.0.305

2.1.0.602

 

Preciso que a macro identifica o nome da Worksheet que terá o mesmo nomes do supervisor, localizar na Worksheet "C.Custo" e usar o filtro avançado, para cada Worksheet .

 

Sheets("Ana").Select
    Columns("A:G").Select
    Selection.ClearContents
    Range("A1").Select
    Sheets("Balancete").Columns("A:G").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("C.Custo").Range("A1:A15"), CopyToRange:=Range("A1"), Unique:=False

 

Abraço...

[Basole]

Disponibilize a planilha ou um exemplo demostrando o resultado esperado.

 

[FSoares.FCS]

@Basole

Em 2017-6-15 às 10:37, Basole disse:

Disponibilize a planilha ou um exemplo demostrando o resultado esperado.

 

Bom dia, onde consigo baixar essa planilha que você disponibilizou.... grato.. abraço

[Basole]

Desculpe, mas acho q voce nao entendeu:

Citação

Disponibilize a planilha ou um exemplo demostrando o resultado esperado

Eu pedi para voce disponibilizar seu arquivo (*.xlsx) original ou um exemplo com alguns dados ficticios de demostrando o resultado esperado.

[FSoares.FCS]

a planilha dá mais do que os 4,88MB passa o seu e-mail....

[FSoares.FCS]

a planilha é grande segue o compartilhamento do google drive https://drive.google.com/file/d/0B1pDIL8bgv5kWkNQOFY3ZmswSTg/view?usp=sharing

[Patropi]

FSoares

 

As pessoas  normalmente montam um planilha de exemplo, com poucos dados fictícios, com os códigos VBA e com o mesmo layout da original.

O fórum só aceita arquivos que tem macros, se forem compactados.

 

[]s

[FSoares.FCS]

19 horas atrás, Basole disse:

Desculpe, mas acho q voce nao entendeu:

Eu pedi para voce disponibilizar seu arquivo (*.xlsx) original ou um exemplo com alguns dados ficticios de demostrando o resultado esperado.

Segue planilha exemplo

5 - Separação dos Custos por Supervisor - Cópia.7z