Hafta sayısını tarihe çevirme

[EmrExcel16]

Merhaba arkadaşlar çok aradım fakat bulamadım
hafta sayısını ve yılını yazdığımda o haftanın ilk günün tarihini bulabileceğim kod nedir acaba

Ben bunu formül ile yapıyorum fakat bana bunun vba kodu gerekli yardımlarınız için şimdiden teşekkür ederim lütfen makro kaydet ile formulu koda çevirip göndermeyin

=A2*7+TARİH(B2;1;1)-HAFTANINGÜNÜ(A2*7+TARİH(B2;1;1))+2

 

[Ömer]

Merhaba,

İstediğiniz bu mu?

Sub Ilk_Hafta()

    Dim hafta As Byte, yil As Double, tarih1 As Date, tarih2 As Date
    
    hafta = Range("A2")
    yil = Range("B2")
    
    tarih1 = DateSerial(yil, 1, hafta * 7 - 2)
    tarih2 = "1.1" & yil
    
    MsgBox CDate(tarih1 - Weekday(tarih2, 2))
    
End Sub

.

 

[merakli_72]

yoksa bu mu

Sub hafta_tarih()
Dim YilBasi As Date
Dim ilk_Hft_Bs As Date

YilBasi = CDate("1.1." & [B2])
ilk_Hft_Bs = YilBasi - Weekday(YilBasi, vbUseSystemDayOfWeek) + 1
MsgBox DateAdd("ww", [A2], ilk_Hft_Bs)
End Sub

 

[EmrExcel16]

Merhaba

Her iki cevap içinde teşekkür ederim ikisi de istediğim sonucu veriyor çok teşekkür ederim