Comboboxta mükerrer olanlar + Combobox değer yazarken titreme

[sdegirmenci]

Değerli Hocalarım merhaba;
Combobox4 altınaki kod ile çıkış sayfasındaki "O" Sütununda yazılı değerleri almakta, ancak çalışma kitabını kapatıp yeniden açtığımızda Combobox listesi boşalmakta, her hangi bir harf yadığımızda listeyi o zaman almakta.Koda göre Mükerrer olanları göstermemesi gerekirken mükerrer olanlarıda listelemekte.Bunun sebebini anlayamadım.
Ayrıca seçim yapmayıpta el ile yazarak giriş yaptığımızda ise her harften sonra titremekte. İlgilenip yardımcı olabilirseniz çok sevinirim. İşlerinizin kolay gelsin.

 

[Orion1]

Dosyanız ekte.

Private Sub Workbook_Open()
Call cmb4liste
End Sub

Sub cmb4liste()
ActiveSheet.Unprotect
Set sf = Sheets("ÇIKIŞ")
Set gr = Sheets("GİRİŞ")
Range("C61").Value = gr.ComboBox4.Value
For i = 5 To sf.[O65536].End(xlUp).Row
    If WorksheetFunction.CountIf(sf.Range("O5:O" & i), sf.Cells(i, "O")) = 1 Then
        gr.ComboBox4.AddItem sf.Cells(i, "O").Value
    End If
Next
ActiveSheet.Protect
If gr.ComboBox4.ListCount > 0 Then gr.ComboBox4.ListIndex = 0
End Sub

 

[sdegirmenci]

Kıymetli Evren Hocam;
Siz süper bir insansınız, Dilerim bütün işleriniz hep gönlünüzce olsun.Saygılarımla

 

[Orion1]

Kıymetli Evren Hocam;
Siz süper bir insansınız, Dilerim bütün işleriniz hep gönlünüzce olsun.Saygılarımla

Rica ederim.
Bilmukabele.

 

[sdegirmenci]

Evren Hocam;
Listeye eklediğim yeni verileri kabul etmiyor kontrol edebilirmisiniz acaba;

 

[Orion1]

Evren Hocam;
Listeye eklediğim yeni verileri kabul etmiyor kontrol edebilirmisiniz acaba;

Dosya ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 15 Then
    Set sf = Sheets("ÇIKIŞ")
    Set gr = Sheets("GİRİŞ")
    gr.ComboBox4.Clear
    For i = 5 To sf.[O65536].End(xlUp).Row
    If WorksheetFunction.CountIf(sf.Range("O5:O" & i), sf.Cells(i, "O")) = 1 Then
        gr.ComboBox4.AddItem sf.Cells(i, "O").Value
    End If
    Next
If gr.ComboBox4.ListCount > 0 Then gr.ComboBox4.ListIndex = 0
End If

 

[sdegirmenci]

Evren Hocam ; bu sefer oldu. Tekrar teşekkür ederim.

 

[Orion1]

Evren Hocam ; bu sefer oldu. Tekrar teşekkür ederim.

Rica ederim.
İyi çalışmalar.