Tarih arttırarak yazdırmak

[5353]

Bir form sayfası var. A4 hücresine, belli bir tarihten örneğin aylık 01.01.2021 Cuma yazalım. Bu formdan sadece A4 hücresinin tarihini 1 gün arttırarak 30 adet yazdırabilir miyiz. yani sadece tarih artacak aynı formdan yazdır denilince aylık her gün için form tek tuşla çıkacak.

 

[Necdet]

Arttırdığı ikinci tarihi hangi hücreye yazacak? A5'e mi B4'de mi?
Tarih şubat ayını içeriyorsa yazılan tarihler mart ayına sarkacak mı? yoksa şubat ayının son gününde kesecek mi?

vs vs vs Ayrıca forumda buna benzer çok soru çözüldü.

 

[YUSUF44]

Anladığım kadarıyla aşağıdaki makroyu deneyiniz. Kağıt israfı olmaması için deneme yaparken A4'teki tarihi ay sonuna yakın bir tarih olarak yazmanız iyi olur:

Sub ayyaz()
If IsDate([A4]) = True Then
    bas = Day([A4])
    bit = Day(WorksheetFunction.EoMonth([A4], 0))
    For i = bas To bit
        ActiveSheet.PrintOut
        [A4] = [A4] + 1
    Next
    [A4] = [A4] - 1
Else
    MsgBox "A4 hücresinde tarih bulunmuyor!", vbCritical
End If
End Sub

 

[5353]

Anladığım kadarıyla aşağıdaki makroyu deneyiniz. Kağıt israfı olmaması için deneme yaparken A4'teki tarihi ay sonuna yakın bir tarih olarak yazmanız iyi olur:

Sub ayyaz()
If IsDate([A4]) = True Then
    bas = Day([A4])
    bit = Day(WorksheetFunction.EoMonth([A4], 0))
    For i = bas To bit
        ActiveSheet.PrintOut
        [A4] = [A4] + 1
    Next
    [A4] = [A4] - 1
Else
    MsgBox "A4 hücresinde tarih bulunmuyor!", vbCritical
End If
End Sub

Çok teşekkür ederim. Mükemmel çalıştı. Tam istediğim gibi.