DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dim i As Long
For i = 1 To Cells(65536, "A").End(xlUp).Row
If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, "A").Value) = 1 Then
ComboBox1.AddItem Cells(i, "A").Value
End If
Next i
örnek dosyanız ektedirexcelde bir sütunda bulunan verileri combobox a almak fakat aynı değerlerin sadece birtanesini getirtmek