Bir gün sonraki Tarihli Sayfayı Oluşturan Makro

[ANTALYA 01]

Merhabalar

Ekteki Çalışmada şöyle bir makroya ihtiyacım var.
Sheet lerde Sayfalarda tarih var Ben CTRL+SHIFT+A Yaptığımda Bir gün öncenin sayfasında ne veri mevcutsa
Kopyalarak Bir gün sonraki tarihli sayfayı oluşturmasını istiyorum.Eğer Pazar günlerini atlayarak olursa dahada iyi olur

Manuel şöyle yapıyorum.
Sayfanın üzerine geliyorum sağ klik taşı ve kopyala sayfayı seçip kopya oluştur sonra oluşan kopya sayfasında tarihi bir gün sonraki tarih olarak

 

[Orion1]

Aşağıdaki kod işinizi görür.

Sub sayfa()
Dim syf  As String, trh As Date
trh = CDate(Worksheets(Worksheets.Count).Name) + 1
If Weekday(trh, 2) = 7 Then trh = trh + 1
Worksheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = CStr(Format(trh, "dd.mm.yyyy"))
Sheets(Sheets.Count - 1).Cells.Copy Range("A1")
Application.CutCopyMode = False
End Sub

 

[ANTALYA 01]

S

Teşekkür ederim.Tam istediğim gibi olmuş

 

[Orion1]

Teşekkür ederim.Tam istediğim gibi olmuş

Rica ederim.
İyi çalışmalar.