combobox veri alma

[kemal turan]

Merhaba,
Combobox a rowsource ile sayfadan veri alabiliyoruz.Yeni veri olduğunda ise sayfaya kaydet kodu ile yeni veri ekleyebiliyoruz.
Bildiğiniz farklı bir yol ise combobox a userform initialize olayında .AddItem ile veri alınıyor.
Örnek aşağıdaki kod ile.
Sorum aşağıdaki listeye kod sayfasını açıp manuel veri girmeden userformdan textboxa veri girerek ekle butonu ile .AddItem e yeni ekleme yapabılabilir mi ?
Teşekkür ederim.

With ComboBox1
        .AddItem "KEMAL"
        .AddItem "HASAN"
        .AddItem "ÖMER"               
    End With

 

[Muzaffer Ali]

Bu şekilde de ekleme yapılabilir.

ComboBox1.AddItem Textbox1.value

 

[kemal turan]

Çok teşekkür ederim
Deneyip sonucu bildireceğim
Selametle

 

[kemal turan]

Merhaba,
Adamın biri çakmağın var mı demiş oda var demiş.
Çakmağı almış,
Sigaranda varmı demiş. var demiş. Birde sigara ver demiş..

Benimki de ona benzeyecek.
Teşekkür ederim eklemeyi yapıp parametre sayfa yükünden kurtuldum.
Combobox daki seçilen veriyi listeden silmeyi yapabiliyor muyuz.
Selametle kalınız

 

[Korhan Ayhan]

Listeniz nerede?

Combobox daki seçilen veriyi listeden silmeyi yapabiliyor muyuz.

 

[kemal turan]

Merhaba Korhan Hocam,
Listede sözüm yanlış olmuş.
Kusura bakmayın.
Silinecek veri

ComboBox1.AddItem Textbox1.value

kodu ile ekleme yaptığımız "Userform İnitialize" olayında,
Selametle.

 

[Korhan Ayhan]

Ben yine ne istediğinizi anlamadım.

Aradığınız kod aşağıdaki gibi bir şey mi?

Private Sub CommandButton1_Click()
    ComboBox1.AddItem TextBox1.Value
End Sub

Private Sub CommandButton2_Click()
    If ComboBox1.ListCount > 0 Then
        ComboBox1.RemoveItem 0
    End If
End Sub

 

[kemal turan]

Merhaba korhan Hocam,
ek dosyada sizin verdiğiniz kodu ekledim.
Kod Userform açıldığında combobox listesinin görünen 1 nci satırını siliyor.
istediğim kalıcı olarak comboboxda seçilen verinin userform initilaize olayından silinmesi.
Burada amacım yeni satış elemanı işe girdiğinde kullanıcı ekleyebilsin.
İşten çıktığında da kod sayfasına girmeden userform üzerinden silebilsin.
Teşekkür ederim.

 

[Korhan Ayhan]

SİL butonu kodu;

Private Sub CommandButton2_Click()
    If ComboBox1.ListCount > 0 Then
        ComboBox1.RemoveItem ComboBox1.ListIndex
        ComboBox1.Value = Empty
    End If
End Sub

 

[kemal turan]

Korhan hocam merhaba
Telefondan yazıyorum. Denemedim ama siz kod yazmışsanız tamamdır.
Selametle kalınız