Excel macro refeição em folga

[Custelinha2209]

Olá,

Preciso de ajuda para fazer um macro, no arquivo anexado, eu tenho 3 tabelas, "TURMAS TRABALHADAS" que é do dia 1º de Junho e na segunda "RELATORIO REFEIÇÃO" que é onde tem todos colaboradores fizeram a refeição e a terceira e ultima é o pessoal do "ADMINISTRATIVO" que deve ficar de fora desse macro que preciso utilizar.

Resumindo, preciso ver quem da segunda coluna "RELATORIO REFEIÇÃO" não está na primeira, que é a "TURMA TRABALHADA" do dia, para ver quem está pegando refeição na folga indevidamente, porém não tenho a menor ideia de como fazer isso, e preciso fazer diariamente e olhando 1 por 1 é triste. 

Se tivesse como fazer um macro em que eu simplesmente jogue os dados da "turma trabalhada" e "relatorio refeição" e desse o resultado seria lindo... porém quebrei a cabeça semana toda e não consegui solucionar...

 

REFEIÇÕES EM FOLGA.xlsx

[Midori]

Tire a mescla da primeira tabela e veja se é isso. Os nomes ficam na coluna M.

Sub Relatorio()
    Dim Colaborador As Range
    Dim Linha       As Long
    
    Set Colaborador = [H2]
    
    While Colaborador <> ""
        If WorksheetFunction.CountIf([A:A], Colaborador) = 0 _
        And WorksheetFunction.CountIf([M:M], Colaborador) = 0 Then
            Linha = Linha + 1
            Columns("M").Cells(Linha) = Colaborador
        End If
        Set Colaborador = Colaborador.Offset(1)
    Wend
End Sub

 

[Custelinha2209]

Em 10/06/2022 às 15:10, Midori disse:

Tire a mescla da primeira tabela e veja se é isso. Os nomes ficam na coluna M.

Sub Relatorio()
    Dim Colaborador As Range
    Dim Linha       As Long
    
    Set Colaborador = [H2]
    
    While Colaborador <> ""
        If WorksheetFunction.CountIf([A:A], Colaborador) = 0 _
        And WorksheetFunction.CountIf([M:M], Colaborador) = 0 Then
            Linha = Linha + 1
            Columns("M").Cells(Linha) = Colaborador
        End If
        Set Colaborador = Colaborador.Offset(1)
    Wend
End Sub

 

valeu. funcionou kk'