hücreden textboxa veri alma

[agd]

arkadaşlar sayfa1 de b2 'deki rakamı textbox'a ylt biçiminde almak istiyorum . fakat kodunu beceremedim .yardımcı olursanız sevinirim

 

[veyselemre]

Formatınız doğru, bir hata yok, sorun vba da ondalık işareti olarak nokta kullanılmasından kaynaklanıyor, manuel olarak değiştirmedikten sonra bu şekilde kullanmanız gerekir, bu şekilde kullanmanız başka hesaplamalarda kullandığınız zaman size avantaj sağlayacaktır.

 

[agd]

sorun vba da ondalık işareti olarak nokta kullanılmasından kaynaklanıyor, manuel olarak değiştirmedikten sonra bu şekilde kullanmanız gerekir.
MANUEL OLARAK NEREDEN DEĞİŞTİRECEĞİZ.???

 

[veyselemre]

[vb:1:fec4250fdd]Private Sub CommandButton1_Click()
topmazotborcu = ytlformat(Worksheets("sayfa1").Range("b2").Value)
End Sub
Function ytlformat(sayi)
sayi = Format(Round(sayi, 2), "# ##0.00")
'sayi=Format(sayi, "# ##0.00") 'yuvarlamayı kaldırmak için burayı kullanabilirsiniz.
ytlformat = Replace(Replace(sayi, ".", ","), " ", ".")
End Function
[/vb:1:fec4250fdd]

 

[Seyit Tiken]

Niye alternatifler üzerinde durmuyorsunuz? ComboBox'la bu sorunu haledebilirsiniz. Özelliklerden ComboBox'un açılır liste tırnağını görünmez yapıp TextBox'a benzetebilirsiniz. Bu şekilde ondalık sorunuyla karşı karşıya kalmazsınız.

 

[Seyit Tiken]

Ekli dosyaya bir bakınız.

 

[agd]

sevgili seyit tiken , dosyanızı inceledim .. hala sorun bende devam ediyor..
sorun vba da ondalık işareti olarak nokta kullanılmasından kaynaklanıyormuş veyselemrenin yazdığına göre buradan düzeltmeden işimiz olmayacak herhalde..
metneçevirip deneyeceyim.. teşekkürler..

 

[agd]

ARKADAŞLAR,


topmazotborcu = Worksheets("sayfa1").Range("b2").Value
topmazotborcu = Format(topmazotborcu, "###,###.00")

kodunu ,aşağıdaki kod gibi yaptım hata düzeldi...;

topmazotborcu.text = Worksheets("sayfa1").Range("b2").Value
topmazotborcu = Format(topmazotborcu, "###,###.00")

düzeltilmiş dosya ektedir..