Sayfayı kopyala ve ad ver.

[İhsan Tank]

Merhaba arkadaşlar :

şeklinde yil değişkenine ait sayfa yoksa Taslak isimli sayfayı kopyalayıp yıl değişkeninin ismini sayfaya veriyorum. Fakat Taslak isimli sayfayı gizleyince kodlar işe yaramıyor. Yardımcı olurmusunuz..
Teşekkürler.

Dosya ekler misiniz_?

 

[marimar]

Kusura bakmayın bilgisayarın başına yeni oturabildim...
Buyrun örnek bir dosya

 

[İhsan Tank]

Kusura bakmayın bilgisayarın başına yeni oturabildim...
Buyrun örnek bir dosya

Merhaba
Kodu bununla değiştirip dener misiniz_?

Sub auto_open()
yil = Mid(Date, 7, 4)
say = 0
For i = 1 To Sheets.Count
If Sheets(i).Name = yil Then
say = say + 1
Sheets(i).Activate
End If
Next
If say = 0 Then
Sheets("Taslak").Visible = True
Sheets("Taslak").Copy After:=Worksheets(Worksheets.Count)
Sheets("Taslak").Visible = False
ActiveWindow.ActiveSheet.Name = yil
End If
End Sub

 

[truvali27m]

Merhaba arkadaşlar,benim de bu konuya benzer bir sorum olduğu için bu başlık altında sormak istedim gereksiz yere konu tekrarı olmasın diye.Sorum şu şekilde:
365 tane sayfam olcak 1 yıla ait ve 1 tane sayfanın bütün ayarlarını yaptım ve diğer sayfalarda aynı olcak.Sayfa isimleri mesela 01.01.2011 değil de kısaca 01.01 sonarki sayfa 02.01 yani gün ay olarak devam edecek.Bu şekilde 365 tane sayfa kopyalayabileceğim bir kod lazım.İlgilenen arkadaşlara şimdiden teşekkür ederim...