Pazar gününü atlayarak tarihleri sıralama

[zaferpl]

Merhaba
Pazar günlerini atlayarak bugünden itibaren sağa doğru otomatik hücreleri doldurmak için (forumda tarihle ilgili konulardan araştırdığım kadarıyla) aşağıdaki şekilde kod oluşturdum ama biryerde hata yapıyorum. Yardımcı olabilirmisiniz?
Sub yeni()
For Y = [A200].End(3).Row To 2 Step -1
If Cells(Y,A) = "Pazar" Then Rows(Y).Delete
Next
End Sub
A1: 04 Şubat Pazartesi B1: 05 Şubat Salı C1: 06 Şubat Çarşamba..... F1: 09 Şubat Cumartesi G1: 11 Şubat Pazartesi ...

 

[turist]

Formülle çözüm isterseniz ekli dosyayı inceleyiniz.

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırıp dener misiniz?

Sub TarihYaz()
k = 0
For i = 1 To 31' Kaç gün yazdıracaksanız buraya o sayıyı yazabilirsiniz.
If Format(DateSerial(Year(Date), Month(Date), Day(Date) + i - 1), "dddd") = "Pazar" Then GoTo Atla
Cells(1, k + 1).Value = Format(DateSerial(Year(Date), Month(Date), Day(Date) + i - 1), "dd.mm.yyyy dddd")
k = k + 1
Atla:
Next
Cells.EntireColumn.AutoFit
End Sub

 

[zaferpl]

Sayın Turist, Sayın dEdE,
Her iki çözüm de sorunuma çare oldu. Çok teşekkür ederim.

 

[dEdE]

zaferpl tarafından gönderildi
Hocam kusuruma bakmayın çok şansımı zorluyorum da şunları da sorabilirmiyim size;
-E5 hücresinden itibaren yazdırmak istesem bunun kodu ne olmalı?
-Her bir tarih 3 hücreyi kapsayacak şekilde nasıl yazdırabilirim? (o tarihlerin altında da 3 tane yanyana hücreye ihtiyacım var da) Yardımınız için çok teşekkür ederim

Merhaba,
Sorularınızı özel mesaj ile değil, burada sormalısınız ki aynı sorunu yaşayan üyelerimiz de bundan yararlansın.

Sub TarihYaz()
k = 5
For i = 1 To 31 ' Kaç gün yazdıracaksanız 31 yerine o sayıyı yazınız. Dikkat(Sayı*3+5) sütun sayısını geçmemeli
    If Format(DateSerial(Year(Date), Month(Date), Day(Date) + i - 1), "dddd") = "Pazar" Then GoTo Atla
    Range(Cells(5, k), Cells(5, k + 2)).Merge
    Range(Cells(5, k), Cells(5, k + 2)).HorizontalAlignment = xlCenter
    Cells(5, k).Value = Format(DateSerial(Year(Date), Month(Date), Day(Date) + i - 1), "dd.mm.yyyy dddd")
    k = k + 3
Atla:
Next
End Sub

 

[zaferpl]

Elinize sağlık hocam teşekkür ederim.