[Yardım]  Userform'da tarih kısıtlaması

Kulanıcı arayüz formu

Userform'da tarih kısıtlaması

İleti#1)  SelinÖzçelik » 08 May 2019 13:16

Merhabalar, kullanıcı formu'na 2 tarih aralığı girildiğinde başlangıç tarihinin bitiş tarihinden büyük girilmesini engellemek istiyorum. Bunu nasıl yapabilirim?
Kullanıcı avatarı
SelinÖzçelik
Yeni Başlamış
 
Kayıt: 05 Nis 2019 14:20
Meslek: Öğrenci
Yaş: 23
İleti: 11
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Eskişehir

Cevap: Userform'da tarih kısıtlaması

İleti#2)  tasad » 08 May 2019 13:48

Kod: Tümünü seç
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If CLng(CDate(TextBox2)) < CLng(CDate(TextBox1)) Then
MsgBox "Bitiş tarihi Başlangıçdan küçük olamaz."
Exit Sub
End If
End Sub
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 580
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Cevap: Userform'da tarih kısıtlaması

İleti#3)  SelinÖzçelik » 08 May 2019 19:45

tasad yazdı:
Kod: Tümünü seç
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If CLng(CDate(TextBox2)) < CLng(CDate(TextBox1)) Then
MsgBox "Bitiş tarihi Başlangıçdan küçük olamaz."
Exit Sub
End If
End Sub

Teşekkür ederim mesaj kutusu gerektiği yerde uyarı veriyor ama " If CLng(CDate(TextBox2)) < CLng(CDate(TextBox1)) Then" kısmında hata veriyor . Birde bitiş tarihini yanlış girdikten sonra içi silinsin istiyorum silme işlemini yazıyorum ama olmuyor, kod kısmına dönüp yine hata veriyor " If CLng(CDate(TextBox2)) < CLng(CDate(TextBox1)) Then" kısmına .
Kullanıcı avatarı
SelinÖzçelik
Yeni Başlamış
 
Kayıt: 05 Nis 2019 14:20
Meslek: Öğrenci
Yaş: 23
İleti: 11
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Eskişehir

Cevap: Userform'da tarih kısıtlaması

İleti#4)  tasad » 08 May 2019 20:49

Kodları deneyin.
Kod: Tümünü seç
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If CLng(CDate(TextBox2.Value)) < CLng(CDate(TextBox1.Value)) Then
MsgBox "Bitiş tarihi Başlangıçdan küçük olamaz."
TextBox2.Value = ""
Exit Sub
End If
End Sub
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 580
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Userform'da tarih kısıtlaması

İleti#5)  SelinÖzçelik » 12 May 2019 11:17

tasad yazdı:Kodları deneyin.
Kod: Tümünü seç
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If CLng(CDate(TextBox2.Value)) < CLng(CDate(TextBox1.Value)) Then
MsgBox "Bitiş tarihi Başlangıçdan küçük olamaz."
TextBox2.Value = ""
Exit Sub
End If
End Sub

Merhaba olmuyor Run time error '13' diyor.
Kullanıcı avatarı
SelinÖzçelik
Yeni Başlamış
 
Kayıt: 05 Nis 2019 14:20
Meslek: Öğrenci
Yaş: 23
İleti: 11
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Eskişehir

Cevap: Userform'da tarih kısıtlaması

İleti#6)  tasad » 12 May 2019 13:02

Örnek bir dosya ekleyin.
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 580
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Userform'da tarih kısıtlaması

İleti#7)  SelinÖzçelik » 12 May 2019 13:13

tasad yazdı:Örnek bir dosya ekleyin.


Kişi adına göre birden fazla tarihte ve o tarihin farklı saatlerinde girilmiş kayıtlar mevcut. veriler bu şekilde tarih ve saat beraber tutuluyor. Biz sadece tarih kısmını baz alarak çalışan adına göre filtrelemesini ve yinelemenin ortadan kalkmasını istiyoruz yani saat kısmını dikkate almadan. Örnek dosyayı ekledim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
SelinÖzçelik
Yeni Başlamış
 
Kayıt: 05 Nis 2019 14:20
Meslek: Öğrenci
Yaş: 23
İleti: 11
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Eskişehir

Cevap: Userform'da tarih kısıtlaması

İleti#8)  tasad » 12 May 2019 15:34

Dosyayı inceleyin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 580
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta


Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 1 misafir

Bumerang - Yazarkafe