Uma macro da planilha apresenta erro na data. Ao concluir (acionando o botão Ok) a macro é interrompida. Funcionava antes. Não entendi o que esta dando errado. Ajuda?
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