Excel VBA - Excel'den e-posta göndermek için

Question

görevinden hücre değerini oku. Aşağıda örnek sütun. E-posta değerini döngüden nasıl alabilirim? Teşekkür İşte

benim kodudur: myDiff ise

 
    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 
 

> -8 Ve Sonra 
myDiff < 8 aEmail.Send 
sonu
 

i = i + 1 ise 
Sonraki hücre 
Sonraki satır 

Answer 1

Sana `Range ("E5: E17") bakıyoruz Eh .. buna ihtiyacın

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