Tarihten Serbest Dönem Oluşturma

[besen]

Merhaba. Örnek ekte, teşekkür ederim.

 

[RBozkurt]

Deneyiniz,
Sıralamayı J'ye yapar.

Sub TarihleriSırala()
    Dim başlangıçTarihi As Date
    Dim bitişYılı As Integer
    Dim aySayacı As Integer
    Dim hücre As Range

    Range("J3:J" & Rows.Count).ClearContents
    başlangıçTarihi = Range("E1").Value
    bitişYılı = Range("G1").Value
    Set hücre = Range("J3")
    aySayacı = 0
    Do While Year(DateAdd("m", aySayacı, başlangıçTarihi)) < bitişYılı
        hücre.Value = Year(DateAdd("m", aySayacı, başlangıçTarihi)) * 100 + Month(DateAdd("m", aySayacı, başlangıçTarihi))
        Set hücre = hücre.Offset(1, 0)
        aySayacı = aySayacı + 1
    Loop
End Sub

 

[yanginci34]

Deneyiniz,
Sıralamayı J'ye yapar.

Sub TarihleriSırala()
    Dim başlangıçTarihi As Date
    Dim bitişYılı As Integer
    Dim aySayacı As Integer
    Dim hücre As Range

    Range("J3:J" & Rows.Count).ClearContents
    başlangıçTarihi = Range("E1").Value
    bitişYılı = Range("G1").Value
    Set hücre = Range("J3")
    aySayacı = 0
    Do While Year(DateAdd("m", aySayacı, başlangıçTarihi)) < bitişYılı
        hücre.Value = Year(DateAdd("m", aySayacı, başlangıçTarihi)) * 100 + Month(DateAdd("m", aySayacı, başlangıçTarihi))
        Set hücre = hücre.Offset(1, 0)
        aySayacı = aySayacı + 1
    Loop
End Sub

Sayın RBozkurt izninizle arkadaşımızın isteğini tam olarak karşılaması için ufak bir dokunuş yaptım.

Sub TarihleriSırala()
    Dim başlangıçTarihi As Date
    Dim bitişYılı As Integer
    Dim aySayacı As Integer
    Dim hücre As Range

    Range("J3:J" & Rows.Count).ClearContents
    başlangıçTarihi = Range("E1").Value
    bitişYılı = Range("G1").Value
    Set hücre = Range("J3")
    aySayacı = 0
    Do While Year(DateAdd("m", aySayacı, başlangıçTarihi)) <= bitişYılı
        hücre.Value = Year(DateAdd("m", aySayacı, başlangıçTarihi)) * 100 + Month(DateAdd("m", aySayacı, başlangıçTarihi))
        Set hücre = hücre.Offset(1, 0)
        aySayacı = aySayacı + 1
    Loop
End Sub

 

[besen]

Her ikinize de çok teşekkür ederim, zahmet verdim. Formülle mümkün müdür?
@RBozkurt
@yanginci34

 

[RBozkurt]

Sayın RBozkurt izninizle arkadaşımızın isteğini tam olarak karşılaması için ufak bir dokunuş yaptım.

Sub TarihleriSırala()
    Dim başlangıçTarihi As Date
    Dim bitişYılı As Integer
    Dim aySayacı As Integer
    Dim hücre As Range

    Range("J3:J" & Rows.Count).ClearContents
    başlangıçTarihi = Range("E1").Value
    bitişYılı = Range("G1").Value
    Set hücre = Range("J3")
    aySayacı = 0
    Do While Year(DateAdd("m", aySayacı, başlangıçTarihi)) <= bitişYılı
        hücre.Value = Year(DateAdd("m", aySayacı, başlangıçTarihi)) * 100 + Month(DateAdd("m", aySayacı, başlangıçTarihi))
        Set hücre = hücre.Offset(1, 0)
        aySayacı = aySayacı + 1
    Loop
End Sub

Sıkıntı yok hocam ne demek. G1'de yazan yıla kadar diye olunca o yılı dahil etmemiştim.

 

[Korhan Ayhan]

Formülle alternatif...

Tüm liste dökülmeli olarak oluşacaktır. (Ofis 365)

=TEXT(EOMONTH(E1;SEQUENCE(DATEDIF(E1;DATE(YEAR(E1)+F1-1;12;31);"m")+1;1;0;1)); "yyya")