Este fórum está sendo desativado

[albinosergio]

Boa tarde senhores,
Depois de muuuitas pesquisas, consegui uma função, só que está criticando sem mesmo aos 3 campos estarem repetidos, não permitindo GRAVAR. sinto que cheguei perto mas tá faltando um pequeno detalhe que ainda não consegui superar, se o senhores puderem, por favor, ajudar-me ficarei muito feliz.
Segue abaixo um anexo de toda a minha Macro no Módulo 1 na esperança que os senhores, mestres do excel, possam entender onde estou tentando resolver aqui, OK?

[AfonsoMira]

Boa tarde.
Nesta parte do seu código:

Código: Selecionar todos

For i = 2 to UltimaLinha
    If Sheets(3).Range("C" & i).Value = Sheets(1).Range("AI10").Value Then
   If Sheets(3).Range("D" & i).Value = Sheets(1).Range("AQ10").Value Then
 If Sheets(3).Range("E" & i).Value = Sheets(1).Range("U12").Value Then

Achou = True

end if
end if
end if

Next i

Tente substituir por :

Código: Selecionar todos

For i = 2 to UltimaLinha
If Sheets(3).Range("C" & i).Value = Sheets(1).Range("AI10").Value and  Sheets(3).Range("D" & i).Value = Sheets(1).Range("AQ10").Value and Sheets(3).Range("E" & i).Value = Sheets(1).Range("U12").Value Then

achou = True

End if

Next i