Binlik Ayraç ve Virgülden Sonra İki Hanenin Yazılması

[ahmedummu]

Merhaba arkadaşlar.

Msgbox'a hesaplaması yapılmış ve sayfaya yazdırılmış iki sonuç yazdırıyorum. Brüt sonuç doğru yazdırılırken, Net sonucunun binlik ayracı ve virgülden sonraki kuruş kısmı yazdırılmıyor. Kodlar aşağıdadır. brüt ve net değişkenlerine aktarılan sayfadaki verileri ve msgbox görüntüsünü ekledim bir bakıp yazdımcı olursanız sevinirim.

Dim brüt, net As Long
brüt = Format(Sheets("ÖEBYOL").Range("c62").Value, "#,##0.00")
net = Format(Sheets("ÖEBYOL").Range("m62").Value, "#,##0.00")
MsgBox "Sürekli Görev Yolluğu bordrosu hesaplandı." & vbLf & vbLf & "Brüt : " & brüt & " TL " & vbLf & "Net  : " & net & " TL"

 

[PLİNT]

Merhaba

Değişken tanımlarını şöyle deneyiniz.

Dim brüt As Double
Dim net As Double

 

[Asri]

Alternatif;

Dim brüt, net As String

 

[ahmedummu]

Sayın PLİNT teşekkür ederim. Sorun düzeldi gibi.

Brüt : 2741,03 TL
Net : 2720,23 TL

Sonuç bu şekilde. Binlik ayracı olmuyor. Bu şekilde de işime yarar. Tekrar teşekkürler.

 

[PLİNT]

Sayın PLİNT teşekkür ederim. Sorun düzeldi gibi.

Brüt : 2741,03 TL
Net : 2720,23 TL

Sonuç bu şekilde. Binlik ayracı olmuyor. Bu şekilde de işime yarar. Tekrar teşekkürler.

Sn asri nin tesbiti daha doğru oldu "String" olarak tanımlayınız.

Dim brüt As String
Dim net As String

 

[ahmedummu]

Sayın asri cevabınız gözümden kaçmış kusura bakmayın. Evet aynen istediğim gibi çıkıyor sonuç.

Her ikinize de teşekkürler. Hayırlı geceler.