A resposta do erro está na linha que gera o erro, onde você deixou obs na frente e acredito que na adaptação acabou omitindo.
Troque esta linha
Sheets("Registro").Range("G" & UltimaLinha).Value = DateAdd("m", i, Txt_PrimeiroVencimento.Value, "mm/dd/yyyy") 'Format(CDate(Txt_DataDaCompra.Value) + (i * 30), "mm/dd/yyyy")
Por esta :
Sheets("Registro").Range("G" & UltimaLinha).Value = DateAdd("m", i, Format(CDate(Txt_PrimeiroVencimento.Value), "mm/dd/yyyy"))
Veja que só foi ajustado a formatação para Data, que na instrução anterior foi omitida .
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 29/11/2015 7:44 pm