Tarihe gün eklemek

[haso_excel]

Sub vade()
For I = 2 To WorksheetFunction.CountA(Range("d:d"))
If Cells(I, 4).Value <= 30 / 6 / 2009 Then
Cells(I, 4).Value = Cells(I, 4) + 15
End If
Next I
End Sub

Arkadaşlar yukarıdaki kodu yazdım fakat çalıştıramadım. amasım D kolonundaki tarihlere bakıp 30/06/2009 a eşit ve küçük olanlarına +15 gün ekleyecek.

 

[muratozmenler]

Sub vade()
For I = 2 To WorksheetFunction.CountA(Range("d:d"))
If Cells(I, 4).Value <= "30.06.2009" Then
Cells(I, 4).Value = Cells(I, 4) + 15
End If
Next I
End Sub
olark denermisin

 

[haso_excel]

Teşekkürler