açılabilir kutudan tarih seçimi

[mutlu erdal erdem]

textbox 1 ve textbox2 ye yanlarında açılabilir kutucuklardan seçtiğim tarihin otomatik olarak gelmesi sağlanabilirmi?tşk ederim.

 

[programer]

TextBox1 = ComboBox1.value

şeklinde dene istersen

 

[mutlu erdal erdem]

bu şekilde değil

takvim koydum yanına fakat takvimden seçtiğim gün text içine nasıl getirilebilir.

 

[programer]

Takvimin Kodlarına girdiğiniz zaman

Private Sub Calendar1_Click()

UserForm1.TextBox1 = Calendar1.Value

Unload UserForm2

End Sub

ilgili userformu ve onun üzerindeki textboxu belirtmeniz gerekiyor

 

[mutlu erdal erdem]

tşk ederim

ama bir sorun daha var .text1 i tıkladığımda seçilen tarih buraya gelecek.text2 yi tıkladığımda ise seçilen tarih text2 de nasıl görüntülenir.

 

[programer]

dosyanızı eklerseniz size daha net bir yanıt verebilirim

 

[mutlu erdal erdem]

dosya ekte

aslında calendar tipi çok yer kaplıyor dosyamdada yer yok mecburen listboxları aşağı aldım açılabilir tipte ve az yer kaplayan bir takvim türüde toolstan bulamadım.neyse makroyu yazdım ancak calendarı tıkladığımda 2 textede aynı tarih geliyor ben text2 de farklı bir tarih seçmek istiyorum.

 

[mutlu erdal erdem]

pardon

şifre1214151

 

[mutlu erdal erdem]

cevabınızı bekliyorum

çözümü yokmu sorumun?

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

 

[hulya1]

açılan tarih kutusu

2 tarih kısmı olduğu için 2 tane takvim oluşturmanız gerekiyor.
UserForm_Initialize() kısmına oluşturduğunuz takvimleri tanıtmalısınız.

Private Sub UserForm_Initialize()
With Calendar1
.Height = 120
.Width = 168
.Today
End With
With Calendar2
.Height = 120
.Width = 168
.Today
End With
End Sub

Ayrıca takvime tıkladığınızda değeri kutuya atması için aşağıdaki kodu yazın...

Private Sub Calendar1_Click()
TextBox1.Value = Calendar1.Value
With Calendar1
.Height = 0
.Width = 0
End With
End Sub

Private Sub Calendar2_Click()
TextBox2.Value = Calendar2.Value
With Calendar2
.Height = 0
.Width = 0
End With
End Sub

Sayfa açıldığında takvimlerin görülmesini istemiyorsanız genişlik ve yükseklik boyutlarını İnitalize kısmına 0 olarak belirleyin. Sonra textboxa ya da olşuturduğunuz bir buton yardımıyla görünür yapabilirsiniz...
Ekran açılırken takvimlerin görünmeyip, tarih kutucuğunun yanına ufak bir buton yapıp buradan çalışmasını sağlarsanız daha şık bir görüntü olur

Örnek :
Private Sub Calendar1_Click()
TextBox1.Value = Calendar1.Value
With Calendar1
.Height = 0
.Width = 0
End With
End Sub

Private Sub CommandButton1_Click()
With Calendar1
.Height = 120
.Width = 168
.Today
End With
End Sub

Private Sub CommandButton2_Click()
With Calendar2
.Height = 120
.Width = 168
.Today
End With
End Sub

Private Sub UserForm_Initialize()
With Calendar1
.Height = 0
.Width = 0
End With
With Calendar2
.Height = 0
.Width = 0
End With
End Sub
Private Sub Calendar2_Click()
TextBox2.Value = Calendar2.Value
With Calendar2
.Height = 0
.Width = 0
End With
End Sub

 

[mutlu erdal erdem]

tşk

İlgi ve alakanız için tşk ederim.

 

[kaptan38]

Güzel çalışmalar olmuş arkadaşlar emeğinize sağlık