Girilen Bir Tarihin Günlerini Hücrelere Yazdırma

[ahmed_ummu]

Merhaba arkadaşlar. Hayırlı Pazarlar.

Hücreye girilen bir tarihin günlerini hücrelere yazdırmak istiyorum. Elimde benzer örnekler var ama kendi dosyama uyarlayamadım. Yardımcı olursanız sevinirim. Sorum, dosya üzerinde daha iyi anlaşılır diye ekte gönderdiğim dosya da anlatmaya çalıştım.

Biçimlendirme ve formül ile ile değil, kod ile olacak

 

[dEdE]

Dener misiniz?

Sub TarihYaz()
Range("O6:AS6") = ""
Range("O6") = Range("BA1")
    With Range("P6:AS6")
        .Formula = "=O6+1"
        .Value = .Value
    End With
End Sub

 

[ahmed_ummu]

Dener misiniz?

Sub TarihYaz()
Range("O6:AS6") = ""
Range("O6") = Range("BA1")
    With Range("P6:AS6")
        .Formula = "=O6+1"
        .Value = .Value
    End With
End Sub

Çok teşekkürler sayın dEdE.

Şöyle bir hata oluyor. Şubat ayını seçtiğimde 28 den sonra 1 gelmesi gerekirken, 29-30-31 diye devam ediyor. 30 çeken aylarda da 30 dan sonra 1 gelmesi gerekirken 31 geliyor. Hangi ayı seçersem o yın son gününden sonra bir sonraki ayın birinden 14'ün kadar devam etmesi gerekiyor.

 

[dEdE]

Bende hata vermedi.

 

[ahmed_ummu]

Bende hata vermedi.

Evet ben yanlış yapmışım. Şimdi hata vermedi. Teşekkürler.

 

[Korhan Ayhan]

Alternatif..

Option Explicit

Sub Test()
    Range("O6") = CDate(Range("BA1"))
    Range("O6:AS6").DataSeries
End Sub

 

[ahmed_ummu]

Alternatif..

Option Explicit

Sub Test()
    Range("O6") = CDate(Range("BA1"))
    Range("O6:AS6").DataSeries
End Sub

Teşekkürler Korhan bey.