Muito obrigado!!! Funcionou 100%, agradeço a ajuda! If VBA.IsNumeric(Application.Match(CDbl(Bcpf.Value), Sheets("plan1").Range("F...

Isso mesmo Reinaldo, mesmo "gravando" sem os pontos ela duplica e quando, e "gravada" com os pontos da formatação ela não deixa du...

Muito obrigado, Resolvido! Esta Funcionando corretamente!

criei o código, porem não estou conseguindo montar a validação. CadPessoal.xlsm

planilha em anexo! CadPessoal.xlsm

Compacte e poste seu modelo. Não faz sentido ter dado errado novamente, pois o que vc usa: .Offset(rowcount, 16).Value = Application.ActiveCell.Form...

Compacte e poste seu modelo. Não faz sentido ter dado errado novamente, pois o que vc usa: .Offset(rowcount, 16).Value = Application.ActiveCell.Form...

Mude a linha em vermelho... rowcount = Worksheets("impressas").Range("a1").CurrentRegion.Rows.Count With Worksheets("impressa...