içinde bulunduğumuz ayı 7 günlük tarih aralığına bölme.

[ASMET67]

Selamlar

Çalışma dosyamda içinde bulunduğumuz ayı 7 şer günlük dilimlere bölmem gerekiyor.

Örneğin.

Ocak Ayi

1. Dilim
A1 hüccresi = 01-01-2008
B1 hücresi = 07-01-2008
2.Dilim
c1 hüccresi = 08-01-2008
d1 hücresi = 14-01-2008

3.Dilim
e1 hüccresi = 15-01-2008
f1 hücresi = 21-01-2008

4.Dilim
e1 hüccresi = 22-01-2008
f1 hücresi = 28-01-2008
3.Dilim
g1 hüccresi = 29-01-2008
h1 hücresi = 31-01-2008


Bu örneğe göre içinde bulunduğumuz aya veya sayfada bir yere yazacağım tarihin ayına göre bu tarihler aralığında ayları nasıl bölebilirim.

Teşekkürler.

 

[ECYavuz]

Sayfaya eklenecek bir CommandButton'a atanacak aşağıdaki kodlarla bende sizin istediğiniz türde bir çalışma yapıyorum yararlanabilisiniz diye düşünüyorum.

Sub Hafta_Ekle()
Dim FDate As Date
Dim HBaş As Date
Dim IType As String
Dim Num As Integer
Set Db = Worksheets("DB")
FDate = "31/12/2007"
IType = "ww"
For Num = 0 To 52
HBaş = DateAdd(IType, Num, FDate)
Hafta = DatePart(IType, HBaş)
If Hafta > 52 Then Hafta = 1
Db.Range("A" & Num + 1).Value = Hafta
Db.Range("B" & Num + 1).Value = HBaş & " - " & HBaş + 6
KK = Weekday(HBaş) - 1: If KK < 1 Then KK = 1
günadı = WeekdayName(KK)
Db.Range("C" & Num + 1).Value = günadı
Next Num
End Sub

 

[uzmanamele]

merhaba
birde a&#351;a&#287;&#305;daki linki inceleyin

http://www.excel.web.tr/showthread.php?t=41324&page=2&highlight=tarih

 

[Ali]

A1 h&#252;cresine

01.01.2008 yaz&#305;n,

B1 h&#252;cresine

07.01.2008 yaz&#305;n.

C1 h&#252;cresinide tarih olarak bi&#231;imlendirdikten sonra

=E&#286;ER(A1+7>=TAR&#304;H(YIL($A$1);AY($A$1)+1;1)-1;TAR&#304;H(YIL($A$1);AY($A$1)+1;1)-1;A1+7)

yaz&#305;p sa&#287;a do&#287;ru &#231;ekiniz.