Excel Ao Alterar textbox atualizar labels

[diego_janjao]

Pessoal, eu criei uma planilha para facilitar a criação dos relatórios de análises para os analistas mas estou com problemas:
No meu PC do trabalho eu consegui colocar um calendário através do Microsoft MouthView mas no PC dos analistas não tem o arquivo para adicionar isso, e o T.I. não quer adicionar, enfim, o que eu preciso:

Ao colocar a data na TextBox de Data, as Labels Lote e Validade se atualizem. Onde a Label validade será igual ao valor do TextBox + 59 dias e o label Lote será o dia Juliano da Data do TextBox, ou seja, Lote = Data da TextBox - 01/01/do ano da TextBox.

 

alguém conseguiria me ajudar? Criar Laudo.zip

[Visitante]

Fala, Diego.

Veja se é isso.

O código irá lançar os valores em LOTE e em VALIDADE após preencher a data em DATA e apertar Enter ou Tab.

 

Private Sub TextBox1_AfterUpdate()
 Me.val_txt = CDate(TextBox1.Value) + 59
 Me.lote_txt = CDate(TextBox1.Value) - DateSerial(Year(CDate(TextBox1.Value)), 1, 1)
End Sub

 

[diego_janjao]

@osvaldomp muito obrigado! Exatamente o que eu precisava!