Bom dia!!!

Use a pesquisa do fórum!!
viewtopic.php?t=10053&p=52997
http://www.tomasvasquez.com.br/forum/vi ... ndar#p7086
http://www.tomasvasquez.com.br/forum/vi ... ndar#p3655
viewtopic.php?f=23&t=2071
http://www.rondebruin.nl/calendar.htm
viewtopic.php?t=8739&p=46028

Att

Vguedes,

Bom Dia!

Não entendi bem qual é a sua necessidade...

Você quer que quando selecionar a célula AC2 o calendário seja aberto? É isso?

Alexandre,

Obrigado! Por esses tópicos consegui mandar a seleção da data do calendário para uma Range!

Wagener, obrigado pela atenção. O que eu queria era mandar a data selecionada para "AC2", e já consegui com a ajuda do alexandre.

Utilizei o simples código abaixo:

Private Sub MonthView1_DateDblClick(ByVal DateDblClicked As Date)
   Range("AC2") = MonthView1.Value
   Call Diagrama
   frmCalendario.Hide
End Sub

Private Sub frmCalendario_DateClick(ByVal DateClicked As Date)

End Sub

Private Sub UserForm_Click()

End Sub

Agora gostaria de ajuda para implementar duas coisas, se possível:

1) Em vez de usar um botão para ativar o calendário, preferiria usar uma caixa de seleção, na qual mostrasse a data selecionada nela.

2) O calendário não está abrindo no mês atual.

Obrigado!

Bom dia!!

Se a resposta foi útil, click na mãozinha!!

Att

Ok.

Veja se é assim.

Wagner,

Peço desculpas por ter me expressado errado. O que eu quero mesmo é caixa de combinação (combobox), e não caixa de seleção.

Mas é exatamente isso que você fez. Estou tentando adaptar o que você fez, mas ainda não consegui efeito. Se você puder me mandar a mesma coisa, mas com combobox, agradeceria muito!

Obrigado!

Ok. Assim?

Wagner,

Meu excel é 2010, acho que por causa disso não estava conseguindo alterar o combo box. Botei no modo design, aí quando eu voltei ele deu uma desconfigurada.

Além disso, não consegui usar o mesmo comando que você usou no "checkbox", conforme código abaixo:

Private Sub MonthView1_DateDblClick(ByVal DateDblClicked As Date)
   Range("AC2").Value = MonthView1.Value
   ActiveSheet.[u]CheckBox1[/u].Caption = MonthView1.Value
   frmCalendario.Hide
End Sub

Pra mim se eu trocasse "CheckBox1" por "Combobox1" daria o mesmo resultado, mas não consegui. Com isso a data escolhida no combo não estava indo para lugar algum.

Obrigado pela atenção e me desculpa pela leiguice. rs

Vguedes,

Tudo bem. Fique frio.

Se você me disser claramente o que você pretende fazer ficará mais fácil eu fazer. Entretanto, até agora, eu ainda não entendi o que você quer fazer!

Wagner,

Resumindo, eu quero um combobox que mande a data escolhida para uma determinada Range.

No combobox que você fez a data não estava indo para "AC2".

Obrigado!

Segue nova versão. Dê um clique duplo na data e ela será colocada na célula AC2.

Wagner, obrigado! É exatamente isso que eu quero.

Agora gostaria de aprender a fazer sozinho para que possa desenvolver ferramentes deste tipo no futuro.

Como você fez para atribuir o código ao combobox?

Basta dar um clique duplo no objeto que já abre a janela de código. Daí é só escolher o evento apropriado.