ComboBox' da Verinin Tekrarlanması Sorunu

[snmyy]

Merhaba,

Combobox'a verilerimi alıyorum fakat bunu Private Sub ComboBoxTetiklenenEvent_GotFocus() içinde yaptığım için her öğe seçişimde comboboxda ki öğeler kendini tekrarlıyor. Ama Private Sub ComboBoxTetiklenenEvent_GotFocus() ' den daha uygun da bir sınıf bulamadım. Kodları paylaşıyorum. Yardımcı olursanız sevinirim.

Private Sub ComboBoxTetiklenenEvent_GotFocus()

Set rFound = Worksheets("Eventler").Cells.Find(What:="Event Adı :", _
After:=Cells(Cells.Rows.Count, Cells.Columns.Count), _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False)

For i = 0 To Worksheets("Eventler").Range("B2").End(4).Row

If Not rFound Is Nothing Then

ComboBoxTetiklenenEvent.AddItem rFound.Offset(0, 1).Value
Set rFound = Worksheets("Eventler").Cells.FindNext(rFound)


End If

Next i

End

End Sub

 

[hamitcan]

Kırmızı renkli satırı ekleyerek dener misiniz ?

Private Sub ComboBoxTetiklenenEvent_GotFocus()
[color=red]ComboBoxTetiklenenEvent.Clear[/color]

 

[snmyy]

Bunu denedim ama o zaman da seçim yapsam bile boş görünüyor hücre.

 

[snmyy]

Pardon, ben bunu Click içerisinde denemiştim. O zaman yukarıda yazdığım durum söz konusuydu. Focus' un içinde yapınca sorunum çözüldü. Gözden kaçırmışım. Çok teşekkürler cevabınız için.