Datando errado

[Antonio Lanis]

Adaptei uma planilha através da qual pretendo registrar gastos com cartão de crédito, porém ela esta datando erradamente os vencimentos. Preciso de uma ajuda para resolver esta questão. Alguém poderia me ajudar?

Controle de Cartões datando errado.rar

[CasaDoHardware]

Localize em seu codigo a linha abaixo

 

        Sheets("Registro").Range("G" & UltimaLinha).Value = DateAdd("m", i - 1, Format(CDate(Txt_PrimeiroVencimento.Value), "DD/MM/yyyy")) 
 

e substitua a que esta la por esta do post.