Çoklu sayfa eklemek

[asilme]

Arkadaşlar Excel çalışma kitabına içerisinde tablo olan bir sayfa yaptım ve sayfaya 01.01.2017 diye isim verdim. Bu sayfadan yılın her günü için sayfa eklemem için bir kolay yol varmı. İlk sayfanın kopyası olarak 365 sayfa açmak istiyorum sayfa isimleri ise sırası ile 02.01.2017,03.01.2017,04.01.2017.... 31.12.2017diye isim verilecek mümkün mü yardımcı olursanız sevinirim. Teşekkürler.

 

[asilme]

Arkadaşlar ben Excel çalışma kitabına tablo olan sayfa yaptım ve sayfaya 01.01.2017 diye isim verdim bu sayfayı 365 tane çoğaltmak istiyorum ama sayfa isimleri sırası ile 02.01.2017,03.01.2017,04.01.2017.... 31.12.2017diye olacak mümkün mü mümkünse yardımcı olursanız sevinirim

 

[vardar07]

Lütfen aynı konu için ikinci bir konu açmayın. ilk konu ile ikinci konu arası 6 dakika olmuş .Sabırlı olun ilgilenecek arkadaş çıkacaktır. Bu arada sizde boş durmayın üst bantaki arama kutusuna makro ile sayfa açma yazıp aratın çıkan konuları inceleyin.

 

[halilkalyoncu]

buradan inceleme yapabilirsiniz: http://www.excel.web.tr/f14/sayfa-acma-t161159.html

 

[tahsinanarat]

01.01.2017 ismini verdiğin sayfadaki tablonun bir örneğini daha doğrusu bir örnek dosya ekleyebilir misiniz.

 

[systran]

şu kodu modül içine yazıp çalıştırın.

Sub ekle()
Dim ws As Worksheet
Dim baslangic As Date
baslangic = "01.01.2017"

For i = 0 To 364
    Set ws = Sheets.Add
    ws.Name = baslangic + i
    
    
Next
End Sub

 

[asilme]

Şuan bilgisayarım yok tlf bakıyorum inşallah çalışır teşekkürler

 

[asilme]

Tlf ile soru sordum tlf azizliği mesaj atarken yanlış oldu iki kere yazmış oldum kusura bakmayın özür olsun

 

[asilme]

Lütfen aynı konu için ikinci bir konu açmayın. ilk konu ile ikinci konu arası 6 dakika olmuş .Sabırlı olun ilgilenecek arkadaş çıkacaktır. Bu arada sizde boş durmayın üst bantaki arama kutusuna makro ile sayfa açma yazıp aratın çıkan konuları inceleyin.

şu kodu modül içine yazıp çalıştırın.

Sub ekle()
Dim ws As Worksheet
Dim baslangic As Date
baslangic = "01.01.2017"

For i = 0 To 364
    Set ws = Sheets.Add
    ws.Name = baslangic + i
    
    
Next
End Sub

Hocam formül hata verdi siz denemişmiydiniz acaba ben mi yanlış yaptım
Set ws kısmı hata diyor

 

[vardar07]

Birde bunu deneyin. Yıla göre 365 yada 366 sayfa ekler.
Kırmızılı yere şablon olan sayfanın adını yazınız.

Sub sayfaları_aç()
Dim i As Long, a As Date
a = "01.01." & Year(Date)
b = CLng(DateValue("31.12." & Year(Date))) - CLng(DateValue(a)) + 1
Application.ScreenUpdating = False
For i = 1 To b
Sheets([COLOR="Red"]"Sayfa1"[/COLOR]).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = a
a = a + 1
Next i
Application.ScreenUpdating = True
End Sub

 

[systran]

Hocam formül hata verdi siz denemişmiydiniz acaba ben mi yanlış yaptım
Set ws kısmı hata diyor

kod bende düzgün çalışıyor. profilinizde ofis 2003 yazıyor, bundan kaynaklı hata olabilir mi?

 

[asilme]

Teşekkür ederim sağolun