Dosya simgesi

Her Sayfaya Tarih Ekleme

Bu dosya, adı tarih olan çalışma sayfalarının her birinde B3 hücresine o sayfanın adındaki tarihi otomatik olarak yazan bir makro içerir. Günlük takip, günlük rapor ya da tarih adlı sekmelerle çalışılan benzeri dosyalarda tarihlerin tek tek elle girilmesi gerekmez.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Dosya .xlsm biçimindedir.

Dosyanın içeriği​

  • 13.03.2024, 14.03.2024, 15.03.2024, 16.03.2024, 17.03.2024: Adları tarih olan beş sayfa. Her sayfada tarihin yazılacağı hücre B3 hücresidir.
  • Makro, Module1 modülünde yer alan kod adlı prosedürdür.
Sayfalarda formül, tablo ya da grafik yoktur; yapı yalnızca makronun çalışmasını göstermeye yöneliktir.

Makrolar​

kod makrosu çalışma kitabındaki tüm sayfaları sırayla dolaşır. Her sayfanın adını IsDate ile kontrol eder; ad geçerli bir tarih ise DateValue ile adı tarih değerine çevirir ve sonucu sayfanın B3 hücresine yazar. Adı tarih olmayan sayfalara dokunulmaz.

Makro yalnızca B3 hücresine değer yazar; dosya silme, dışarıya bağlantı kurma gibi bir işlem yapmaz.

Hedef hücreyi değiştirmek için VBA düzenleyicisinde hcr değişkenine atanan hücre adresi güncellenir.

Nasıl kullanılır​

  1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
  2. Yeni tarihli sayfalar ekleyecekseniz sayfa adını gün.ay.yıl biçiminde verin (ör. 18.03.2024).
  3. Alt+F8 tuşlarıyla makro listesini açın, kod makrosunu seçip Çalıştır düğmesine basın.
  4. Her tarih adlı sayfanın B3 hücresinde sayfa adındaki tarih görüntülenir.
  5. B3 hücresi tarih biçiminde görünmüyorsa hücreyi seçip sayı biçimini tarih olarak ayarlayın.
Makroyu başka bir dosyada kullanmak için Module1 modülü o dosyaya aktarılır ya da kod yeni bir modüle kopyalanır; dosya .xlsm olarak kaydedilir.

Qene tarafından daha fazla dosya

Detaylar
Yazar
Qene
İndirme
4
Gösterim
238
İlk sürüm
Güncel
SHA-256
cfc537f617be677e96a00ef70c97ee57793a0f5225d198bbf2ce107b2d63deaa

Puanlar

5.00 Oylama 1 İnceleme

En son değerlendirmeler

farklı bir paylaşım, sağolun.
Geri
Üst