Totaal invoer rijen opschuiven aan de hand van datum

[MrSpock]

Een tijdje geleden ben ik zeer goed geholpen
Mijn vraag was toen of het mogelijk is om in 1 cel een invoer te doen en als ik in diezelfde cel een invoer doe dat het in een ander cel wordt opgeteld

If Not Intersect(Target, Range("E6:E136, F6:F136, G6:G136, H6:H136, I6:I136, J6:J136, K6:K136")) Is Nothing And Target.Count = 1 Then Target.Offset(, 8) = Target.Offset(, 8) + Target

Nu is mijn vraag is het mogelijk dat als het de 1e van de maand is automatisch Target.Offset(, 8) er extra 8 opschuift dus Target.Offset(, 16)

 

[OctaFish]

Zo bijvoorbeeld:

    If Day(Date) = 1 Then i = 16 Else i = 8
    If Not Intersect(Target, Range("E6:E136, F6:F136, G6:G136, H6:H136, I6:I136, J6:J136, K6:K136")) Is Nothing And Target.Count = 1 Then Target.Offset(, i) = Target.Offset(, i) + Target

 

[MrSpock]

Bedankt voor je antwoord Octafish

If Day(Date) = 1 Then i = 16 Else i = 8
Maar als ik het goed begrijp dan zou op de 1e van de maand het in cel 16 opgeteld worden en de rest van de dagen in cel 8
Mijn bedoeling is als het de 1e van de maand is het verder gaat vanaf cel 16 en de volgende maand cel 24 dus optellend
kan ik dan
If day(Date) = 1 i = +8 gebruiken ?

 

[emields]

Met een voorbeeldbestand zal je misschien beter geholpen worden.

 

[snb]

In VBA:

If Not Intersect(Target, Range("E6:K136")) is Nothing

 

[OctaFish]

Maar als ik het goed begrijp dan zou op de 1e van de maand het in cel 16 opgeteld worden en de rest van de dagen in cel 8

Dat vroeg je ook . Nu stel je toch een andere vraag. Ik sluit me aan bij emields, en zou zeggen: doe er eens een voorbeeldje bij met wat je nu écht wilt.

 

[MrSpock]

Bij deze voorbeeld bestand

Wil bijhouden wat er aan verbruikers artikelen wordt uitgegeven
Ik hoop tot dit mijn vraag wat duidelijker maakt