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
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