ComboBox ta virgül Formatı

[sdegirmenci]

Merhaba;
ekli örnek dosyamda ComboBoxta listeden seçmiş olduğum virgül ile ayrılan rakamları Comboya bağlı olan hücreye nokta ile ayırarak atamakta, Yazıldığı gibi virgül ile ayırarak ataması konusunda yardımcı olabilirseniz sevinirim. İlginize teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

İlk olarak tasarım modundayken ComboBox1 nesnesinin özellikler penceresini açın.
LinkedCell özelliğindeki B3 ifadesini silip enter tuşuna basın ve özellikler penceresini kapatın.
Nesne üzerinde çift tıklayın. Açılan kod bölümüne aşağıdaki kodu uygulayın.

Private Sub ComboBox1_Change()
    Range("B3") = Replace(ComboBox1, ".", ",")
End Sub

 

[sdegirmenci]

Sayın, Korhan AYHAN Hocam;
İlginize çok teşekkür ederim.İstediğim oldu, İşleriniz kolay gelsin.