combobox format

[ahmett46]

Slm arkadaşlar
combobox a istediğim sayıyı nasıl girerim. Virgül sonrası yazdıramıyorum.

 

[Orion1]

Slm arkadaşlar
combobox a istediğim sayıyı nasıl girerim. Virgül sonrası yazdıramıyorum.

Nasıl yani , ellemi giremiyorsunuz?

 

[woyzeck]

Aslında benim de böyle bir problemim var,
combobox için tanımladığım RouveSource tanımı virgüllü rakamlardan oluşmakta. Fakat combobox'da herhangi bir virgüllü rakamı tıkladığım an, virgül noktaya dönüşmekte.
3,3 yerine 3.3 çıkmakta.

buradaki virgülü nasıl göstertebiliriz?

Teşekkürler.

 

[woyzeck]

Arkadaşlar, gerçekten çok ilginç bir durum bu, yarım saat önce 3.3 olarak controlbox'da görünen değer bi anda 3,3 olarak değişti. ve ben herhangi bir kod girmedim. yani virgül kafasına göre ya nokta oluyo ya da tekrar virgul oluyo. ulvi bi problem mi diye düşünmeye başladım.
böyle bi durum ile karşılaşan oldu mu acaba?

 

[nkumas]

comboboxta sectigim deger mesela 20 bunu comboboxta M20 olarak yazsın ama comboboxın degeri 20 kalsın istiyorum yani text olmasın. soyle anlatayım ben civata capı sececegim ve bu m20 yazacak ama daha sonra bunu worksheete aktarırken hucreye 20 atasın ki rakam olarak worksheet islam yapabilsin bi turlu beceremedim

Private Sub Combobox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.Value = Format("M" & ComboBox1.Value)

End Sub
sonra da

Sheets("1").Range("d105").Value = Val(UserForm11.ComboBox1.Value)

dedigimde hucreye sadece M yazıyor

 

[Orion1]

comboboxta sectigim deger mesela 20 bunu comboboxta M20 olarak yazsın ama comboboxın degeri 20 kalsın istiyorum yani text olmasın. soyle anlatayım ben civata capı sececegim ve bu m20 yazacak ama daha sonra bunu worksheete aktarırken hucreye 20 atasın ki rakam olarak worksheet islam yapabilsin bi turlu beceremedim

Private Sub Combobox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.Value = Format("M" & ComboBox1.Value)

End Sub
sonra da

Sheets("1").Range("d105").Value = Val(UserForm11.ComboBox1.Value)

dedigimde hucreye sadece M yazıyor

Ekli dosyayı inceleyiniz.

Private Sub ComboBox1_Click()
Range("B1").Value = ComboBox1.Column(0)
ComboBox1.Value = "M" & ComboBox1.Column(0)
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "A1:A20"
ComboBox1.ListIndex = 0
End Sub

 

[nkumas]

tesekkurler...

ekli dosyada ilk degeri rowdan sectigi icin m20 olarak geliyor ama bende worksheetteki hucreden aldıgı icin


Private Sub UserForm_activate()
ComboBox1.Value = Sheets("1").Range("i49").Value
ComboBox1.Value = Format("M" & ComboBox1.Value)
End Sub

kodu kaldı ama

Private Sub Combobox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.Value = Format("M" & ComboBox1.Value)

End Sub

yerine

Private Sub ComboBox1_Click()
db = ComboBox1.Column(0)
ComboBox1.Value = "M" & ComboBox1.Column(0)
End Sub

yazınca oldu sanırım .. yani öyle gorunuyor

cok saolun

 

[cenderus]

dosya ektedir

konu başlığına ait bulabildiğim dosya ektedir