task to send email from excel.
Below is the example column. How I can get the email value from the loop?
Here is my code :
Dim rng As Range Dim row As Range Dim cell As Range Dim mydate As Date Dim myDiff As Long
Set rng = Range("E5:E17") Set rng2 = Range("F5:F17") Dim cell2 As Range
Dim i As Integer i = 5
For Each row In rng.Rows For Each cell In row.Cells
MsgBox cell.Value mydate = cell.Value myDiff = DateDiff("d", Date, mydate) Set rng2 = Range("F" & i) For Each cell2 In rng2 MsgBox cell2.Value Next cell2
If myDiff > -8 And myDiff < 8 Then
i = i + 1