Excel VBA - odczytanie wartości komórki z kodu

Question

zadaniem wysyłania wiadomości e-mail z programu Excel. Poniżej znajduje się przykładowa kolumna. Jak mogę uzyskać wartość e-mail z pętli? Dzięki

Oto mój kod:

 
    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 
 

Jeśli myDiff> -8 I myDiff < 8 Potem 
aEmail.Send 
End If
 

i = i + 1 Następna komórka 
Następny wiersz 

Answer 1

myślę, że trzeba to ..

Dim n as Integer 

For n = 5 to 17 
    msgbox cells(n,3) '--> sched waste 
    msgbox cells(n,4) '--> type of treatm 
    msgbox format(cells(n,5),"dd/MM/yyyy") '--> Lic exp 
    msgbox cells(n,6) '--> email col 
Next