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

**majid_mx4** · 2019/09/16, 16:06

با سلام

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

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

**kia97** · 2019/09/17, 00:46

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

لینک آپلود:

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

**majid_mx4** · 2019/09/17, 08:51

با سلام

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

کد:

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

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

فایل های پیوست شده

listbox test1 Mir.rar (20.4 کیلو بایت, مشاهدات 16)

**kia97** · 2019/09/17, 09:31

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