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

[Nima]

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

http://s1.picofile.com/file/7558016127/Excel_table_List_box.xlsm.html

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[s.cheraghi]

سلام
یکم سوالتون کاملتر بگین
اگه میخواین که لیست نام ها بدون تکرار در لیست باکس قرار بگیرند بهتره قبل از اضافه شدن به لیست باکس با استفاده از Advance filter قسمت های تکراری رو جدا کنید و بعد به لیست اضافه کنیدشون
کد مربوط به جداکردن مقادیر غیر تکراری:

Range("B5:B12").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("I6:I12"), Unique:=True 

[sohrabahmadi]

با سلام به اساتید و دوستان عزیز ، در مورد سوال آقا نیما آیا راهکاری هست که داده ها فقط توی لیست باکس سورت بشن بدون اینکه بخواهیم توی شیت داده ها رو مرتب کنیم؟ با تشکر

[Nima]

سلام
یکم سوالتون کاملتر بگین
اگه میخواین که لیست نام ها بدون تکرار در لیست باکس قرار بگیرند بهتره قبل از اضافه شدن به لیست باکس با استفاده از Advance filter قسمت های تکراری رو جدا کنید و بعد به لیست اضافه کنیدشون
کد مربوط به جداکردن مقادیر غیر تکراری:

Range("B5:B12").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("I6:I12"), Unique:=True 

با تشکر از شما

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

یه نمونه کد دارم که کارم میکنه ولی فقط ستون اول رو تو لیست باکس نشوون میده من می خوام تمام ستونها رو نمایش بده:

Private Sub UserForm_Initialize()
    Dim col As New Collection
    Dim r As Long
    Dim m As Long
    m = Range("A" & Rows.Count).End(xlUp).Row
    On Error Resume Next
    For r = 2 To m
        col.Add Item:=Range("A" & r).Value, Key:=CStr(Range("A" & r).Value)
    Next r
    For r = 1 To col.Count
        Me.ListBox1.AddItem col(r)
    Next r
End Sub