Userform Genel Veri Göndermek

[gevezeosman]

Arkadaslar,
Öncelikle böyle bir sitede herkeze çözüm buldugunuz için tekrar teşekkürler, ama balık isetemektense balık tutmayı öğrenmek daha iyi olacagı için başlıgı bu şekilde açtım.

Genel olarak butun formlarımı değiştiriyorum ve userform kullanmayı amaçlıyorum. Bu sebeple de excele userform dan veri göndermeyi tam olarak ogrenmeyi amaclıyorum.

Ekte oluşturduğum bir örnek mevcut. Diğer uygulamalarımda da kodları değiştirerek kullanabilmek için yardımınızı bekliyorum


Saygılar

 

[İhsan Tank]

Arkadaslar,
Öncelikle böyle bir sitede herkeze çözüm buldugunuz için tekrar teşekkürler, ama balık isetemektense balık tutmayı öğrenmek daha iyi olacagı için başlıgı bu şekilde açtım.

Genel olarak butun formlarımı değiştiriyorum ve userform kullanmayı amaçlıyorum. Bu sebeple de excele userform dan veri göndermeyi tam olarak ogrenmeyi amaclıyorum.

Ekte oluşturduğum bir örnek mevcut. Diğer uygulamalarımda da kodları değiştirerek kullanabilmek için yardımınızı bekliyorum


Saygılar

merhaba
istediklerinizi yapmaya çalıştım umarım olmuştur istediğiniz şekilde

 

[Orion1]

Dosyanız ektedir.

 

[İhsan Tank]

arkadaşlar üstteki mesajımda tarih kısmı hatalı kayıt ediyordu onu düzelttim

 

[alptun20]

Evren Bey yukarıdaki dosyanıza ek olarak UserForma eklemiş olduğunuz Takvim TextBox4'e tarihi atıyor, buna ek olarak TextBox5'ede günü yazmasını sağlayabilirmiyiz. Saygılarımla..

 

[Orion1]

Evren Bey yukarıdaki dosyanıza ek olarak UserForma eklemiş olduğunuz Takvim TextBox4'e tarihi atıyor, buna ek olarak TextBox5'ede günü yazmasını sağlayabilirmiyiz. Saygılarımla..

Calendar1'in click olayını aşağıdaki kodlarla değiştiriniz.

Private Sub Calendar1_Click()
Dim gun()
gun = Array("", "Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi", "Pazar")
TextBox4.Text = Format(Calendar1.Value, "dd.mm.yyyy")
TextBox5.Text = gun(Weekday(Calendar1.Value, 2))
Calendar1.Visible = False
End Sub

 

[alptun20]

Calendar1'in click olayını aşağıdaki kodlarla değiştiriniz.

Private Sub Calendar1_Click()
Dim gun()
gun = Array("", "Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi", "Pazar")
TextBox4.Text = Format(Calendar1.Value, "dd.mm.yyyy")
TextBox5.Text = gun(Weekday(Calendar1.Value, 2))
Calendar1.Visible = False
End Sub

Teşekkürler Evren Bey..