marianapd,

Boa Tarde!

Qual é a coluna, da linha balancete de cada funcionário, que o saldo de férias existente na aba Férias deve ser copiado?

marianapd,

Em próximos tópicos, solicitamos, por gentileza, que antes de anexar arquivos aqui no fórum, faça primeiro a compactação do mesmo com o ZIP, por menor que seja seu arquivo.

O que funcionou pra mim foi isso aqui:

Sub mariana()
Dim fd As Range, l As Long, x As Long
x = Sheets("Férias").Range("A" & Rows.Count).End(xlUp).Row
j = 2
Do While j < x + 1
want = Sheets("Férias").Range("a" & j).Value
Set fd = Sheets("Controle").Range("A:A").Find(what:=want, lookat:=xlPart)
If Not fd Is Nothing Then
Set fd = Sheets("Controle").Range(fd.Address & ":B65536").Find(what:="BALANCE", lookat:=xlWhole)
fd.Offset(0, 1).Value = Sheets("Férias").Range("B" & j).Value
Else
Sheets("Férias").Range("a" & j).EntireRow.Interior.ColorIndex = 3
End If
j = j + 1
Loop
End Sub

Coloquei ali uma validação. Caso não encontre a matrícula da planilha Controle na planilha Férias - não acontece no exemplo que você mostrou - a macro pinta de vermelho a linha contendo a matrícula não encontrada.

Teste e avise =)

Olá, Alminen, deu certo! Super obrigada!!!!!!!! =D

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.