Çözüldü ayın günlerine göre otomatik sayfa oluşturma

[tukayf]

Ekte ayın günlerine göre veri girdiğimiz bir şablon var. İstediğim aynı şablonun ayın günlerine göre sayfa olarak eklenmesi. tarih bittikten sonra ise ayın sonuna bir tane de genel sayfası eklenmesi. Formülleri daha sonra uygulayabilirim.
Örnek
Ocak kitabı sayfalar 01 Ocak, 02 Ocak, .......31 Ocak ve Genel
Şubat kitabı sayfalar 01 Şubat, 02 Şubat, .......28 Şubat ve Genel
Aralık kitabı sayfalar 01 Aralık, 02 Aralık, .......31 Aralık ve Genel
Tatil ayrımı yok. Sayfa isimlerinde kısaltma uygulanabilir Ocak yerine 01.01 şeklinde de olabilir.
Yardımlarınız için teşekkürler.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[acar6783]

Sub sayfaac()
sayfa = Month("01." & Replace(ThisWorkbook.Name, ".xlsm", "") & ".2019")

For s = 1 To 31
  Sheets("Genel").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
    ActiveSheet.Name = s & "." & sayfa
Next
Sheets("Genel").Select
End Sub

Bunu deneyip geliştirebilirsiniz

 

[tukayf]

Yanıtlar için çok teşekkürler. Muygun hocam sizin dosyanız çalışıyor çok teşekkürler.Affınıza sığınarak sayfa adlarını 01.01 şeklinde alabilir miyiz. Ekranın altına sığmıyor sayfalar. Eğer zahmet olmayacaksa.
Acar hocam type mismatch hatası alıyorum.

 

[tukayf]

bu arada bu sayfaları formülle toplatacağım ancak kolay bir yolu vardı diye hatırlıyorum. İlk sayfa son sayfa gibi seçimler vardı daha sonra ad tanımlaması uyguluyorduk sanırım ama şu an hatırlayamadım ve bulamadım.

 

[Orion1]

Sayın muygunun yazdığı kodlardaki ilgili yeri(kırmızı yeri) değiştiriniz.

Sub sayfaları_oluştur()
Dim i As Long
Dim Sayfa As String
Set sg = Sheets("sayfaaç")
Application.ScreenUpdating = False
sg.Select
For i = 2 To [a65536].End(3).Row
If Trim(Cells(i, "a")) <> "" Then
Sayfa = Trim(Cells(i, "a"))
If Not SayfaVarMi(Sayfa) Then
Sheets("Şablon").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(Sayfa, "dd.mm")
sg.Select
End If
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[tukayf]

Çok teşekkürler hocam. Çok da kullanılışlı oldu.

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[Orion1]

Neresi toplanacak?

 

[tukayf]

Sayın Hocam sayfa 01.01 ile 31.01 arası genel sayfasında toplanacak. B C D sütunları aynı şekilde genele toplatılacak.

 

[Orion1]

Sayın Hocam sayfa 01.01 ile 31.01 arası genel sayfasında toplanacak. B C D sütunları aynı şekilde genele toplatılacak.

Sayfaların abc sütunlarının toplamımı yazılacak.

 

[tukayf]

Doğrudur hocam. Günlük olarak b c d sütunlarına veri girilecek. Girildikçe genel sayfasında aynı sütunlardaki aynı yerlere toplanacak.

 

[Orion1]

Eklenen sayfalardan ocak ve şubat aylarına bir kaç satır veri girerek genel sayfasındada nasıl toplanacak ,bunun için örnek dosyanızı hazırlayıp yollarsanız daha anlaşılır olacaktır.

 

[tukayf]

buyrun hocam. kusura bakmayınız yoğunluktan parça parça oldu.

 

[tukayf]

Çok teşekkürler hocam.