DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=EĞER(HAFTANINGÜNÜ(A1)>=2;EĞER(HAFTANINGÜNÜ(A1)+B1>7;A1+TAMSAYI((B1-HAFTANINGÜNÜ(A1)+1)/5)*7+B1-HAFTANINGÜNÜ(A1)+1;A1+B1);A1+EĞER(HAFTANINGÜNÜ(A1)+B1>7;TAMSAYI((B1+5)/5)*7+B1))
Sub Hesapla()
Dim tarih As Date
Dim sonuc As Date
tarih = Range("A1").Value
Dim isGunleriSayisi As Double
isGunleriSayisi = Range("B1").Value
Dim i As Double
For i = 1 To isGunleriSayisi
tarih = tarih + 1
Do While Weekday(tarih, vbMonday) > 5
tarih = tarih + 1
Loop
Next i
sonuc = DateAdd("n", TimeValue("10:10:00"), tarih)
Range("c1").Value = sonuc
End Sub
=EĞER(HAFTANINGÜNÜ(A1)>=2;EĞER(HAFTANINGÜNÜ(A1)+B1>7;A1+TAMSAYI((B1-HAFTANINGÜNÜ(A1)+1)/5)*3+B1-HAFTANINGÜNÜ(A1)+1;A1+B1);A1+EĞER(HAFTANINGÜNÜ(A1)+B1>7;TAMSAYI((B1+5)/5)*7+B1))
Greenblacksea53İlginiz için teşekkür ederim.
Yalnız verdiğiniz formül hatalı sonuç çıkartıyor.
20/3/2023 10:10 üzerine 6.7 gün eklediğimize 29/03/2023 03:53 gibi göstermesi gerekir.
Fonksiyon ile yapmak istiyorum, VBA ile değil.
sn Greenblacksea53 çok teşekkür ediyorum.Deneyin bakalım,C++:=EĞER(HAFTANINGÜNÜ(A1)>=2;EĞER(HAFTANINGÜNÜ(A1)+B1>7;A1+TAMSAYI((B1-HAFTANINGÜNÜ(A1)+1)/5)*3+B1-HAFTANINGÜNÜ(A1)+1;A1+B1);A1+EĞER(HAFTANINGÜNÜ(A1)+B1>7;TAMSAYI((B1+5)/5)*7+B1))
=EĞER(HAFTANINGÜNÜ(B2+A2+TOPLA(TAMSAYI((HAFTANINGÜNÜ(A2-{1;7})+B2+A2-A2)/7))+EĞER(HAFTANINGÜNÜ(B2+A2;1)=1;1;0))=7;2;EĞER(HAFTANINGÜNÜ(B2+A2+TOPLA(TAMSAYI((HAFTANINGÜNÜ(A2-{1;7})+B2+A2-A2)/7))+EĞER(HAFTANINGÜNÜ(B2+A2;1)=1;1;0))=1;1;0))+B2+A2+TOPLA(TAMSAYI((HAFTANINGÜNÜ(A2-{1;7})+B2+A2-A2)/7))+EĞER(HAFTANINGÜNÜ(B2+A2;1)=1;1;0)
İşinizi görmenize sevindim, kolay gelsin iyi forumlarKullanmak isteyen olursa alttaki şekilde çözdüm.
Kod:=EĞER(HAFTANINGÜNÜ(B2+A2+TOPLA(TAMSAYI((HAFTANINGÜNÜ(A2-{1;7})+B2+A2-A2)/7))+EĞER(HAFTANINGÜNÜ(B2+A2;1)=1;1;0))=7;2;EĞER(HAFTANINGÜNÜ(B2+A2+TOPLA(TAMSAYI((HAFTANINGÜNÜ(A2-{1;7})+B2+A2-A2)/7))+EĞER(HAFTANINGÜNÜ(B2+A2;1)=1;1;0))=1;1;0))+B2+A2+TOPLA(TAMSAYI((HAFTANINGÜNÜ(A2-{1;7})+B2+A2-A2)/7))+EĞER(HAFTANINGÜNÜ(B2+A2;1)=1;1;0)