Elton.. acho que só através de programação(VBA).

Pode ser?

Elton,

- 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:

ActiveCell.Value = Calendar1.Value
UserForm1.Hide

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

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:

Cara,

Que massa isso! muito bom, muito mesmo!

Mais uma série "Coisas que a gente só vê no planilhando"

Abraços.

Ressucitando o topico...
Gostaria de saber como jogar o valor do calendario em uma textbox e chama-lo atraves de um command buton?

Elton,

- 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:

ActiveCell.Value = Calendar1.Value
UserForm1.Hide

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

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:

Amigo, nao consegui vizualizar a sua planilha..

Muito obrigado!!!
Era tudo que eu precisava....
Deixei minha planilha de controle muito mais dinâmica com isso!!!
Valeu!!!
---------------

Elton,

- 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:

ActiveCell.Value = Calendar1.Value
UserForm1.Hide

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

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:

Olá Pessoal,

Muito interessante. Utilizei no meu projeto.

Mas, ficaria ainda melhor se, ao clicarmos na data do calendário, esta fosse para célula selecionada.

Tem como?

Boa noite Lorenzon

O site abaixo mostra como fazer o que vc deseja:

http://guiadoexcel.com.br/calendario-no-excel-2010

Um abraço.

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.