[حل شده] شرط برای نمایش لیست باکس

[kia97]

سلام
اگر در یک شیت اطلاعاتی زیادی داشته باشیم و یک ستون مشخص کننده بدهکاران باشد ( اگر فردی بدهکار باشه نوشته میشه بدهکار در غیر اینصورت چیزی در سلول این ستون وارد نمیشه و خالی می مونه)
حالا اگر بخواهیم که در یوزرفرم با کلیک بر روی یک دکمه تنها کسانی در لیست باکس نمایش داده بشوند که بدهکار هستند کد مورد نظر به چه صورت میشه.
با تشکر از کمک شما دوستان

[majid_mx4]

با سلام

برای جلوگیری از دوباره کاری ارسال فایل نمونه ضروری می باشد.

پایدار باشید میر

[kia97]

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

لینک آپلود:

http://s3.picofile.com/file/8372564968/test1.xlsm.html

[majid_mx4]

با سلام

لطفافایل ضمیمه را بررسی نمایید.
توضیح : اضافه شدن افراد بدهکار به لیست باکس

Private Sub CommandButton2_Click()
Lastrow = Cells(Rows.Count, "a").End(xlUp).Row

For Each Cell In Range("A2:A" & Lastrow)
If Cell.Offset(0, 4).Value = "بدهکار" Then
ListBox1.AddItem Cell.Offset(0, 0).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = Cell.Offset(0, 1).Value
ListBox1.List(ListBox1.ListCount - 1, 2) = Cell.Offset(0, 2).Value
ListBox1.List(ListBox1.ListCount - 1, 3) = Cell.Offset(0, 3).Value
ListBox1.List(ListBox1.ListCount - 1, 4) = Cell.Offset(0, 4).Value
ListBox1.List(ListBox1.ListCount - 1, 5) = Cell.Offset(0, 5).Value

End If
Next
End Sub

پایدار باشید میر

[kia97]

سلام
بله مشکل برطرف شد سپاس از کمک و راهنمائی شما استاد میر عزیز
فقط یه سوال اگر دو شرط داشته باشیم مثلا بدهکار باشه و رقم بدهی بالاتر از 1000 تومن باید دوبار از این کد شما استفاده کنم یا اینکه فقط یه and به شرط اضافه کنم.
با تشکر فراوان