Makro ile sayı düzeltme

[KARTAL133]

Merhaba Arkadaşlar

Excelde Makro ile mail sayıları geliyor ancak virgul ile ayırma yapamadım.

Yardımcı olmanızı rica ederim.

Tutar Aşağıdaki gibi geliyor




Makro aşağıdaki gibidir.




Sub Gönder()

Dim objOlk As Object, mrt As Object, mrtgovde As String

Sheets("local").Select
sonsatır = Range("a65536").End(3).Row

For i = 3 To sonsatır
kalangun = Cells(i, 15).Value
If Cells(i, 16).Value = "Hayır" Or Cells(i, 16).Value = "Hayır" Or Cells(i, 15) > 15 Then
GoTo döngüsonu


ElseIf kalangun < 15 And kalangun > 0 Then


kişi = Cells(i, 18).Value
Muh = Cells(i, 3).Value
Email = Cells(i, 17).Value
mesajmetni1 = "Merhaba"
mesajmetni2 = "Firma Adı"
TRY = Cells(i, 10).Value ' Sayı
USD = Cells(i, 11).Value ' sayı
EUR = Cells(i, 12).Value ' sayı
GBP = Cells(i, 13).Value ' sayı
GNL = Cells(i, 14).Value ' sayı
limt = Cells(i, 8).Value ' sayı
muhkodu = Cells(i, 2)
nok = ":"
mesajmetni4 = Muh
TRY1 = "TRY Bakiyeniz"
USD1 = "USD Bakiyeniz"
EUR1 = "EUR Bakiyeniz"
GBP1 = "GBP Bakiyeniz"
GNL1 = "Genel USD Bocunuz"
limt1 = "USD Limit"
muhkodu1 = "Muhasebe Kodu"
Açıklama = "Gücel borç durumu aşağdaki gibidir." & "<br>" & "Limit aşıldığından dolayı evrak alımında sıkıntı yaşamamanız için limitti aşan kısmın ödemesini yapmanızı rica ederiz."
mesajmetni11 = "Bu bir hatırlatma mailidir."
mesajmetni12 = ""


mesajmetni = mesajmetni1 & " " & kişi & "<br>" & "<br>" & "<br>" & muhkodu1 & nok & " " & muhkodu & "<br>" & mesajmetni2 & " " & nok & " " & Muh & "<br>" & "<br>" & Açıklama & "<br>" & "<br>" & TRY1 & nok & " " & TRY & "<br>" & USD1 & nok & " " & USD & "<br>" & EUR1 & nok & " " & EUR & "<br>" & GBP1 & nok & " " & GBP & "<br>" & "<br>" & GNL1 & nok & " " & GNL & "<br>" & limt1 & nok & " " & limt & "<br>"

Range("j:j").NumberFormat = "#,##0.00"


Else
kişi = Cells(i, 3).Value
Muh = Cells(i, 2).Value
Email = Cells(i, 17).Value
mesajmetni1 = "Merhaba"
mesajmetni2 = kişi
mesajmetni3 = ";"
mesajmetni4 = Muh
mesajmetni5 = "USD"
mesajmetni6 = "TRY"
mesajmetni7 = "EUR"
mesajmetni8 = "GBP"
mesajmetni9 = Cells(i, 4)
mesajmetni10 = " teminat mektubunun " & kalangun & " gün kalmıştır."
mesajmetni11 = "Bu bir hatırlatma mailidir."

mesajmetni = mesajmetni1 & Cells(i, 3).Value

Range("j:n").NumberFormat = "#,##0.00"

End If

'mail atma kodları

Set objOlk = CreateObject("Outlook.Application")

Set mrt = objOlk.CreateItem(0)
mrt.To = Email
mrt.cc = ""
mrt.Subject = "Limit Aşımı"
mrtgovde = mesajmetni
mrt.Close olSave

mrt.HTMLBody = mrtgovde
mrt.Save
mrt.Display
mrt.send

Set mrt = Nothing: Set objOlk = Nothing
mrtgovde = vbNullString:


döngüsonu:
Next i


End Sub

 

[YUSUF44]

TRY = Cells(i, 10).Value ' Sayı
USD = Cells(i, 11).Value ' sayı
EUR = Cells(i, 12).Value ' sayı
GBP = Cells(i, 13).Value ' sayı
GNL = Cells(i, 14).Value ' sayı
limt = Cells(i, 8).Value ' sayı

Bu kodlarda format kodu kullanarak çözebilirsiniz. Makro kaydet yöntemiyle istediğiniz biçimlerin kodlarını alın. Sonra da örneğin TRY için
TRY = format(Cells(i, 10).Value, “#,###.00 $”) ' Sayı

Şeklinde kodları düzenleyin. Muhtemelen düzelecektir.

 

[KARTAL133]

Merhaba

Yardımız için teşekkürler ancak olmuyor
Aşağıdaki Hatayı alıyorum

 

[KARTAL133]

Merhaba

Yardımız için teşekkürler ancak olmuyor
Aşağıdaki Hatayı alıyorum

Ekli dosyayı görüntüle 200192

Aşağıdaki gibi değiştirdim.
Aşağıdaki hata oldu.