Ayları haftaya bölme

[emre1905]

Bir ayı 4 haftaya bölmek istiyorum. Mesela Mart ayının ilk haftası için Mart 1 , ikinci haftası için Mart 2 üçüncü haftası için mart 3 gibi.
Ekte örnek dosya var B sütununa doğru formül girebilirsem ayları dönemlere bölebilirim.
Yardımcı olursanız çok memnun olurum.

 

[emre1905]

Pardon dosyayı eklemeyi unutmuşum,

 

[Korhan Ayhan]

Selamlar,

Ayın haftalarını hangi kritere göre belirleyeceksiniz?

 

[Orion1]

Merhaba.
Kullanıcı tanımlı fonksiyon ile hazırladığım Dosya ektedir.
Formülü aşağı doğru çekerek çoğaltabilirsiniz.
Başka bir dosyada kullanacaksanız.Kullanacı tanımlı fonksiyonu kopyalayıp kullanacağınız dosyada boş bir modüle kopyalayınız.
Kolay gelsin.
Merhaba.
Sayın Ali Bey'in belrttiği üzere Fonksiyonda bir hata tespit edilmiş olduğundan dolayı,Ekli dosyayı kaldırdım.Düzeltince tekrar eklerim.Arkadaşlardan özür dilerim

 

[emre1905]

Çok teşekkür ederim işime yarıycak sanırım üstünde biraz daha uğraşmam lazım

 

[Ali]

Sn Sezar kullanıcı tanımlı fonksiyonda bir hata olmuş.

21.03.2007 tarihini üçüncü hafta göstermiş dördüncü hafta olması lazımdır.
Aynı şekilde 28.03.2007 ve 29.03.2007 tarihlerinin her ikiside beşinci hafta iken birini dördüncü birini beşinci hesaplamış.

Function kacinci_hafta(Tarih As Date) As Byte
  Dim aybasi As Date, hsonuilk  As Date
  Dim hgunu As Byte
  aybasi = DateSerial(Year(Tarih), Month(Tarih), 1)
  hgunu = WorksheetFunction.Weekday(aybasi, 2)
  hsonuilk = DateSerial(Year(aybasi), Month(aybasi), (7 - hgunu) + 1)
  kacinci_hafta = 1
  If Day(Tarih) > Day(hsonuilk) Then kacinci_hafta = kacinci_hafta + WorksheetFunction.RoundUp((Day(Tarih) - Day(hsonuilk)) / 7, 0)
End Function

kullanıcı tanımlı fonksiyonunu kullanmak yerinde olacaktır.