hücreden textboxa veri alma

agd

Katılım
19 Ağustos 2005
Mesajlar
31
Excel Vers. ve Dili
OfficeXP/TR
arkadaşlar sayfa1 de b2 'deki rakamı textbox'a ylt biçiminde almak istiyorum . fakat kodunu beceremedim .yardımcı olursanız sevinirim
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
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

Katılım
19 Ağustos 2005
Mesajlar
31
Excel Vers. ve Dili
OfficeXP/TR
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
[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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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.
 

agd

Katılım
19 Ağustos 2005
Mesajlar
31
Excel Vers. ve Dili
OfficeXP/TR
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

Katılım
19 Ağustos 2005
Mesajlar
31
Excel Vers. ve Dili
OfficeXP/TR
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..
 
Üst