VBA Excel - leggere il valore della cella dal codice

Question

attività per inviare e-mail da Excel. Di seguito è riportata la colonna di esempio. Come posso ottenere il valore email dal ciclo? Grazie

Ecco il mio codice:

 
    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 
 

Se myDiff> -8 E myDiff < 8 Poi 
aEmail.Send 
End If
 

i = i + 1 
Cell. Successivo 
Riga successiva 

Answer 1

penso che hai bisogno di questo ..

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