Merhaba
Altta ki makroma ilave bir koşul eklemek istiyorum
G hücresinde ki değer F hücresinde ki değerin altına düştüğünde ve H kolonunda ardışık olarak 3 negatif değer tekrarladığında mail göndermesini istiyorum.
F kolon G kolonu H kolonu
6.500 9.000 875
7.800 6.000 -3.750
7.800 10.000 250
2.836 5.000 1.455
5.673 8.000 909
Sub Send_Range()
' Select the range of cells on the active worksheet.
ActiveSheet.Range("A9:V27").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "Hedeflenen hızın altına düşüldü."
.Item.To = "xxx.xxx@xxx.com.tr"
.Item.CC = " "
.Item.Subject = "KISA ARALIKLI KONTROL PANOSU UYARI"
.Item.Attachments.Add ("C:\Users\xxx\Desktop\SIC Templates V6_Türkçe.xlsm")
.Item.Send
End With
End Sub
Altta ki makroma ilave bir koşul eklemek istiyorum
G hücresinde ki değer F hücresinde ki değerin altına düştüğünde ve H kolonunda ardışık olarak 3 negatif değer tekrarladığında mail göndermesini istiyorum.
F kolon G kolonu H kolonu
6.500 9.000 875
7.800 6.000 -3.750
7.800 10.000 250
2.836 5.000 1.455
5.673 8.000 909
Sub Send_Range()
' Select the range of cells on the active worksheet.
ActiveSheet.Range("A9:V27").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "Hedeflenen hızın altına düşüldü."
.Item.To = "xxx.xxx@xxx.com.tr"
.Item.CC = " "
.Item.Subject = "KISA ARALIKLI KONTROL PANOSU UYARI"
.Item.Attachments.Add ("C:\Users\xxx\Desktop\SIC Templates V6_Türkçe.xlsm")
.Item.Send
End With
End Sub