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

[mokaram]

برای حذف سطر از لیست باکس کد زیر را نوشتم فقط دوستان عزیز کد زیر را بررسی کنید چرا عمل نمیکنه ممنون

On Error Resume Next

If UserForm2.ListBox1.ListIndex < 0 Then
    d = MsgBox("موردی یافت نشد, vbOKOnly + vbInformation, "...")
    Exit Sub
End If

Dim n As Integer
d = MsgBox("آیا مطمئن به حذف هستید", vbYesNo + vbCritical, "حذف اطلاعات...")
If d = vbYes Then
    n = UserForm2.ListBox1.List(ListBox1.ListIndex, 0)
    Dim c As Range
    For Each c In Sheet3.Range("b2:b2000")
        If c.Value <> "" And c.Value = n Then
            Sheet3.Rows(c.Row).Delete Shift:=xlUp
            ListBox1.RemoveItem (UserForm2.ListBox1.ListIndex)
            Exit For
        End If
    Next c
End If

[Nima]

سورس لیست باکست از کجاست
یعنی توسط حلقه انجام میشه یا به یک رنج ثابت ؟

[mokaram]

سورس لیست باکست از کجاست
یعنی توسط حلقه انجام میشه یا به یک رنج ثابت ؟

از طریق کد زیر وارد لیست باکس میشه

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

[Nima]

به نظرم کد شما درست نیست چون هم از یک رنج دیتا به لیست باکس اضافه میکنی و دوباره بر اساس همون دیتا ها اون رنج رو حذف میکن ؟؟!!!

اگه بتونی هدفی که از اینکار داری رو توضیح بدی شاید بشه کمک کرد.

[mokaram]

هدفم اینه که اطلاعاتی را که تو لیست باکس وارد کردم اگر هر کدومشا خواستم از لیست باکس و هم چنین سورس اصلی بتونم پاک کنم

[Nima]

هدفم اینه که اطلاعاتی را که تو لیست باکس وارد کردم اگر هر کدومشا خواستم از لیست باکس و هم چنین سورس اصلی بتونم پاک کنم

دوست عزیز شما با یک حلقه از شیت 3 دیتا ها رو به لیست باکس اضافه میکنی بعد با یک حلقه دیگه که شرطش برابر بودن دیتا های لیست باکس با شیت 3 هست اوتارو حذف میکنی!!! که این اصلا منطقی نیست.

میتونی با کد زیر با انتخاب ایتم تو لیست باکس اونرو حذف کنی:

ListBox1.RemoveItem ListBox1.ListIndex

[mokaram]

ممنون از حسن توجهتون
فقط چه جوری میتونم از سورس اصلی پاک کنم؟

[Nima]

ممنون از حسن توجهتون
فقط چه جوری میتونم از سورس اصلی پاک کنم؟

یک نمونه

[mokaram]

میشه بگید مشکل فایل من چیه که عملیات حذف را انجام نمیده ؟

[Nima]

میشه بگید مشکل فایل من چیه که عملیات حذف را انجام نمیده ؟

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

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

[mokaram]

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

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

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

[Nima]

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

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

[4017]

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

[mokaram]

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

[4017]

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