textbox format

[umrant]

merhaba arkadaşlar
Excel ile bir tabla yapmaya çalışıyorum.
sayfa üzerindeki hücreyi bin ayracını aktif ve iki haneli ondalık sayı şeklinde ayarladım.
hücre üzerinde ücret :75,00 şeklinde görünüyor.
form üzerindeki textbox tan çagırınca ve değeri kaydedince farklı şekilde yazdırıyor.
kullandıgım format sekli, textbox a yazdıgım miktar ve sayfadaki götünüm altta belirttigim gibidir.
nerede yanlış yapıyorum acaba

formül olarak: ücret = Format(ücret.Value, "#,##0.00")
yazdıgımda
175,50 yazınca 1.755,00 görünüyor
75,50 yazınca 755,00 görünüyor
17.550,00 yazıncada dogru görünüyor

daha yeni oldugum için forumdaki aratmalardan kısa bir çözüme ulaşamadım.
simdiden teşekkürler

 

[Orion1]

merhaba arkadaşlar
Excel ile bir tabla yapmaya çalışıyorum.
sayfa üzerindeki hücreyi bin ayracını aktif ve iki haneli ondalık sayı şeklinde ayarladım.
hücre üzerinde ücret :75,00 şeklinde görünüyor.
form üzerindeki textbox tan çagırınca ve değeri kaydedince farklı şekilde yazdırıyor.
kullandıgım format sekli, textbox a yazdıgım miktar ve sayfadaki götünüm altta belirttigim gibidir.
nerede yanlış yapıyorum acaba

formül olarak: ücret = Format(ücret.Value, "#,##0.00")
yazdıgımda
175,50 yazınca 1.755,00 görünüyor
75,50 yazınca 755,00 görünüyor
17.550,00 yazıncada dogru görünüyor

daha yeni oldugum için forumdaki aratmalardan kısa bir çözüme ulaşamadım.
simdiden teşekkürler

Örnek dosya yollayabilirmisiniz?

 

[umrant]

merhaba orion2
dosyanın bir bölümünü ekte gönderdim
sayfadaki A sütünunda göreceginiz gibi ucret değerleri farklı.
sayfada göründüğü gib textbox a gelmiyor, yazılmış değerlerde yazıldığı gibi kaydedilmiyor.
bu durumda ne yapmam gerektiğini çözemedim.
ilginize teşekkürler

 

[Orion1]

Kırmızı ile boyanmış satırda düzenleme yapıldı.
Ekli dosyayı inceleyiniz.

Private Sub lstlist_Change()
Set adsoyad = Range("c2:c51").Find(lstlist.Value, searchdirection:=x1next, MatchCase:=False)
ilksatir = adsoyad.Row
Set adsoyad = Range("c2:c51").FindPrevious(Range("c51"))
sonsatir = adsoyad.Row: txtsirano.Value = Cells(ilksatir, 2).Value
Set adsoyad = Range(Cells(ilksatir, 2), Cells(sonsatir, 2)).Find(lstlist.Value, searchdirection:=x1next, MatchCase:=False)
txtsirano.Value = Cells(ilksatir, 2).Value: txtpersad.Value = Cells(ilksatir, 3).Value
[COLOR="Red"]aidat.Value = Format(Cells(ilksatir, 4).Value, "#,##0.00")[/COLOR]
Range("a4").Value = txtsirano.Text
End Sub

 

[umrant]

tekrar merhaba orion2
düzeltmeniz sorunumu çözdü teşekkür ederim.
kusura bakmayın sizi yoruyorum ama, son bir sorum daha olacak
bu düzelttiginiz kod:
aidat.Value = Format(Cells(ilksatir, 4).Value, "#,##0.00")
diger aylar için ve kaydederkende geçerli olacak mı?
(ilksatir,4 diye belirtildigi için soruyorum.)

 

[Orion1]

diger aylar için ve kaydederkende geçerli olacak mı?
(ilksatir,4 diye belirtildigi için soruyorum.)

Kaydettiğniz kodları verebilirseniz bakalım bir .

 

[umrant]

sayın orion2
sizden cevap beklerken gönderdiginiz kodu uygulamamda kullandım.
sorun olmadıgını, önceki mesajımdaki sorunun anlamsız oldugunu gördüm.
degerli vaktinizi aldıysam kusura bakmayın, bu işlerdeki acemiligimize verin.
yardımınız için çok teşekkür ederim.
işlerinizde başarılar dilerim

 

[Orion1]

sayın orion2
sizden cevap beklerken gönderdiginiz kodu uygulamamda kullandım.
sorun olmadıgını, önceki mesajımdaki sorunun anlamsız oldugunu gördüm.
degerli vaktinizi aldıysam kusura bakmayın, bu işlerdeki acemiligimize verin.
yardımınız için çok teşekkür ederim.
işlerinizde başarılar dilerim

Rica ederim.
İyi çalışmalar.

 

[ahmett46]

Sayın Orion2 bu konuda benimde bir sorum olacak
excel hücresindeki bir ondalıklı sayıyı(602,12345) textbox ta sadece 602 olarak, virgülden sonrasını yazmadan sadece tam sayı kısmını textbox a nasıl yazdırırım. Teşekkürler

 

[Orion1]

Sayın Orion2 bu konuda benimde bir sorum olacak
excel hücresindeki bir ondalıklı sayıyı(602,12345) textbox ta sadece 602 olarak, virgülden sonrasını yazmadan sadece tam sayı kısmını textbox a nasıl yazdırırım. Teşekkürler

Değerin A1 hücresinde olduğunu kabul edersek.

TextBox1.Value = Format(Range("A1").Value, "#,##0")

 

[ahmett46]

teşekkürler hocam

 

[Orion1]

teşekkürler hocam

Rica ederim.