İki tarih arasında tarih arttırarak yazıcı çıktısı alma

[007hasanayik]

Değerli dostlar.
Sizlerden bir isteğim olacak.
Bir excel çizelgesi hazırladım. Bu çizelgede formüller ve makrolar kullanarak verileri değiştirebiliyorum. Ancak tarihi elle girmem gerekiyor. Günlük olarak çıktı almam gereken sayfada tarih haricinde diğer bilgilerin tümü otomatik olarak geliyor. Bana öyle bir makro yada modül önerebilirmisiniz ki ilk tarihi ben belirleyeceğim ve bu tarihten itibaren günün tarihine kadar olan günleri hem bir gün arttırıp bir sayfa çıktı verecek. Günün tarihine geldiğinde ise makro yada modül otomatik olarak duracak. emeğiniz için şimdiden yüreğinize sağlık diyor, İyi geceler diliyorum.

 

[Necdet]

Merhaba Sayın 007hasanayik,

Sorunuzu örnek dosya ile destekleyiniz lütfen. Hem anlaması hem çözümü daha kolay olacaktır.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Koddaki sayfa ve hücre bilgilerini kendi dosyanızdaki bilgilere göre değiştirmeyi unutmayın. Ben örnek kodda A1 hücresini tarih hücresi olarak kullandım.

Sub YAZDIR()
    İLK_TARİH = Application.InputBox("BAŞLANGIÇ TARİHİNİ GİRİNİZ !")
    If İLK_TARİH = "" Or Not IsDate(İLK_TARİH) = True Then
    MsgBox "İŞLEM İPTAL EDİLMİŞTİR !", vbInformation
    Exit Sub: End If
    Sheets("Sayfa1").[A1] = CDate(İLK_TARİH) - 1
    For X = İLK_TARİH To Date
    Sheets("Sayfa1").[A1] = Sheets("Sayfa1").[A1] + 1
    Sheets("Sayfa1").PrintOut Copies:=1, Collate:=True
    Next
    MsgBox "YAZDIRMA İŞLEMİ TAMAMLANMIŞTIR !", vbInformation
End Sub

 

[007hasanayik]

Sayın COST_CONTROL
Tam istediğim gibi olmuş. Yüreğinize sağlık. Emeğinize sağlık. Teşekkürler...

 

[007hasanayik]

Sayın COST_CONTROL şöyle bir sorum daha olacak. Acaba değiştirdiği tarihleri bir hücrede görebilirmiyiz. Yani verdiğiniz kodlarda A1 hücresine yazdığım tarihe kadar ilerleyecek. Peki yazdırmakta olduğu tarihi örneğin A2 hücresinde görebilirmiyiz. teşekkürler

 

[Korhan Ayhan]

Selamlar,

Sn. 007hasanayik,

Önerdiğim koddaki aşağıdaki kısım zaten bahsettiğiniz olayı gerçekleştiriyor.

Sheets("Sayfa1").[A1] = Sheets("Sayfa1").[A1] + 1

Yani siz makroyu çalıştırıp ekrana gelen kutucuğa ilk tarihi girdiğinizde A1 hücresine 1 eksiğini yazıp her döngüde 1 artırarak A1 hücresinde gösteriyor.

 

[007hasanayik]

evet haklısınız ben fark edememişim tarihi hızlı attığı için emeğinize ve yüreğinize sağlık sayın COST_CONTROL. teşekkürler