Ay Günlerini Hesaplamak ve Yazmak

[Çetin Çelik]

Arkadaşlar merhaba.

Şöyle bir isteğim var.

Butona basınca (Özellikle butona basınca istiyorum. Ben butona basmadığım sürece değişmesin istediğim için)
Örneğin nisan ayının 15. gününe gelmişimdir ama butona basmamışımdır. o zaman günleri sıralı olan ay mart ayı olur
nisan ayının 16. günü butona bastığımda, günleri sıralı olan ay nisan olarak değişecek.

Sayfa1 de B sütununda ayın 1. günü olacak ve diğer sütünlara 2 tane atlayıp 3. sütuna yazacak şekilde, sıralayp gidecek. ("B1" hücresi "1" , "E1" Hücresi "2", "H1" hücresi "3" ........)
ve ay değişince bunu yeni aya göre yapacak.

şimdiden herkese teşkkür ederim.

 

[ÖmerBey]

Merhaba,
Deneyiniz.
Çalıştırıldığında hangi aydaysanız onun günlerini listeler.

Sub kod()
ReDim trh(1 To 1, 1 To 93)
For a = 1 To Day(Application.EoMonth(Date, 0))
    trh(1, 3 * a - 2) = DateSerial(Year(Date), Month(Date), a)
Next
Sheets("Sayfa1").Range("B1").Resize(1, UBound(trh, 2)).Value = trh
End Sub

 

[Çetin Çelik]

Merhaba,
Deneyiniz.
Çalıştırıldığında hangi aydaysanız onun günlerini listeler.

Sub kod()
ReDim trh(1 To 1, 1 To 31)
For a = 1 To Day(Application.EoMonth(Date, 0))
    trh(1, a) = DateSerial(Year(Date), Month(Date), a)
Next
Sheets("Sayfa1").Range("B1").Resize(1, UBound(trh, 2)).Value = trh
End Sub

Ömer Bey merhaba.

Mükemmel olmuş. Elinize sağlık. teşekkür ederim fakat istediğim şeyi yanlış yazmışım. B1, C1, D1 birleşik hücre. Yani ayın günlerini B1 hücresi ayın 1'i, E1 hücresi ayın 2 si, H1 hücresi ayın 3'ü,,,,,,,,,, yani step 3 olacak. kusura bakmayın.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...

 

[Çetin Çelik]

Rica ederim,
İyi çalışmalar...

Ömer Bey tekrar tekrar teşekkür ederim. elinize sağlık