Boa tarde!!

Sinceramente eu não entendi.

Por favor poste seu arquivo modelo, represente nele o que deseja como (Antes e Depois).

Att

Arquivos em anexo.

Boa tarde!!

Ainda naõ vi seu arquivo.

Seria algo assim...?

Sub AleVBA_Loop()
    Dim rCell As range
    
    For Each rCell In activesheet.range("B2:B200")
        With rCell
            If rCell = "sim" Then rCell.Offset(0, 1).Value = "0"
        End With
    Next rCell
    
End Sub

eu errei os usuário e férias fica na TabBusca, e estado fica na tabela Campanhas

Boa noite!!!

Não há guia com esse nome...

Att

Não entende

Nome das planilha

plan1=TabBusca
plan2=Campanhas

será se não tem como consultar numa planilha e inserir os dados na outra?

Como consultar em uma planilha e inserir os dados em outra e plenamente possível, porem sem conhecer a estrutura de sua planilha/localização e distribuição de dados/valores fica extremamente difícil lhe dar uma resposta direta, dependendo também de seu conhecimento da ferramenta, se for uma resposta genérica, provavelmente não conseguira efetuar as alterações/adequações necessárias.
No seu exemplo além da TabBusca (Plan1), há Cadastro (Plan5) Oculta 1 e 2 (Plan 6 e 7) todas ocultas mas sem dados referente a Campanhas mencionadas.

Segue a planilha completa,

todos os que estão de feria nos campos real e meta da planilha campanha aparece o zero.