Boa tarde a todos..

Sou bem leigo no assunto e ficaria muito agradecido se pudessem me explicar este codigo abaixo:

- Na planilha que você deseja adicionar o controle, nomeia as células onde deverá entrar as datas, no exemplo eu coloquei no nome das celulas como "Datas".

- No editor do VBA crie um UserForm e coloque nele um controle de calendário (caso o controle de calendário não esteja na Caixa de ferramentas vá em Ferramentas, Controles Adicionais, role a lista até Calendar Control e marque a caixa de seleção à sua frente.

- Click duas vezes sobre o calendário e cole o código:

Código: Selecionar todos
ActiveCell.Value = Calendar1.Value
UserForm1.Hide

- No código da planilha, cole este código:

Código: Selecionar todos
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("Datas")) Is Nothing Then
UserForm1.Show
End If
End Sub

Em anexo, coloquei um modelo:

Exibir Calendário ao entrar na célula.xls
(29 KiB) Baixado 67 vezes

Entendi perfeitamente ate "Codigo da planilha", que codigo é esse? aonde devo coloca-lo?

Topico original :
viewtopic.php?f=5&t=368

Agradeço