آموزش فیلتر داده ها بر مبنای چند محدودیت اختیاری و نمایش در لیست باکس

[javad_khosravi]

با سلام

راه اول با استفاده از Advance fillter یک لیست بدون تکرار از لیست خود ایجاد کنید و سپس آنها را به کمبوباکس ارتباط دهید

Private Sub UserForm_Initialize()

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
    Application.CutCopyMode = False
    Range("A1:A" & Z1).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    Range("A1:A" & Z1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "B1"), Unique:=True
        
        Z2 = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row
        
        For I = 2 To Z2
        
        ComboBox1.AddItem Range("B" & I)
        
        Next

End Sub 

راه دوم با استفاده از Collection یک لیست بدون تکرار و خالی در حافظه ایجاد کنید و سپس به کمبوباکس ارتباط دهید

ببخشید واسه این فایل پیوست میشه اینکارو بکنید ممنون میشم.