Sayfa adına göre kayıt için sayfa adı belirleme.

[vardar07]

Merhabalar. Sayfa isimleri içinde bulunduğumuz ayı temsil ediyor (09.2015 gibi) ancak bulunduğumuz ayın günü 21 den büyükse bir sonraki ayı yani (10.2015) seçtirmem lazım lakin kafa durdu. Küçük bir nokta atlıyorum ama nerede.???

Sub sayfaadi()
a = "21." ' gün
b = Format(Date, "mm.yyyy")' Tarihe göre mevcut sayfa adı
c = a & b
d = Date 'Sayfa adına ön hazırlık
If d > c Then
e = DateSerial(Year(d), Month(d) + 1,Day(d))
syf = Format(e, "MM.YYYY")
Else
syf = Format(b, "MM.YYYY")
End If
Set s1 = Sheets(syf)
MsgBox syf
End Sub

 

[Orion1]

Buyurun.

If Day(Date) > 21 Then
    tarih = Format(DateSerial(Year(Date), Month(Date) + 1, Day(Date)), "mm.yyyy")
End If

 

[vardar07]

Aklınıza sağlık. Uzatmaya gerek yok kısadan böyle teşekkürler.

 

[Orion1]

Aklınıza sağlık. Uzatmaya gerek yok kısadan böyle teşekkürler.

Rica ederim.
İyi çalışmalar.