Kolayca 30 adet daha sayfa ekleme

[cengizhan09]

Arkadaşlar ekteki ajanda programıma 30 tane daha sayfa eklemek istiyorum. (her gün için bi sayfa ) Ama hepsi örnekteki sayfa gibi olacak aynı formatta ve aynı bilgileri içeren. Pratik bi yolu var mı acaba?
Ve mümkünse sayfa numaraları da 2, 3, 4, ..... gibi olacak. (sayfa3 değil sadece 3 gibi )

 

[Metin Karaağaç]

sayfa ismine sağ tuş,
taşı ve kopyala, sona ekle.
ama bunu 30 defa yapmanız gerekecek. aynı 1 isimli sayfa gibi oluşturur.

 

[cengizhan09]

Malesef olmuyor

Acemi1 malesef olmuyor. Taşı kopyala yapıyorum. Hangi çalışma kitabı diyor aynıiçinde bulunduğum kitabı seçiyorum ama tamam deyince hiç bir şey olmuyor.

 

[Metin Karaağaç]

 

[cengizhan09]

tamam şimdi oldu

Tamam şimdi oldu.Teşekkür ederim

Çok sağol.

 

[mehmett]

Tek tek uğraşmak istemiyorsanız makro ile kopyalayacaksınız. Ekteki dosyanıza bakın.

 

[cengizhan09]

Mehmett

Harika bişey. Hemen o sayfayı da arşivime attım. Böyle böyle makroları da öğreneceğiz galiba. Biz üniversitedeyken (M.Ö.) qbasic diye bir dil öğrenmiştik. Bu makro ona çok benziyor. Ordada for - next döngülerini hatırlıyorum.

Çok teşekkürler.

 

[Levent Menteşoğlu]

Biz üniversitedeyken (M.Ö.) qbasic diye bir dil öğrenmiştik. Bu makro ona çok benziyor. Ordada for - next döngülerini hatırlıyorum.

Excelde kullandığımız dil VBA (visual basic application) dir. Bu dilin aslı olan Visual Basic dilinin atasıda sizin belirttiğiniz Qbasic tir.

 

[even]

Levent Bey,

Aynı mantıkla gidecek olursak, sayfa isimlerini 1,2,3..yerine 01.09.2006, 02.09.2006 şeklinde vermek istersek yazdıgınız kodda
"ActiveSheet.Name = n" yerine ne yazmak gerekiyor??

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

ActiveSheet.Name = Format(DateSerial(2006, 9, n), "dd.mm.yyyy")

 

[even]

denedim oldu teşekkür ederim, bir külfet daha eksildi