Sütuna Göre Otomatik Sayfa Oluşturma Kod Yardımı

[Believing]

Sayın Uzman Arkadaşlar,

"Parametre" sayfasının A sütununda formül ile aa.gg.yyyy tarih üretilmekte, aşağıdaki kod yardımı ile üretilen tarihler, sayfa isimleri olarak adlandırılmaktadır. Bo kod düzenli olarak toplam 31 (For x = 1 To 31) sayfa oluşturmaktadır. Yapılmak istenen ise;

Sub Sayfa_Oluştur()
    Dim x As Integer
    For x = 1 To 31
    Sheets("Şablon").Copy After:=Sheets(Worksheets.Count)
    ActiveSheet.Name = Sheets("Parametre").Cells(x, 1)
   Next x
  
End Sub

"Parametre" sayfasının A sütununda bulunan tarih kadar sayfa oluşturmaktır. Mevcut kod da nasıl bir düzenleme yapmalıyım? Benim için çok değerli olan yardımlarınızı rica ediyorum.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Merhum İdris SERDAR]

.

Buradaki dosya bir fikir verebilir.

http://www.excelgurusu.com/sayfa-cogaltma-ve-icindekiler/

.

 

[Believing]

Sayın İdris SERDAR,

Kod yazma konusunda henüz bir tecrübem olmadığından, verdiğiniz örneklerden maalesef bir sonuç alamadım. Örnek çalışmam verdiğiniz örneğe çok benzemekte olup, yardımınızı rica ederim.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Believing]

Sayın İdris SERDAR,

Verdiğiniz örneği kendi çalışmama uyarladığımda hata almaktayım.
Mevcut çalışma kitabında 31 günün altında olan aylarda Şablon(2) sayfası oluşturarak "Run-time error '1004' hatası vermektedir.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.


.

 

[Believing]

Sayın İdris SERDAR,

Konuya gösterdiğiniz ilgi ve yardım için size çok teşekkür ederim.
ALLAH sizden ve sevdiklerinizden razı olsun.
İyi geceler.

Saygılarımla,
Ömer Ali ÜZÜMCÜ