Combobox listede veri ekle, sil

[xemdarx]

Selamlar,
Combobox listelesine yeni veri ekleyip silme işlemini yapmak istiyorum.Fakat bazı sorunlarla karşılaştım. Mümkünse dosyayı inceleyip yardım eder misiniz?

 

[Ömer BARAN]

Merhaba.

UserForm'un tüm kodlarını silip, yerine aşağıdakileri yapıştırın ve denemeler yapın.

-- Listeniz netice itibariyle her hal ve takdirde aralarda boşluk içermeyeceğinden, Combobox'a ilgili veriler AddItem yerine RowSource yöntemiyle ekleniyor.
-- UserForm'da ComboBoxbutce2 adını verdiğiniz nesne bir TEXTBOX ama Combobox'muş gibi adlandırmışsınız.
İşlemlere bir etkisi yok ama tavsiyem bu adı değiştirip, aşağıdaki kodlarda da ilgili kısımları da ona göre değiştirmeniz yönünde.
.

[B][COLOR="Blue"]Private Sub UserForm_Initialize()[/COLOR][/B]
If Cells(Rows.Count, 3).End(3).Row > 14 Then
    ComboBoxbutcex.RowSource = "veri!C14:C" & Cells(Rows.Count, 3).End(3).Row
Else
    ComboBoxbutcex = "LİSTE BOŞ"
End If
[B][COLOR="blue"]End Sub[/COLOR][/B]

[B][COLOR="blue"]Private Sub Label1_Click()[/COLOR][/B]
    Call sil
[B][COLOR="blue"]End Sub[/COLOR][/B]

[B][COLOR="blue"]Sub sil()[/COLOR][/B]
If ComboBoxbutcex = "" Then Exit Sub
If [C26].End(3).Row = 14 Then
    MsgBox "Silinecek Satır Bulunamadı", vbCritical, "UYARI"
    Exit Sub
Else
    Cells(ComboBoxbutcex.ListIndex + 14, 3).Delete Shift:=xlUp
    ComboBoxbutcex.RowSource = "veri!C14:C" & Cells(Rows.Count, 3).End(3).Row
    ComboBoxbutcex.ListIndex = -1
    MsgBox " Listeden Silindi", vbInformation, "SİLME İŞLEMİ"
End If
[B][COLOR="blue"]End Sub[/COLOR][/B]

[B][COLOR="blue"]Private Sub ilekle_Click()[/COLOR][/B]
    Call ekle
[B][COLOR="blue"]End Sub[/COLOR][/B]

[B][COLOR="blue"]Sub ekle()[/COLOR][/B]
If ComboBoxbutce2 = "" Then
    MsgBox "ComboBoxbutce2 boş olduğundan herhangi bir işlem yapılmadı."
    Exit Sub
ElseIf [C26].End(3).Row = 25 Then
    MsgBox "Listeye ekleme yapılamaz." & vbLf & "Çünkü C14:C25 arası DOLU"
        ComboBoxbutce2 = ""
    Exit Sub
Else
    Cells([C26].End(3).Row + 1, "C") = ComboBoxbutce2
    ComboBoxbutcex.RowSource = "veri!C14:C" & [C26].End(3).Row
    ComboBoxbutce2 = ""
    ComboBoxbutcex.ListIndex = ComboBoxbutcex.ListCount - 1
    MsgBox " Yeni ünvan eklendi", vbInformation, "..:: Ömer BARAN ::.."
End If
[B][COLOR="blue"]End Sub[/COLOR][/B]

 

[xemdarx]

Ömer Bey,
Faydalı ve açıklayıcı olmuş. Teşekkürler

 

[Ömer BARAN]

Kolay gelsin.