userformda tarih aralığı

[Kemal Demir]

değerli arkadaslar gunaydın ekte bir dosya yollucam yardımcı olursanız sevinirim Saygılar

 

[cako]

Benzer bir dosya gönderiyorum. Oradaki tarih aralığına göre süzme yöntemini kendinize uygulayabilirsiniz.

 

[Kemal Demir]

Dosyayı ziplermisiniz Sn Cako

 

[cako]

Zipleyince 256 KByte dan fazla oluyor. O yüzden gönderemiyorum.
Aradığınızı yazıyla ifade edeyim. Zaten dosyanıza bakınca yapabileceğinize inanıyorum.
User form üzerine bir adet Calendar nesnesi ekleyin. İki tane de textbox. Birinci textbox başlama tarihi ikincisi bitiş tarihi değerlerinin girileceği yerlerdir.
İki tane de buton koyalım. Her biri bir textboxa Calendar değerini yazacak.
Yani
[vb:1:5d6bece6ab]Private Sub CommandButton1_Click()
TextBox1 = Format(Calendar1.Value, "dd.mm.yyyy")
End Sub[/vb:1:5d6bece6ab]
Süzme işleminize de aşağıdaki kodu yazacaksınız.
[vb:1:5d6bece6ab]Selection.AutoFilter field:=4, Criteria1:=">=" & CLng(CDate(TextBox1.Value))[/vb:1:5d6bece6ab]
Ben burada bir tanesini gösterdim. Bu kod süzme yapılacak alandaki 4. sütundaki değerlerden textbox1 den byük ve eşit olanlarını süzer.
Tabi şöyle bir surumda var. Mesela ben sadece bir tarih girip o tarihten büyük olanları görecem derseniz. İkinci tarih yani bitiş tarihi girdiğiniz textbox için bir şey girmeyin. Ama bu durumda süzme kriteri çalışırsa olmaz. O zaman oraya şöyle bir değişiklik yapmaız gerekecek.
[vb:1:5d6bece6ab]If TextBox1 = "" Then
GoTo Atla5
Else
Selection.AutoFilter field:=4, Criteria1:=">=" & CLng(CDate(TextBox1.Value))
End If
Atla5:[/vb:1:5d6bece6ab]
Sanırım anlatabildim.

 

[Kemal Demir]

yapamadım

:kafa: :kafa: :kafa: :kafa: :kafa:
yardım
dosya yı ınceleyip maile yollayabilirmisiniz

Dosyay buyukte

kemaldemirr@gmail.com

 

[Kemal Demir]

Arkadaslar Yardımımcı olurmusunuz Dosyam Ekte Textbox1'in Değiştirilememesi ve gunun tarihinin göstermesinni istiyorum

Diğer Bir isteğim:ise Tarih Aralıklarının Comboboxlara göre Rapor Alınması yahut Bağımsız şekilde Raporunun alınması

Pek anlatamadım Excel Dosyası uzerınde Düzenleyip Yollarmısınız SaygıLAr.
(Emri vaki konustuysam kusura bakmayın)

Sn Cako Yapamadım Size Karsı Hukalalık Yapmak istemem
Dosyadaki değişiklikler i Düzenleyemedim

:kafa: :kafa: :kafa: :kafa: :x :x :x
Dosyayı Eklıyorum