Kolonda tarıh kontrolu

[haso_excel]

Merhaba arkadaşlar,

F kolonumdaki tarihleri, Q1 hücresindeki tarihten küçük ise Q1 hücresindeki tarihe 1 gün fazlası olarak değiştirmesini istiyorum.
Q1= 30/11/2011 ise F kolonundaki Q1 den küçük olan tüm tarihler 01/12/2011 olarak değişek bir makro rica edeceğim arkadaşlar.

 

[haso_excel]

Sub satici()
For i = 2 To WorksheetFunction.CountA(Range("f:f"))
If (Cells(i, 6).Value) < Range("q1") Then
Cells(i, 6).Value = Range("q1").Value + 1
ElseIf (Cells(i, 6).Value) > Range("q1") Then
Cells(i, 6).Value = Cells(i, 6).Value


End If

Next i
End Sub

Yıkardaki kod ile yaptım arkadaşlar. Faklı paylaşımlar varsa hayır demem. Her yiğidin yoğurt yeyişi faklıdır değil mi?

 

[accountant80]

Merhaba,
Koda F 100 hücresine kadar ekledim dilerseniz kod bölümünden değiştirebilirsiniz.

 

[haso_excel]

İlginiz için teşekkür ederim

 

[accountant80]

İlginiz için teşekkür ederim

Rica ederim,Siz benden önce çözmüşsünüz