tarih aralığını otomatik yazdırma

[ozkance]

Merhaba ben belirli bir tarihten bugüne kadar olan tarihleri makro ile aynı sütunda otomatik listelemek istiyorum.

Örneğin: a1: 01.04.2021 b1: Bugün(06.04.2021) -> makro çalıştır -> c1: 6 tarih alt alta listelenir.

 

[Korhan Ayhan]

Merhaba,

Lütfen profilinizde yazan "bil miyorum ne yazacağımı " ofis sürümünü kullandığınız sürüm bilgisi ile güncelleyiniz.

 

[ozkance]

Merhaba,

Lütfen profilinizde yazan "bil miyorum ne yazacağımı " ofis sürümünü kullandığınız sürüm bilgisi ile güncelleyiniz.

Düzeltildi

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub tarihle()
eski = WorksheetFunction.Max(3, Cells(Rows.Count, "C").End(3).Row)
Range("C1:C" & eski).ClearContents
If IsDate([A1]) And IsDate([B1]) Then
    If [A1] <> [B1] Then
        i = 1
        say = Abs([B1] - [A1])
        [C1] = WorksheetFunction.Min([A1], [B1])
        Do Until i > say
            Cells(i + 1, "C") = Cells(i, "C") + 1
            i = i + 1
        Loop
    End If
End If

End Sub

 

[ozkance]

Çok teşekkürler @YUSUF44 tam aradığım da buydu

 

[Korhan Ayhan]

Alternatif;

A1 ve B1 hücrelerine tarih yazdığınızı varsaydım. Bu sebeple koda koşul eklemedim.

Option Explicit

Sub Tarih_Yaz()
    With Range("C1")
        .EntireColumn.Clear
        .Value = CDate(Range("A1").Value)
        .AutoFill Destination:=Range("C1:C" & Range("B1").Value - Range("A1").Value + 1), Type:=xlFillDefault
        .Columns.AutoFit
    End With
End Sub

 

[ozkance]

Çok teşekkür ederim @Korhan Ayhan