Makro ile sayı yazdırma

[KARTAL133]

Merhaba Arkadaşlar

Aşağdaki yazını Mail "HtmlBody" Ön yazı olarak aşağıdaki gibi çıkıyor.
Yazılan rakamları 10.00,00 Olarak yazdırmak istiyorum.
makro yazısı da aşağıdaki gibidir.
Yardımlarınızı rica ederim.




Merhaba Yetkili

Sayın : a Firması

TRY Bakiyeniz 10000 Alacak
USD Bakiyeniz 20000 Alacak
EUR Bakiyeniz 300000 Alacak
GBP Bakiyeniz 400000 Alacak

Lütfen Mutabık olup olmadığınızı bildirmenizi rica ederiz...





Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = kime
.CC = ""
.Subject = SD.Cells(satır, "A") & "-" & SF.Range("N6").Value & " - " & SD.Cells(satır, "I") & " " & SB.Range("C2").Value & "-" & SB.Range("C3").Value & " " & SB.Range("C4").Value
.Body = SD3.Range("a1").Value
.HtmlBody = "Merhaba" & " " & SD.Cells(satır, "O") & "<br>" & _
"<br>" & "Sayın : " & SF.Range("c6") & "<br>" & _
"<br>" & SF.Range("A36") & " " & SF.Range("B36") & " " & Range("D").NumberFormat = "#.##0,00" & SF.Range("D36") & " " & SF.Range("h36") & Chr(10) & Chr(10) & _
"<br>" & SF.Range("A37") & " " & SF.Range("B37") & " " & Range("D").NumberFormat = "#.##0,00" & SF.Range("D37") & " " & SF.Range("h37") & Chr(10) & Chr(10) & _
"<br>" & SF.Range("A38") & " " & SF.Range("B38") & " " & Range("D").NumberFormat = "#.##0,00" & SF.Range("D38") & " " & SF.Range("h38") & Chr(10) & Chr(10) & _
"<br>" & SF.Range("A39") & " " & SF.Range("B39") & " " & Range("D").NumberFormat = "#.##0,00" & SF.Range("D39") & " " & SF.Range("h39") & Chr(10) & Chr(10) & "<br>" & _
"<br>" & "<strong>Lütfen Mutabık olup olmadığınızı bildirmenizi rica ederiz...</strong>" & "<br>" & _
"<br>" & .HtmlBody

 

[KARTAL133]

Yardım

Acil yardım istiyorum

 

[antonio]

Merhaba,
NumberFormat ile başlayan tüm biçimlendirmelerde mevcut olan:

"#.##0,00"

içindeki nokta ile virgüllerin yerini değiştirerek deneyiniz. Başka bir deyişle aşağıdaki şekilde değiştiriniz:

[COLOR="Red"][B]"#,##0.00"[/B][/COLOR]

 

[KARTAL133]

Merhaba
Cevabınız için teşekkürler
Denedim acnak olmadı

 

[antonio]

Örnek dosya yükleyebilirseniz, sorun sebebi daha iyi anlaşılır ve cevap alma şansınız daha yüksek olur.