مشکل حذف از لیست باکس

[mokaram]

دوست عزیز خط زیر :

 If c.Value = Val(ListBox1.List(i)) Then 

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

[Nima]

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

خوب تابع val() مقدار عدد رو بر میگردونه
و شما باید برای مقایسه مقدار عددی موجود در شیت با استفاده از این تابع مقدار عددی لیستباکس رو بر میگردونید .

[4017]

من عينا كد شمارو كپي كردم. اما اين ارور ميده
ميشه بفرماييد علت چيه؟

[mokaram]

میشه فایلتونا قرار بدید ؟

[4017]

ممنون ميشم بهش نگاهي بندازين

[mokaram]

مشکل شما تو لود شدن اطلاعاتتون تو لیست باکس هستش
کد زیر را تو ایونت UserForm_Activate جایگزین کنید

ListBox1.Clear
Dim d As Range
For Each d In Sheet3.Range("a2:a20")
    If d.Value <> "" Then
        ListBox1.AddItem d.Value
        For i = 0 To 4
            ListBox1.List(ListBox1.ListCount - 1, i) = d.Offset(0, i).Text
        Next i
    End If
Next d 

[4017]

دستتون درد نكنه. فقط اگه خونه هاي هم نام داشته باشم چيكار بايد كرد؟

[4017]

يه موضوع ديگه اينكه وقتي ميخوام موردي رو حذف كنم اون حذف شايد بشه شايد چندتاي ديگه حذف بشن. يه نگاه مجدد به كاركردش ميندازين؟

[Javid Mokhtari]

دستتون درد نكنه. فقط اگه خونه هاي هم نام داشته باشم چيكار بايد كرد؟

با سلام.
خب برای این کار میتوان شرطی برای شمارش سلول ها گذاشت تا اگر تعدادشان بیش از یک مورد بود اضافه نگردند