KARTAL133
Altın Üye
- Katılım
- 12 Şubat 2009
- Mesajlar
- 179
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
- Altın Üyelik Bitiş Tarihi
- 05-11-2024
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
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