Soru otomatik sayfa çoğaltımı

[incsoft]

Arkadaşlar sayfaları "taşı veya kopyala"," kopya oluştur" ,"yeniden adlandır" sistemiyle kullandıkları dosyaları oluşturan arkadaşlarım vardır. Benim bunları şu şekilde macro ile yapabilmem mümkünmüdür? Mesela 03 sayfasını ay sonuna kadar çoğalt diye bir sistem olarak 30.06.2020 ye kadar otomatik olarak oluşturacak ve her sayfadaki F1 alanına sayfanın adı olan 03.06.2020 , 04.06.2020 otomatik olarak verecek. Buna nasıl bir sistem kurulabilir?

Teşekkürler..

 

[Emir Hüseyin Çoban]

.

Çoğaltmak istediğiniz sayfanın ismini şablon yapın.
Test etmek için 1-2-3 sayfalarını silin.

Sub kod()


sor = InputBox("ay sonu tarihi girin", "", "örneğin 30.06.2020")

If sor = "" Then Exit Sub

For i = 1 To Format(sor, "d")
Sheets("şablon").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Range("F1") = CDate(i & "." & Format(sor, "mm.yyyy"))
ActiveSheet.Name = i
Next i

End Sub

.

 

[incsoft]

.

Çoğaltmak istediğiniz sayfanın ismini şablon yapın.
Test etmek için 1-2-3 sayfalarını silin.

Sub kod()


sor = InputBox("ay sonu tarihi girin", "", "örneğin 30.06.2020")

If sor = "" Then Exit Sub

For i = 1 To Format(sor, "d")
Sheets("şablon").Copy After:=Sheets(Sheets.Count)
Range("f1") = CDate(i & "." & Format(sor, "mm.yyyy"))
ActiveSheet.Name = i
Next i

End Sub

.

Öncelikle teşekkürler hocam. Peki oluşturulan sayfalarda tarihler neden hatalı oluyor olabilir sizce? 1 ve 2 yede 01.06.2020 veriyor mesela. 3 e 02.06.2020 , 4 e 03.06.2020

 

[Emir Hüseyin Çoban]

.

Üstteki koda aktif sayfa komutu ilave ettim. Deneyiniz.
ActiveSheet.Range("F1") = CDate(i & "." & Format(sor, "mm.yyyy"))

.

 

[incsoft]

.

Üstteki koda aktif sayfa komutu ilave ettim. Deneyiniz.
ActiveSheet.Range("F1") = CDate(i & "." & Format(sor, "mm.yyyy"))

.

Sizide yoruyorum hocam kusura bakmayın hakkınızı helal edin. Örneğin şablonu açtık ve şablon tarihi 01.06.2020 son tarih olarak 07.06.2020 yazdık 7 günlük çoğalttı, daha sonra 7 günlük çoğaltım için yeniden şablonu açıp çoğalt dediğimizde şablon tarihi otomatik olarak 08.06.2020 olup o tarihden sonra mevcutların üzerine yani 08-09-10-11-12-13-14 şeklinde oluşturma yapabilirmi? Bunu ben başka bilgisayar bilgisi az olan kişiler için hazırladığımdan dolayı bu şekilde sıkıntıları da en başta çözmek istiyorum hocam.

 

[Emir Hüseyin Çoban]

.

Aylık sayfa oluşturulacak şekilde kurguladım.

.

 

[Emir Hüseyin Çoban]

.

Başlangıç ve bitişi tarihlerini sordurabiliriz veya userform ile tasarım yapıp başlangıç bitiş tarihlerini girdirebiliriz.
İsteğe göre yeni kurgular yapılabilir.

.

 

[incsoft]

.

Başlangıç ve bitişi tarihlerini sordurabiliriz veya userform ile tasarım yapıp başlangıç bitiş tarihlerini girdirebiliriz.
İsteğe göre yeni kurgular yapılabilir.

.

eğer vaktiniz varsa yapabilirseniz hocam sevinirim

 

[Emir Hüseyin Çoban]

.

Userform ile bir örnek.

.