Belli Bir tarihten kücükse,

[Rainbows]

Merhaba arkadaşlar,

Benim söyle bir sorunum var d hücresindeki tarih "01.01.1901" den kücükse o hücreye a hücresindeki tarih artı 60 eklemek istiyorum ama bir türlü yapamadım yardımlarınızı bekliyorum


tesekkürler.

ben bu sekilde yapmaya calıstım ama olmadı.

---------

For i = Cells(65536, "d").End(xlUp).Row To 1 Step -1
If Cells(i, "d").Value < "01.01.1901" Then

Range(i).Select

ActiveCell.FormulaR1C1 = "=Rc[-3]+60"
End If

Next

 

[hamitcan]

Sub kücükse()
    For i = 1 To [a65336].End(3).Row
    If CDate(Cells(i, "d")) < "01/01/1901" Then
        Cells(i, "e") = Cells(i, "a") + 60
        End If
    Next
End Sub

şeklinde deneyin.

 

[Rainbows]

tesekkürler,

nicin a hücresini for döngüsüne soktunuz acaba, d hücresinin döngüye girmesi gerekmiyormuydu.

ögrenmek adına soruyorum.

 

[hamitcan]

o hücreye a hücresindeki tarih artı 60 eklemek istiyorum

Sorunuz bu şekilde.
Sadece değişikliği görmeniz açısından sonucu E hücresine getirdim.