Guru do Excel e Power BI

Enviado: **31 Mar 2016 às 00:09**

Senhores, boa noite,

Sou iniciante em vba e estou criando um cadastro de protocolos, neste cadastro o usuário informa a data inicial e a data final, eu necessito acrescentar uma textbox que pegue a data final informada e acrescente 7 dias para mostrar o prazo de vencimento, basicamente... pegar a data que foi informada na data final, acrescentar 7 dias e mostrar como data de vencimento.

Alguém poderia me ajudar ? Segue em anexo o meu projeto.

Enviado: **31 Mar 2016 às 08:14**

lucas130510, bom dia!

Criei um campo e um botão a direita, é só aplicar o código ao campo que precisar.

Espero ter ajudado.

Enviado: **31 Mar 2016 às 08:20**

Bom dia,

uma opção seria colocar o código abaixo:

Código: Selecionar todos

Private Sub caixa_data_final_AfterUpdate()

If Me.caixa_data_final.Text <> "" Then Me.caixavencimento = Format(DateAdd("D", 7, CDate(caixa_data_final.Text)), "dd/mm/yyyy")

End Sub

Guru do Excel e Power BI

Adicionar dias a uma data

Adicionar dias a uma data

Re: Adicionar dias a uma data

Adicionar dias a uma data