Aynı Tarihe Ait İkinci Bir Yedeklemede Numara Verilmesi Vb.!

[TheRainmaker]

Merhabalar;
Ekteki dosyada "Kaydet" butonuna bastığımda başka bir sürücüye yedekleme alıyor...
Aynı günde ikinci bir yedekleme aldığımda tarihin yanında parentez içerisinde 1,2,3 gibi numara ve özel kod(A1 gibi) eklemek istiyorum...
Kısacası(ilk yedekleme ve sonraki yedekleme);
22.07.2007(A1).xls
22.07.2007(A1)(1)
22.07.2007(A1)(2)
ve benzeri...
Ve kaydettikten sonra mümkünse Kaydet ve Yazdır butonları görünmesin...
Ayrıca "Yazdır" butonuna bastığımda "Protokol No" ve/veya "Adı Soyadı" girilmemiş olan sayfayı yazdırmak istemiyorum...
Son olarak Sıra no larının "enter" a bastığımda veya bir alta geçtiğimde +1 artmasını istiyorum...



Yardımcı olursanız çok sevinirim...

Yardımınız için şimdiden teşekkürler...

 

[TheRainmaker]

Aslında bilenler için çok basit bir makro ricasında bulunmuştum...
Yardımcı olacak kimse yok mu?
Lütfen yardımcı olun...:yardim: :yardim:

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz.

B sütununa veri girişi yaptığınızda otomatik olarak sıra numarası eklenir. Veri girişini satır atlamadan düzenli yaptığınız sürece problemsiz çalışır.

KAYDET butonuna tıkladığınızda "E" klasöründe eğer yoksa ARŞİV adıyla bir klasör oluşturur ve aktif dosyayı "Tarih Saat_Dakika_Saniye" formatında isimlendirerek kaydeder. Bu şekilde en son kaydettiğiniz dosyanın hangisi olduğunu kolaylıkla takip edebilirsiniz.

YAZDIR butonuna tıkladığınızda yazdıralacak sayfanın B yada C sütunundaki verilerden birisi boş olduğunda o sayfa yazdırılmaz.

Umarım faydası olur.

 

[TheRainmaker]

Cevabınız ve ilginiz için çok teşekkürler...

Sub YAZDIR()
Sayfa = 1
For X = 3 To 459 Step 58
If Cells(X, 2) <> "" Or Cells(X, 3) <> "" Then ActiveSheet.HPageBreaks(Sayfa).PrintOut
Sayfa = Sayfa + 1
Next
End Sub

Yukarıdaki kodta koyu olan bölümde hata iletisi aldım
Bunun dışında tek bir şey kalmış;
Kaydettiğimde sadece tabloların kaydedilmesi yani tüm tabloların dışında olan hiçbirşey kaydedilmesin(Örneğin:Kaydet ve Yazdır butonları gibi)


Yeniden teşekkürler...

 

[TheRainmaker]

Sevgili COST_CONTROL;
Tabloda hiçbirşey yokken yazdırmıyor...Yani burası istediğim gibi...
Ama birşeyler yazdıktan sonra Yazdır butonuna bastığımda;

Runtime error "438"
Object doesn't support this property or method

Hatası alıyorum...
Nasıl düzeltebilirim? :???:

Kaydettikten sonra Kaydet ve Yazdır butonları kaldırılamıyor mu?

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.

 

[TheRainmaker]

Selamlar,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.

Güncellenmiş olan dosya çok güzel çalışıyor...

Yeniden çok teşekkür ederim...

Sağlıcakla Kalın...

 

[Korhan Ayhan]

Selamlar,

&#220;stteki mesaj&#305;mdaki dosyada k&#252;&#231;&#252;k bir g&#252;ncelleme daha yapt&#305;m. L&#252;tfen son halini kullan&#305;n.

Yap&#305;lan g&#252;ncelleme;
Kopyalanan dosyadaki makrolar&#305; sildirecek kodlar eklenmi&#351;tir.