Haftayı Güne çevirme

[haspa]

HAFTASAY

fonkiyonu ile bir tgarihi haftaya çevirsbiliyoruz.

(25-03-2008)=(13). hafta

tam tersini yapan yani haftayı güne (tarihe) çeviren bir fonksiyon veya kod varmidiı?

(13) =?

 

[Orion1]

13ncü haftanın ilk gününü bulur.

=TARİH(YIL(BUGÜN());1;1)+(13*7)-(8)

 

[Ali]

A1 hücresine yıl olarak 2008 yazın.

B1 hücresine görmek istediğiniz haftayı mesela 13' ü yazın.

Sonucu göreceğiniz hücreye

=TARİH(A1;1;B1*7-2)-HAFTANINGÜNÜ(TARİH(A1;1;3))

yazınız.

2008 yılının 13 haftasının ilk Pazartesi gününü bulmuş olursunuz.

 

[haspa]

arkadaşlar yardımşlarınız için çok teşekkür ederim sağolun

emeğiniz için çok teşekkürler

 

[fatihsun]

Haftayı güne çeviren formülü VBA olarak yazarmısınız.

 

[fatihsun]

Cevabı buldum sanırım:
A1 Yıl
B1 Hafta
C1 Haftanın ilk günü

Sub Düğme1_Tıklat()

Dim d1 As String
Dim d2 As String
Dim date1 As Date

d1 = "01." & "01." & Range("A1").Value
d2 = "03." & "01." & Range("A1").Value
date1 = CDate(d1) + Range("A2").Value * 7 - 3
Range("A3").Value = date1 - Weekday(CDate(d2))
    
End Sub