Sütuna yıl yaz

[kelkitli]

Selamlar,
Değerli Dostlar, aşağıda yazdığım kodu yapamadım.

Kod: [Seç]

Sub yılyaz1()
Range("u7:u71").ClearContents
For i = 6 To 75
If DateSerial(Year((c3) + i), Month(c3), Day(c3)) < Date Then Cells(i, "u") = Year(Range("c3"+i))
Next
End SubYani şu:
C3 hücresinde işe giriş tarihi yazılı.Bu tarihe 1 er yıl ekleyip döndürdüğümüzde bu günkü tarihi aşınca döngü durmalı. Döngü aralığında da u sütununa  yılları yazmalı. 1986,87,88,89 gibi.

[kelkitli]

Şu şekilde denedim ama bir yerlerde bir aksaklık var.

Kod: [Seç]

Sub yılyaz1()
Range("u7:u71").ClearContents
    Dim IlkTarih As Date, SonTarih As Date
    Dim Yil As String
    IlkTarih = DateSerial(Year(c3), Month(c3), Day(c3))
    SonTarih = DateSerial(Year(Date), Month(Date), Day(Date))
    For i = IlkTarih To SonTarih
    For j = 6 To 30
        Yil = Format(IlkTarih, "yyyy")
        'IlkTarih = DateSerial(Year(IlkTarih) + 1, Month(IlkTarih), Day(IlkTarih))
    If Year(IlkTarih) > Year(SonTarih) Then Cells(j, "u") = Yil + 1
    Next i
    Next j
End Sub

[Rami]

C3 hücresinde işe giriş tarihi yazılı.Bu tarihe 1 er yıl ekleyip döndürdüğümüzde bu günkü tarihi aşınca döngü durmalı. Döngü aralığında da u sütununa  yılları yazmalı. 1986,87,88,89 gibi.

Şöyle olabilir:

Kod: [Seç]


Sub yılyaz1()
Range("u7:u71").ClearContents
For i = 6 To 75
s = s + 1
If DateSerial(Year(Range("c3")) + s, Month(Range("c3")), Day(Range("c3"))) < Date Then
Cells(i, "u").NumberFormat = "0"
Cells(i, "u") = Year(Range("c3")) + s
End If
Next
End Sub


[kelkitli]

Sayın Rami, Teşekkürler.
Hakikaten çok güzel çözümler üretiyorsunuz.
Şaştım doğrusu. Yani kod yazmak bir yana, anlatılanları bu kadar eksiksiz yorumlamak gerçekten güzel.

[Rami]

Sayın Rami, Teşekkürler.

Rica ederim. Sağolun.

[1Al2Ver]

Merhaba,

Cevaptan ben de faydalandım,

Sayın kelkitli ve sayın rami'ye teşekkür ederim.

Saygılarımla.