غیر تکرای کردن کمبوباکس

[ali.b]

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

اما اگه در رنج مورد نظر من داده های تکراری باشه کمبو دومی هم تکرار ها رو نشون میده ایا راهی هست که از نمایش داده های تکراری جلوگیری کنه؟

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

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

[iranweld]

با سلام
از شیت کمکی میتونید استفاده کنید تا دیتای بدون تکرار در اونجا لیست بشه؟
اگر مقدور بود در فایل پیوست اطلاعات بدون تکرار شیت یک در شیت دو لیست میشود
ماکرو فایل پیوست را به تعداد ستونهای موجود کپی و تغییر دهید

[mokaram]

با سلام . یکی دو روزی هست که نمی تونم فایل از انجمن دانلود کنم ارور میده ( قابل توجه امیر خان قاسمیان مد ظلله ) بنا بر این نتونستم فایلت را ببینم ولی باکد زیر می تونی کد های یونیک تو کمبو ایجاد کنی ( به فرض اینکه اطلاعات در ستون A هستند )

ComboBox1.Clear
Dim n
n = 2

Do While Sheet1.Cells(n, 1) <> Empty
    
    If WorksheetFunction.CountIf(Sheet1.Range(Sheet1.Cells(1, 1), Sheet1.Cells(n - 1, 1)), Sheet1.Cells(n, 1)) = 0 Then
        ComboBox1.AddItem Sheet1.Cells(n, 1).Value
    End If

n = n + 1
Loop 

[ali.b]

بابت زحمتی که کشیدین دستتون درد نکنه
اما داده های من طوری هستن که نمیشه از این روش استفاده کرد
هدم اینه خود کمبو 2 نشون نده

چون ممکنه مثلا نام ها یکسان باشن اما داده های سلول های متناظر به اونها فرق داشته باشه
فقط میخوام زمانی که کمبو2 رو. اجرا میکنم تکراری ها نشون داده نشه

بعدش ی سوال دگه تو همین فایل و در دکمه 2 ی جا نوشته For Each c1 In Sheet1.Range("A2:A100")
A2:A100 رو بخوام زیاد کنم کل فایل قفل میشه
راهی هست که رنج بیشتری رو پوشش بده ولی هنگ نکه فایل

[majid_mx4]

با سلام

لطفا فایل ضمیمه را بررسی نمایید.

خلاصه : اضافه کردن لیست به کموباکس دوم براساس کمبوباکس اول ( نام سرستونها ) و بصورت یونیک (فایل را به خاطر سوال دوم تغییر دادم )

با تشکر میر