İki Tarih arasını Listbox'ta göstermek

LUCENT31M · 18 Ağustos 2008

Sayın site sakinleri ve hocalarım.Sitede epey aradım, benzer örneklerde buldum ama işin içinden çıkamadım.2 textbox'tan girilen tarih değerlerinin arasındaki değerleri, diğer kayıtlarla birlikte gösterebilecek bir kodu yazamadım.yardım ederseniz sevinirim.sitedeki kodlar, başka bir sayfaya yazdırmakla ilgili.uyarlama yapim istedim olmadı:

Private Sub CommandButton21_Click()

bastar = TextBox22.Value
bittar = TextBox23.Value
c = 0
For tarih = 1 To Sheets("GelenEvrak").Cells(65536, 1).End(xlUp).Row
aratar = Sheets("GelenEvrak").Cells(tarih, 3).Value
If aratar >= bastar And aratar <= bittar Then
c = c + 1
For sut = 1 To 7

ListBox1.ColumnCount = sut
ListBox1.ColumnWidths = "25;160;50;35;250;50;50"

ListBox1.RowSource = "GelenEvrak!" & "A" & tarih & ":" & "G" & tarih

Next sut
End If
Next tarih
End Sub

kodlar yukarda.dediğim gibi mesala 10nisanla 27 temmuz arasindaki kayıtları alsın ve listboxta göstersin....sıralama: kayıtno/gelen kurum/tarih/belge no/ilişiği/cinsi..ben işin içinden çıkamadım.teşekkür ederim şimdiden

Korhan Ayhan · 18 Ağustos 2008

Selamlar,

En azından örnek bir dosya eklerseniz çözüme daha çabuk ulaşabiliriz.

LUCENT31M · 18 Ağustos 2008

dosya eklemeyi bulamadım açıkçası.yapmak istediğim ama yapamadığım kısmı yapıştırdım .girilen tarihe göre 7 sütunluk veriyi listbox ile gösterme idi.
http://rapidshare.de/files/40262649/Gelen_Giden_Evrak_2008_Arayuz_VerAgu17.rar.html

rapide yükledim işinize yararsa.saolun cevap ve yardım için

Korhan Ayhan · 18 Ağustos 2008

Selamlar,

Dosya eklemek için aşağıdaki linki incelermisiniz. Soru başlığınızı tıkladığınızda açılan pencerenin üst ve alt kısmında CEVAP YAZ butonuna tıkladıktan sonra aşağıdaki linkteki tarif edildiği şekilde dosya ekleme işlemi yapabilirsiniz.

http://www.excel.web.tr/showthread.php?t=32554

LUCENT31M · 18 Ağustos 2008

Dosya eklemeyi öğrendikten sonra yaptığım işi rar'li şekilde size sunuyorum. ben bir acemiyim.1 aydır VB(az basic bilirim), excel okuyorum.siteyi takip ediyorum.ne öğrendimse bu siteden oldu.işim bitince toptan teşekkür edicem. multipage yaptım.en son sayfada liste kısmındakilere bakıyorum diğerleri oldu gibi.istediğim şu.textbox22 ve 23'ten 2 tarih girelim. O tarihler arasındaki kayıtları list boxta göstersin.sitede baktığım kodlar, başka bir sayfaya yazdırıyordu.ben listeleme page'i içindeki listbox1'de görülmesini istiyorum.kayıt numarası sırasına göre. sanırım anlatabildim.teşekkür ederim şimdiden.

Korhan Ayhan · 18 Ağustos 2008

Selamlar,

Aşağıdaki kodu denermisiniz.

Kod:

Private Sub CommandButton21_Click()
    Set SGE = Sheets("GelenEvrak")
    &#304;LK_TAR&#304;H = TextBox22.Value
    SON_TAR&#304;H = TextBox23.Value
    If &#304;LK_TAR&#304;H <> "" And SON_TAR&#304;H <> "" Then
    ListBox1.Clear
    ListBox1.RowSource = ""
    ListBox1.ColumnCount = 7
    ListBox1.ColumnWidths = "25;160;50;35;250;50;50"
    For Each H&#252;cre In SGE.Range("C1:C" & SGE.[A65536].End(xlUp).Row)
    If CDate(H&#252;cre.Value) >= CDate(&#304;LK_TAR&#304;H) And CDate(H&#252;cre.Value) <= CDate(SON_TAR&#304;H) Then
    ListBox1.AddItem
    ListBox1.List(Sat&#305;r, 0) = H&#252;cre.Offset(0, -2).Value
    ListBox1.List(Sat&#305;r, 1) = H&#252;cre.Offset(0, -1).Value
    ListBox1.List(Sat&#305;r, 2) = Format(H&#252;cre.Value, "dd.mm.yyyy")
    ListBox1.List(Sat&#305;r, 3) = H&#252;cre.Offset(0, 1).Value
    ListBox1.List(Sat&#305;r, 4) = H&#252;cre.Offset(0, 2).Value
    ListBox1.List(Sat&#305;r, 5) = H&#252;cre.Offset(0, 3).Value
    ListBox1.List(Sat&#305;r, 6) = H&#252;cre.Offset(0, 4).Value
    Sat&#305;r = Sat&#305;r + 1
    End If
    Next
    End If
    Set SGE = Nothing
End Sub

LUCENT31M · 18 Ağustos 2008

Hocam çok teşekkür ederim. Beyninize, elinize ve bilgisayarınıza sağlık. Hocam beklediğimden daha karışık bir kod. Eğer mümkünse kod üzerinde iki şeyi sorabilir miyim ? Set SGE ile ne yapmak istediniz? SGE deyim mi yoksa kısaltma mı? Hocam, offset hücreyi doldurmadan geçme anlamında mı kullanıldı (formda baktım ama emin değilim.) Birde hocam, (0, -2) sanırım , tarih sütunu referans olarak alınmış, ona göre komutu belirliyor. Hocam, tekrar çok teşekkür ederim. Allah Razı Olsun.

LUCENT31M · 18 Ağustos 2008

Hocam gene ben... program çalışmıştı.pcyi kapattım açtım.hocam type mismatch diyor.Debug'a tıklayınca

If CDate(Hücre.Value) >= CDate(ilk_tarih) And CDate(Hücre.Value) <= CDate(son_tarih) Then

satırını işaret ediyor. hocam bu arada istediğim aralığı gösteriyo ama kitleniyor.tip uyuşmazlığı uyarısı sanırım ama biz tüm değerleri Date yaptık gibi.yardımcı olabilir misiniz? şimdiden teşekkür ederim

Ferhat Pazarçevirdi · 18 Ağustos 2008

Kodunuzda aşağıdaki şekilde değişilik yapınız. Hatalı olan kısımı göreceksiniz. Değişkilik ve eklentiler, kırmızı ile gösterilmiştir.

Kod:

[COLOR=darkgreen]    'Diğer kodlarınız
    '..................
    '..................[/COLOR]
[COLOR=red]    If Not IsDate(TextBox22) Or Not IsDate(TextBox23) Then
        MsgBox "Textboxlar'a tarih girilmelidir", vbCritical, "Uyarı"
        Exit Sub
    End If[/COLOR]
    
    For Each Hücre In SGE.Range("C1:C" & SGE.[A65536].End(xlUp).Row)
[COLOR=red]        If IsDate(Hücre) Then[/COLOR]
            
            If CDate(Hücre.Value) >= CDate(İLK_TARİH) And CDate(Hücre.Value) <= CDate(SON_TARİH) Then
                ListBox1.AddItem
                ListBox1.List(Satır, 0) = Hücre.Offset(0, -2).Value
                ListBox1.List(Satır, 1) = Hücre.Offset(0, -1).Value
                ListBox1.List(Satır, 2) = Format(Hücre.Value, "dd.mm.yyyy")
                ListBox1.List(Satır, 3) = Hücre.Offset(0, 1).Value
                ListBox1.List(Satır, 4) = Hücre.Offset(0, 2).Value
                ListBox1.List(Satır, 5) = Hücre.Offset(0, 3).Value
                ListBox1.List(Satır, 6) = Hücre.Offset(0, 4).Value
                Satır = Satır + 1
            End If
[COLOR=red]        Else
            MsgBox Hücre.Address & " hücresinde tarih formatlı veri yok", vbCritical, "UYARI"
        End If[/COLOR]
    Next
[COLOR=darkgreen]    '.....
    'Diğer kodlarınız.[/COLOR]

LUCENT31M · 19 Ağustos 2008

Ferhat Hocam teşekkür ederim.Sizinde beyninize, elinize ve bilgisayarınıza sağlık. Hocam size ayrıca bir teşekkür etmek istiyorum. forumdaki "Sıfırdan userform oluşturmak " başlığınızı sonradan takip ettim.şuan öğrendiğim şeyleri onlara borçluyu.gece12-1 demeden çalışmışsınız.3-4 aylık sanırım emeği ben 3-4 günde okudum.Allah razı olsun.diğer arkadaşlardanda onlarda size eşlik etmiş.tüm hocalarımıza çok teşekkür ediyorum.Allah razı olsun hepinizden.

İki Tarih arasını Listbox'ta göstermek

LUCENT31M

Korhan Ayhan

Administrator

LUCENT31M

Korhan Ayhan

Administrator

LUCENT31M

Korhan Ayhan

Administrator

LUCENT31M

LUCENT31M

Ferhat Pazarçevirdi

Özel Üye

LUCENT31M