Ayın her günü için sayfa oluşturup girilen verileri otomatik olarak kopyalama

[_DbL_]

Merhaba,

Boş bir excel sayfasında öncelikle "dd.mm" şeklinde içinde bulunulan ayın tüm günleri sayfa numarası olarak otomatik olarak eklenmeli. Ay bittiğinde bu dosya farklı bir isimle (Örn: Eylül Raporu) kaydedilip bir sonraki ay için rapor boş bir şekilde ay isimleri yazılı olarak gelmelidir. Ayrıca her gün için yazılan bilgilerin Genel adındaki sayfaya otomatik olarak kopyalnmalıdır. Ço kuğraştım ancak bunu sağlayamadım. Bu konuda yardımcı olabilirseniz çok sevinirim...

 

[Ömer]

Merhaba,

Eki inceleyiniz.

ornek, AnaSayfa ve Genel sayfalarını silmeyiniz.

Yalnız önce masa üstünde Yedekler adında bir klasör oluşturun.

.

 

[_DbL_]

Teşekkür ederim...

 

[safakdur]

run time eror 16 yı verıyor calıstıramadım

 

[Ömer]

run time eror 16 yı verıyor calıstıramadım

Hangi kodu ( butonu ) çalıştırdığınız da hata veriyor?

 

[safakdur]

sayfaları olustur dediğimde hata verıyor

 

[Ömer]

Sanırım kodları kendi dosyanıza uyarlayıp çalıştırdığınızda hata aldınız. Eğer öyleyse hata aldığınız dosyayı eklemeniz mümkün mü?

Eğer kendi dosyanızda değilde eklediğim dosyayıp açıp butona bastığınızda hata aldıysanız, debug butonuna basınca kodlarda hangi satır sarı oluyorsa ilgili kodları buraya yazarmısınız.

.

 

[cerbay]

pardus libreoffice da dosyayı kaydet verileri sil butonu '323' modül yüklenemiyor biçim geçersiz hatası veriyor

dosyanın yolunu bulamıyor diye makrodaki desktop yerini home/kullanıcı adı/desktop diye göstermeme rağmen aynı hata devam etti...

 

[Ömer]

pardus libreoffice da dosyayı kaydet verileri sil butonu '323' modül yüklenemiyor biçim geçersiz hatası veriyor

dosyanın yolunu bulamıyor diye makrodaki desktop yerini home/kullanıcı adı/desktop diye göstermeme rağmen aynı hata devam etti...

Dosya yoluyla ilgili, masa üstünde Yedekler adında bir klasör oluşturun.

Yalnız sorun Pardus işletim sisteminine uyarsızlığından olabilir. Bu sistemi kullanmadığım için kesin birşey söyleyemem.

.

 

[safakdur]

For i = Range("H1") To Range("H2")