'değişkeni bir tarih değeri olacaksa;
Function songun(tarih As Date) As Integer
ilk = Day(tarih)
AY = Month(tarih)
For i = 0 To 31
If Month(tarih + i) = AY Then songun = Day(tarih + i)
Next
End Function
'kodlar İsmail Duman arakadaşın
Yok bu şekilde değil. Ben tarihi sistem saat-takviminden alacağım. Yani bilgisayarın tarih bilgisini alıp, eğer ayın son günü ise çalıştığım excel sayfasının yedeğinin alınmasını sağlayacağım.
Ben bunu ayın birinde yapıyordum. Ama başka sorunlar çıkıyor. Mesela yeni ayın birinci gününün değerleri, eski ayın ilk gününün değerlerinin yerine geçiyor. Bunu engelllemek için düşünmüştüm.
Kullandığım kod şöyle birşey:
Dim Yanit, tarihn
Dim hucre As Range
tarihn = DateAdd("d", 0, Date)
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.