h sutunundaki son satırın verisini bul 4 den düşükse mail at

[DATAMEDYA]

Merhaba arkadaşlar

b sütünuna
aralıklarla veri girmekteyim

örneğin b7 =8 b8= 7 şeklinde bir sutun
istediğim b sütununa girilen son rakamı bulmak ve o rakam 4 ten küçükse as@as.com a sheet adınıda belirten bir mail yollanmasını sağlamak,

bunu nasıl yapabilirim
şimdiden teşekkürler

 

[Ferhat Pazarçevirdi]

Şöyle olabilir :

Sub deneme()
'KODLAR ÇALIŞTIRILMADAN ÖNCE,
'Tools->References : "Microsoft Outlook 11.0 Object Library" işaretlenmelidir.
Set sh = Sheets("Sayfa1")
If sh.Cells(sh.Cells(65536, 2).End(xlUp).Row, 2) < 4 Then
Set Eposta = CreateItem(olMailItem)
With Eposta
     .To = "[EMAIL="as@as.com"]as@as.com[/EMAIL]"
     .Subject = sh.Name & " tablosundaki " & sh.Cells(sh.Cells(65536, 2).End(xlUp).Row, 2) & " değeri hakkında..."
     .Body = "Bu mail; " & sh.Name & " tablosunda en son girilen rakamın 4 'ten küçük olması nedeniyle gönderilmiştir"
     .Send
End With
Set Eposta = Nothing
End If
Set sh = Nothing
End Sub