نمایش اطلاعات با شرط در لیست باکس

[yasertati3602]

سلام به دوستان
من تو فرمم دو تا لیست باکس دارم, میخوام براساس تاریخ اطلاعات از تو شیت بیاد تو لیست باکس که از این لحاظ مشکلی ندارم و کد زیر رو نوشتم

Private Sub TextBox8_Change()
Dim rcell As Range
ListBox1.Clear       
          For Each rcell In Sheet5.Range("d2", Sheet5.Cells(Rows.Count, 1).End(xlUp))
                   If rcell.Value >= TextBox7.Value And rcell.Value <= TextBox8.Value Then
                   
                   ListBox1.AddItem rcell
                   ListBox1.List(ListBox1.ListCount - 1, 0) = Format(rcell.Offset(0, 9).Value, "#,###")
                   ListBox1.List(ListBox1.ListCount - 1, 1) = Format(rcell.Offset(0, 8).Value, "#,###")
                   ListBox1.List(ListBox1.ListCount - 1, 2) = Format(rcell.Offset(0, 7).Value, "#,###")
                   ListBox1.List(ListBox1.ListCount - 1, 3) = rcell.Offset(0, 0).Value
                   End If
        Next rcell
End Sub

تو کد بالا گزارش به این صورت گرفته میشه : از تاریخ (تکست 7 ) تا تاریخ (تکست 8)
حالا من میخوام تو لیست باکس اولم تمام ردیف هایی که تو ستون سوم شیتم عدد 1 دارن نمایش داده بشه و تو لیست باکس دومم تمام ردیفهایی که تو ستون سوم شیتم عدد 2 رو دارن
اینو میدونم که تو لیست باکس دوم هم این کد باید نوشته بشه اما با چه دستوری بگم اگر ستون سوم شیت 1 یا 2 بود گزارش رو بگیر؟
ممنون میشم راهنمایی بفرمایید

[Javid Mokhtari]

با سلام.
فااااااااااااااااااااایل ...

[yasertati3602]

سلام
متاسفانه امکانش نیست که فایل رو بفرستم من فقط میخوام بدونم که چه کدی به دستورات بالا اضافه کنم
ممنون

[Javid Mokhtari]

سلام
متاسفانه امکانش نیست که فایل رو بفرستم من فقط میخوام بدونم که چه کدی به دستورات بالا اضافه کنم
ممنون

ListBox1.Clear
For j = Sheet1.Range("a1000000").End(xlUp).Row To 2 Step -1
    If Cells(j, j - (j - 1)) <> "" Then
    ListBox1.AddItem Cells(j, j - (j - 1))
            For i = 1 To 9
               ListBox1.List(ListBox1.ListCount - 1, i) = Cells(j, i + 1)
            Next i
    End If
Next 

pass: 007

[yasertati3602]

سلام
خیلی ممنون از پاسختون ولی کدی که فرستادین با خواسته من یکی نیست
من میخوام فیلتر لیست باکسم براساس 3 تا شرط باشه 2 تا شرط بیانگر بازه تاریخی هستند که بهش بگیم از تاریخ فلان تا تاریخ فلان رو برگردون
و یه شر ط دیگه براساس یه عدد خاصی هست (توضیحش رو در ادامه میدم)
مثلا ستون تاریخم در شیت ستون d هست پس یه متغیرم باید تو این ستون دنبال عبارتهای داخل شرط باشه
یه ستون دیگم کلا متشکل از 2 تا عدده , عدد 1 و عدد 2 (شرط سوم)
حالا مشکل اینه وقتی من از حلقه فور استفاده میکنم نمیتونم دو تا رنج رو بنویسم ,الان کد من فقط از تاریخ تا تاریخ رو بررسی میکنه و اون دو تا عدد رو بررسی نمیکنه
به نظر شما باید چیکار کنم؟
ممنون

[Javid Mokhtari]

سلام
خیلی ممنون از پاسختون ولی کدی که فرستادین با خواسته من یکی نیست
به نظر شما باید چیکار کنم؟
ممنون

فایل نمونه که نمیذارین ، کد هم میدیم میگین با خواستم مطابقت نداره.فایل پیوستی هم که به کل مردوده.
ما فایل نمونه رو برا همین میخوایم که این همه درجا زدن پیش نیاد.

خیلی ... خیلی ... ببخشید.امیدوارم بقیه دوستان سئوال شمارو پیگیری کنن.