E aí, colega Carlos, boa noite.
Uma idéia: no módulo de evento da sua planilha "Calendário" coloque esse código abaixo. Ele vai inserir a data selecionada sempre na célula AL8, aquela q vc deixou pintada de amarelo.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsDate(Target.Value) Then
Me.Range("AL8").Value = Target.Value
End If
End Sub
Saudações
Postado : 31/08/2016 7:38 pm