Visual Basic Fazer um "Cont.Se" em outra planilha via VBA

[DECOVIOTI]

Ola Pessoal.

Gostaria de uma ajuda.

Eu tenho uma planilha sumario em anexo que precisa receber a quantidade de funcionários por cargo. Eu gostaria de criar uma macro para que a mesma fosse ate a planilha base que contem a lista de funcionários e fizesse um "Count.Se" na coluna Cargo, que neste caso seria a coluna "A" e que fica salva em um outra pasta. como, por exemplo, no drive  C : \.

Podem me ajudar, por favor?

 

Sumario.xlsx Base.xlsx

[DECOVIOTI]

Sera que alguém pode me ajudar, por favor?

[Midori]

@DECOVIOTI  Use CountIf. Exemplo para contar os funcionários do cargo da célula A2 (Diretor),

 

Sub ContaCargo()
    MsgBox WorksheetFunction.CountIf( _
        Workbooks("Base.xlsx").Sheets("Sheet1").[A:A], [A2])
End Sub

 

 

[DECOVIOTI]

Obrigado @Midori

 

Agora para que cada célula da planilha Sumario recebesse o resultado do "Count.se", eu teria que fazer um Loop de repetição?

Poderia me auxiliar, sou relativamente novo com o VBA..

[Midori]

O loop pode ser assim,

 

Sub ContaCargo()
    Dim L As Long
    
    L = 2
    
    While Cells(L, 1) <> ""
        Cells(L, 2) = WorksheetFunction.CountIf( _
        Workbooks("Base.xlsx").Sheets("Sheet1").[A:A], Cells(L, 1))
        L = L + 1
    Wend
End Sub