ComboBox ta mükerrer ve boşluk

[sdegirmenci]

Merhaba;
Ekteki dosyam üzerinde de açıkladığım gibi ComboBox ta mükerrer ve boşluklar var , bunların olmaması için Forum üzerinde araştırma yaptım, ama bulduğum kodlar hata veriyor. Bu konuda ekteki dosyama göz atabilirseniz çok memnun olurum. İşleriniz kolay gelsin.

 

[uzmanamele]

merhaba

combobox1 için kullandığınız listeyi aşağıdaki gibi oluşturabilirsiniz.

Sub ad_tanımla()
For i = 2 To 5
Sheets(i).Select
    Sheets(i).Range("G5:G2000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "M1"), Unique:=True
    Sheets(i).Sort.SortFields.Clear
    Sheets(i).Sort.SortFields.Add Key:=Range("M1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With Sheets(i).Sort
        .SetRange Range("M2:M2000")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Next
End Sub

kastamonu sayfası için tanımladığınız ad için formül

=KAYDIR(Kastamonu!$M$1;1;0;BAĞ_DEĞ_DOLU_SAY(Kastamonu!$M:$M)-1)

diğer sayfalar için benzer dinamik ad tanımlama formülü oluşturunuz