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

[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]

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

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