• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü TextBoxlara Tıklayınca Otomatik Açılır DatePicker Özelliği Ekleme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
D

DataMaestro

Yeni Üye
Katılım
25 Nis 2021
Mesajlar
210
Çözümler
3
Aldığı beğeni
96
Excel V
Office 2019 TR
Konu Sahibi
Merhaba Formdaş arkadaşlar,

Ekteki alıntı olan çalışmada UserForm üzerindeki birden fazla TextBoxlara otomatik açılır takvim özelliği eklemek istiyorum.
TextBox3' uygulanmış olan bu özelliği, TextBox4'e veya daha fazla nesneye uygulamak için mevcut kodu nasıl revize etmeliyim.

Saygılarımla,
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
Ümit Bakacak
Buyurun, Module1 de ortak bir değişken tanımladık. Public tisim As String
Sonra hangi TextBoxa tıklarsanız değişkene textbox ismini yüklüyoruz. Mesele Txt3 tıkladığınızda
tisim = UserForm1.TextBox3.Name
devamında tarih seçtiğinizde ClassModul bir tarih döndürüyor biz onu aklımızda tuttuğumuz Textbox a gönderiyoruz.
UserForm1.Controls(tisim) = v_label.Tag
Tarihe göre sırala Oylara göre sırala
Dosyanızda olduğu gibi hangi nesneye eklemek istiyorsanız o nesnenin "enter" event'ına "UFCalendar.Show" kodunu yazınız.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Sayın Ubak,

TextBox3'e yazıyor.
TextBox4'e yazmıyor, her defasında TextBox3'e yazıyor.
Nerede hata yaptığım konusunda yardımcı olurmusunuz?

Saygılarımla,
 
Olumlu oy 0 Negatif oyla
Buyurun, Module1 de ortak bir değişken tanımladık. Public tisim As String
Sonra hangi TextBoxa tıklarsanız değişkene textbox ismini yüklüyoruz. Mesele Txt3 tıkladığınızda
tisim = UserForm1.TextBox3.Name
devamında tarih seçtiğinizde ClassModul bir tarih döndürüyor biz onu aklımızda tuttuğumuz Textbox a gönderiyoruz.
UserForm1.Controls(tisim) = v_label.Tag
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Çözüm

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
Sayın Ubak,

Ellerinize, emeğinize ve bilginize sağlık.
Konuya gösterdiğiniz ilgi, yardım ve açıklama için ayrıca teşekkür ederim.
Hakkınızı helal ediniz lütfen

Saygılarımla,
 
Olumlu oy 0 Negatif oyla
Rica ederim, iyi günler.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst