Verileri Say

[omeryılmaz]

ListBoxtan seçilen kuruma ait TextBox1 deki tarihe eşit ve küçük f sütununda "Var" yazan tarihler ve toplam sayısı


.Örn:

Tarih :17.04.2011
Kurum:Çorlu 9 No'lu Sağ. Ocağı seçildiğinde


. Sayısı = 3
. Var Tarihleri : 10.04.2009 - 15.04.2011 -17.04.2011 -> olmalı


Sayfada ve UserFormda açıklama mevcut

Yardımlarınız için şimdiden çok teşekkür ederim.

 

[Taruz]

Merhaba..

Prosedürünüzü bu şekilde değiştiriniz..:

say = 0
TextBox3 = ""
TextBox4 = ""
With ListBox1
    For c = 1 To .ListCount - 1
        If Format(TextBox1, "ddmmyyyy") >= Format(.List(c, 1), "ddmmyyyy") _
           And TextBox2.Text = .List(c, 2) _
           And .List(c, 5) = "Var" Then
            trz = trz & " -" & Format(.List(c, 1), "dd.mm.yyyy")
            say = say + 1
        End If
    Next
End With
TextBox3 = say
TextBox4 = Mid(trz, 3)

ProgressBar1.Min = 0
ProgressBar1.Max = 1000

For p = 1 To 1000
    DoEvents
    ProgressBar1 = p
Next
ProgressBar1.Min = 0
MsgBox "Bitti"

 

[omeryılmaz]

Teşekkürler Hocam

 

[efsane66ejder]

stok programı rapor alma

Sayın üstadlar benim size göre küçük bir sorunum var yapmak istediğimi kısaca dosya içerisine yazdım tarihler arası raporu alıyorum ancak tarihleri yazdıktan sonra seçtiğim ürüne göre rapor almasını istiyorum eğer mümkünse dosyaya ekleyebilirmisiniz. Yardımlarınızdan dolayı şimdiden teşekkür ederim başarılarınızın devamını dilerim.