Combobox listesine sözcük ekleme

[xemdarx]

Selamlar,
"bilgiler" sayfasının B5:B15 aralığından alınan ( 1, 2, 3, ... diye devam eden) Combobox listesine "sınıfı" sözcüğünü eklemek istiyorum. Fakat kaydet dediğimde hücreye yine aynı değerin (1,2, 3....) atamasını sağlayabilir miyiz? Teşekkürler

 

[Korhan Ayhan]

Merhaba,

Bu işlemi kaynak alan olan B5:B15 aralığındaki hücrelerde yapmak daha mantıklı olacaktır. Sonrasında veriyi hücreye yazdırırken SINIFI kelimesini sildirerek yazdırmanız daha kolay olacaktır.

 

[xemdarx]

O şekilde de olabilir.

 

[Korhan Ayhan]

Sanıyorum işin o kısmını kendinizde halledebilirsiniz..

 

[xemdarx]

Yazmaya gerek kalmazdı.

 

[Korhan Ayhan]

Son ifadenizi tam olarak anlayamadım. Sorununuz çözüldü mü?

 

[xemdarx]

Korhan bey, keşke sorunu çözmüş olsaydım. Sizi de meşgul etmezdim. Afola

 

[Korhan Ayhan]

Örnek dosya paylaşırmısınız.

 

[xemdarx]

Dosya eklemeye yetki yok.

 

[Korhan Ayhan]

Altın Üye olmayan üyelerimiz genellikle harici dosya yükleme sitelerini kullanarak dosya paylaşımı yapabiliyorlar..

 

[xemdarx]

İndir COMBOBOX EKSİK ATAAMA

Dosyayı indir COMBOBOX EKSİK ATAAMA

dosya.co

 

[Korhan Ayhan]

Userform üzerindeki diğer kodları tasarladığınızı düşünerek sadece hücreye yazdırma kısmını paylaşıyorum. Kendi dosyanıza göre uyarlarsınız.

Private Sub CommandButton1_Click()
    Cells(Rows.Count, "F").End(3)(2, 1) = Replace(Me.sinifi.Value, ". sınıf", "")
    Cells(Rows.Count, "G").End(3)(2, 1) = Me.subesi.Value
End Sub