Kapasite Planlama

[AtaAri]

Kapasite planlama konusunda yardıma ihtiyacım var.

Yapmak istediğim,
A1 Hücresinde 20.03.2023 10:10 tarihi var.
Sadece hafta içi çalışıyorum.
6.7 Gün sonraki gün ve zamanı hesaplayamadım.



Destek olabilir misiniz.

 

[Greenblacksea53]

=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))

Denermisin B1 hücresinin 6,7 seklinde yaparsın hata verirse

 

[hasankardas]

. yerine virgül kullanıp toplar mısınız? biçimi hücre biçimlendir tarih kısmından ayarlayınız

 

[Greenblacksea53]

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

Bu vba ile yaptım. B1 hücresine 6,7 şeklinde yazarsınız...

 

[AtaAri]

İ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.

 

[Greenblacksea53]

=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))

Deneyin bakalım,

 

[hasankardas]

İ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.

Greenblacksea53
formülü çalışıyor,
kusura bakmayın en haftaiçi kısmını gözden kaçırmışım

 

[AtaAri]

=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))

Deneyin bakalım,

sn Greenblacksea53 çok teşekkür ediyorum.
Emeklerinize sağlık.
Yalnız Cumartesi günü söz konusu olunca çıkan sonuç hatalı oluyor. Düzeltmeye çalıştım ama yapamadım.
6.7 yerine 5 yazdığımda 25/3/2023 veriyor. Halbuki Cumartesi yerine Pazartesi olarak sonuç vermeliydi.
Tekrar bakabilirseniz memnun olurum.

 

[AtaAri]

Kullanmak isteyen olursa alttaki şekilde çözdüm.

=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)

 

[Greenblacksea53]

Kullanmak isteyen olursa alttaki şekilde çözdüm.

=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 forumlar