Üretim başlama tarihinden itibaren planlanan adetleri yazdırmak

[adokskel]

Merhaba, Herkese işlerinde kolaylıklar dilerim.
Sorum şöyle:

https://pasteboard.co/GOSLoSn.jpg

İşin başlama tarihi ve bitiş tarihi belli. Misal10 gün sürem var. Bu 10 günde 1500 parça üretmem için günde 150 parça üretmem lazım. İşe başlama tarihim 17.10.2017 diyelim. Bugünün hücresinden başlayarak yanyana her hücreye (bitiş tarihine kadar) 150 yazdırabilmem için hangi fonksiyonları öğrenmem lazım.

Teşekkür ederim.

 

[çıtır]

H3 Kopyalayın, yeterince sağa ve aşağı çekin.

=EĞER(VE(H$2>=$D3;H$2<$E3);$G3;"")

 

[adokskel]

Müthişsiniz.
Çok teşekkür ederim.
Bi satırcıkta bitti valla.

 

[çıtır]

Müthişsiniz.
Çok teşekkür ederim.
Bi satırcıkta bitti valla.

Rica ederim.Kolay gelsin.

 

[adokskel]

Ben bu soruyu yabancı forum sitelerine de sormuştum.
Sizi ve bu siteyi atıfta bulunarak cevap vermemin sakıncası var mı?
Bu sitenin de tanıtımı olur diye düşündüm.

 

[çıtır]

Ben bu soruyu yabancı forum sitelerine de sormuştum.
Sizi ve bu siteyi atıfta bulunarak cevap vermemin sakıncası var mı?
Bu sitenin de tanıtımı olur diye düşündüm.

Benim için yok ,site için bir yetkim yok, cevaplayamam.Site yönetimi bilir.

 

[adokskel]

Merhaba,
Belki incelemek isteyen olur.
Şöyle bir Makro yardımı geldi.

Sub DDP()
Application.ScreenUpdating = False
Dim LastRow As Long
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Dim sDate As Range
Dim foundSDate As Range
Dim DV1 As Date
Dim DV2 As Date
Dim foundEDate As Range
Dim lColumn As Long
lColumn = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column
For Each sDate In Range("D3" & LastRow)
DV1 = DateValue(CStr(sDate))
DV2 = DateValue(CStr(sDate.Offset(0, 1)))
Set foundSDate = Range(Cells(2, 8), Cells(2, lColumn)).Find(What:=Format(DV1, "dd.mm.yyyy"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
Set foundEDate = Range(Cells(2, 8), Cells(2, lColumn)).Find(What:=Format(DV2, "dd.mm.yyyy"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
With Range(Cells(sDate.Row, foundSDate.Column), Cells(sDate.Row, foundEDate.Column - 1))
.Value = sDate.Offset(0, 3)
.Interior.ColorIndex = sDate.Interior.ColorIndex
End With
Next sDate
Application.ScreenUpdating = True
End Sub

 

[adokskel]

Peki Pazar günlerini boş bırakması mümkün müdür?

 

[adokskel]

Ben Pazar günlerinin olduğu sütunları siliyorum. Sizleri zahmete sokmayım. teşekkürler
Ben sadece komutları yorumlamak için sormuştum.

 

[çıtır]

H3 Kopyalayın, yeterince sağa ve aşağı çekin.Pazar günleri silmeyin boş bırakır.

=EĞER($G3="";"";EĞER(VE(HAFTANINGÜNÜ(H$2;2)<>7;H$2>=$D3;BAĞ_DEĞ_SAY($G3:G3)<=$F3);$G3;""))