tarihlerin ay ve hafta şeklinde makroda tanımlanması

[EdexceL]

Herkese iyi akşamlar dilerim,
Öncelikle biraz acemi olan birisi olarak soracağım soru sizin için çok basit gelebilir ama bu sene bu makro işini iyice çözmek istiyorum ve yardımınızı rica ediyorum.
Notların AA, BB gibi şekillenmesi için yazılan makrodan faydalanarak tarihleri haftalar ve aylar şeklinde gösterilmesi ile ilgili makro yazdım. Rakamsal değerlere çevirerek 2 aşamalı da olsa hedefime ulaştım. (Raporda yaklaşık 9000 satır tarih var)
Sormak istediğim makroda alanların tarih olduğunu nasıl belirtebilirim? Ayrıca eski/original dosyayı açmadan bu makroyu sürekli nasıl kullanabilirim?
Şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya üzerinde ne yapmak istediğiniz açıklarsanız cevap almanız kolaylaşacaktır.

 

[EdexceL]

Excel olarak bir döküman ilave ettim. Umarım başarmışımdır. Makro işyerinde kaldığı için şu an veremiyorum.
Buna göre hazırlamış olduğum makroda tarihleri belirtemediğim için önce numeric daha sonra son 4 rakamını alarak otomatik ay ve hafta yazdırabildim.
Örnek 13/01/2006=38730, son dört karakter 8730.
20/01/2006=38737, son dört karakter 8737. Makroda yazdırdığım
If Tr_Date >= 8730 And Tr_Date <= 8737 then Hafta = "Week02"

Ay için
1/1/2006=38718 dört rakam 8718
31/1/2006=38748 dört rakam 8748
If Tr_Date >= 8718 And Tr_Date <= 8748 then Ay = "January"

Sonuç olarak daha basit yolu var mıdır?
Şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızda belirttiğiniz gibi ay isimleri ingilizce olmak zorundamı?

 

[EdexceL]

Selam Cost Control,
İngilizce olması önemli değil. Önemli olan mevcut tarihi haftalara ve aylara çevirebilmesi. Yarın original dosyayı/makroyu gönderirim.
Ayrıca makroyu bir excel dökümanında yazdıktan sonra tekrar kullanmak için eski dosyayı açmak gerekiyor. Açmadan makroyu uygulamanın başka bir yolu var mıdır?
Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre E2 hücresine aşağıdaki formülü;

="Week"&METNEÇEVİR(HAFTASAY(B2);"0#")

F2 hücresinede aşağıdaki formülü uygulayıp denermisiniz.

=METNEÇEVİR(B2;"aaaa")

 

[Orion1]

Merhaba.
Sayın CostControl arkadaşımız gerçi cevabı vermiş ama bende Alternatif açısından kullanıcı tanımlı fonksiyon kullanarak (KTF) dosyayı hazırladım.
Dosya ektedir.
İyi çalışmalar.
Dosya Güncellendi.

 

[EdexceL]

Yardımlarınız için çok teşekkür ederim.
Kolay gelsin

 

[EdexceL]

Makroların dosya açık olmadan kullanılması mümkün müdür?

Sayın Cost Control/Sezar,
Makroları kullanmak için o dosyanın açık olması gerekiyor. Add-ins gibi yöntemlerle makro dosyalarını açmadan Excel'de kullanmak mümkün müdür? Yardımınızı rica ederim.