ADICIONAR CALENDARIO

[thiago.padial]

Pessoal preciso de alguma forma que me possibilite ao clicar numa textbox ou ComboBox aparecer ao lado um calendario para selecionar a data. Ao ser seleciuonado a data preciso que apareceça na textbox ou ComboBox no formato ex.: "14/08/2011".

Grato.

[Mauro Coutinho]

Thiago, veja se seria isto :

Calendário em ComboBox
viewtopic.php?f=6&t=184

No site abaixo tem dois arquivos para download, utilizando o Controle Calendar :
A Pop-up Calendar for Excel
http://www.fontstuff.com/vba/vbatut07.htm

[]s

[joseA]

Permitam-me...

Lembrando, que com um "pedaço de arame" dá para fazer o controle Calendar reconhecer o controle (combobox, textbox) desejado e lançar a data. Qualquer coisa informe....

[Mauro Coutinho]

Permitam-me...

Lembrando, que com um "pedaço de arame" dá para fazer o controle Calendar reconhecer o controle (combobox, textbox) desejado e lançar a data. Qualquer coisa informe....

José, esta me deixou bolado ????

[]s

[joseA]

Olá Mauro,

Quando digo: "pedaço de arame", é para amarrar a gambiarra.

Em um Módulo declarar uma função pública, tipo:

Código: Selecionar todos

Public Dia As Date

No form que terá o controle calendário adicionar um label (arame), para identificar o textbox que foi clicado.

Código: Selecionar todos

Private Sub TextBox2_Enter()
UserForm3.Label1.Caption = "um"
UserForm3.Show
End Sub
Private Sub TextBox4_Enter()
UserForm3.Label1.Caption = "dois"
UserForm3.Show
End Sub

e finalmente, no form com o controle calendário a data será retornada conforme critério do label (arame).

Código: Selecionar todos

Private Sub UserForm_Initialize()
Me.Calendar1.Value = Date
End Sub

Private Sub Calendar1_Click()
Dia = Me.Calendar1.Value
If Me.Label1.Caption = "um" Then
UserForm1.TextBox2 = Dia
End If
If Me.Label1.Caption = "dois" Then
UserForm1.TextBox4 = Dia
End If
If Me.Label1.Caption = "doisDois" Then
UserForm2.TextBox2 = Dia
End If
If Me.Label1.Caption = "tres" Then
UserForm2.TextBox3 = Dia
End If

Unload Me
End Sub

No mais, seria só ajustar para esconder o "arame".