Macro interrompida na data

2024 - VBA & Macros

Post Recente por Fernando Fernandes 9 anos atrás

2 Posts

2 Usuários

0 Reactions

1,045 Visualizações

RSS

tonilanis

(@tonilanis)

Posts: 32

Eminent Member

Topic starter

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?

Postado : 29/11/2015 7:11 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

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