Calendar Kullanımı

[Kemal Demir]

Arkadaslar Herşeyden Önce Bu konu için tekrar başlık açtıgım için hepinizden özür dilerim.Ben sormaya Sıkıldım umarım siz cevap vermek için sıkılmamıssınızdır.

Ek'teki Dosyada Calendar kullanılarak kucuk bir form hazırladım 3 adet combobobox ve 2 adet calendar kullandım.
işin içine tarih gelince tırt oldu

Bu konuda yardımcı olurmusunuz.

Dosya içerisinde ek anlatyım mevcuttur.

Teşekkur Ederim.

 

[cyberwolf1980]

Rakkas, dostum dosyaya baktım ama tam olarak bı sey anlamadım kısaca bı daha anlatabılırmısın 01/08/2006 - 05/08/2006 ne demek anlamadım ??

 

[Kemal Demir]

cyberwolf1980,

1 agustos ta başlayıp 5 agustos dahil olmak üzere var olan tarih aralıklarını listelemek istiyorum.

 

[Korhan Ayhan]

Selamlar,

Rapor almak için kullandığınız kodları aşağıdaki ile değiştirip denermisiniz.

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Sheets("Rapor").Range("A1:K65536").ClearContents
    [A1].Select
    Selection.AutoFilter
    If ComboBox1.Value <> "" Then Selection.AutoFilter Field:=1, Criteria1:=ComboBox1.Value
    If ComboBox2.Value <> "" Then Selection.AutoFilter Field:=2, Criteria1:=ComboBox2.Value
    If ComboBox3.Value <> "" Then Selection.AutoFilter Field:=3, Criteria1:=ComboBox3.Value
    If TextBox1.Value <> "" Then Selection.AutoFilter Field:=4, Criteria1:=">=" & CLng(CDate(TextBox1))
    If TextBox2.Value <> "" Then Selection.AutoFilter Field:=5, Criteria1:="<=" & CLng(CDate(TextBox2))
    Selection.CurrentRegion.Copy
    Sheets("Rapor").Select
    [A1].PasteSpecial
    [A1].Select
    Sheets("Liste").Select
    [A1].Select
    Selection.AutoFilter
    Application.ScreenUpdating = True
End Sub

 

[Kemal Demir]

Teşekkur Ederim Dostum.

 

[Kemal Demir]

Teşekkurden sonra böyle bir şey istemek istemezdim ama sanal samimiyete güvenerek bir sey rica edicem.

örnek
textbox1=01.08.2006
textbox2=05.08.2006

kod daki değişikli sadece bize ayın 1'inde başlamıs 5'inde bitenleri veriyor ama ben 5'ine kadar sonuclanan değerleride görmek istiyorum.Misal ayın 3 unde biten varsa yine listelenmesini istiyorum .

Kısacası =<textbox2 nasıl monte edeceğim.

Teşekkur Ederim.

 

[Korhan Ayhan]

Selamlar,

Kodda kullandığımız bu kısmı ;

Criteria1:=CDate(TextBox1)

Aşağıdaki gibi değiştirerek denermisiniz.

Criteria1:>=CDate(TextBox1)

 

[Kemal Demir]

Kodda hata veriyor .Sn.COST_CONTROL, ":" dan sonra > "Büyüktür" işaretini kabul etmiyor.

 

[Korhan Ayhan]

Selamlar,

Yukarıdaki mesajımdaki kodu yeniledim denermisiniz.

 

[Kemal Demir]

Teşekkur Ederim.