datum

[don42]

Hoi allemaal,

wil de datum in cel E6 ophogen met 1 tot K6 (een week dus)

nu doe ik dat zo:

Range("f6").Value = Range("e6") + 1
Range("g6").Value = Range("e6") + 2
Range("h6").Value = Range("e6") + 3
Range("i6").Value = Range("e6") + 4
Range("j6").Value = Range("e6") + 5
Range("k6").Value = Range("e6") + 6

Wie laat mij even weten hoe het echt moet, heb al iets geprobeerd met autofill maar dan kom ik in een loop en loopt alles vast

bvd

 

[edmoor]

Die code hoogt de datum in E6 niet op maar gebruikt de waarde van E6 om de waarde in een andere cel te verhogen.

Laat dus weten wat nu precies je bedoeling is.
Plaats tevens een voorbeeld documentje.

 

[don42]

Ik vul in cel D6 een weeknummer in:

dan komt in cel E6 een datum (zondag)
met deze code

=DATUM(adres!B1;1;1)+(D6-ALS(WEEKDAG(DATUM(adres!B1;1;1);2)<5;1;0))*7-WEEKDAG(DATUM(adres!B1;1;1);2)

en heb ik de code die in mijn vraag staat nodig op de rest van de week te vullen van maandag tot zaterdag
dus moet ik toch telkens ophogen met 1

 

[edmoor]

Ik zie nog geen voorbeeld documentje.

 

[HSV]

Als je toch al formules gebruikt, wat is er dan mis met:

=E6+1 en doorvoeren naar K6.

 

[don42]

Ik stuur straks even een voorbeeldje

 

[wieter]

Een gok zonder voorbeeld.
In het bestand staat er wat info.
Misschien was dit wel je bedoeling?

 

[don42]

Heb even het bestandje toegevoegd wat ongetwijfeld mijn vraag duidelijker maakt
sorry voor de late reactie (mijn vrouw kerst en PC is niet de handigste combi :d)
en bedankt voor de hulp tot dusver

 

[VenA]

En wat moet er gebeuren dan? Bij elke SelectionChange steeds weer dezelfde gegevens berekenen?

 

[don42]

Eigenlijk alleen als het weeknummer aangepast wordt
op nieuw berekenen
dus heb ik al bedachte met

 If Not Application.Intersect(Range("e7"), Target) Is Nothing Then

 

[Enigmasmurf]

Er valt geen enkele reden te verzinnen waarom je hiervoor vba zou gebruiken. Bij elke wijziging van weeknummer overschrijf je de formule in E6 met... dezelfde formule!
Zet in F6 gewoon

=E6+1

en trek door tot K6. En vergeet niet die vba-code te verwijderen.

 

[VenA]

Volgens mij spreek jij jezelf tegen

Ik vul in cel D6 een weeknummer in:

If Not Application.Intersect(Range("e7"), Target) Is Nothing Then

Dus wat het moet worden?

 

[don42]

D6 een weeknummer
Enter D7 geselecteerd
En dan
Maar ik ga maar met de vorige optie E6+1 aan de slag

 

[HSV]

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(0, 0) = "D6" Then
  Application.EnableEvents = False
    Range("e7") = [date(adres!b1,1,1+7*d6-weekday(date(adres!b1,1,1),1)-6)]
    Range("e7:k7").DataSeries , xlChronological, xlDay  'Of  3, 1
  Application.EnableEvents = True
 End If
End Sub

 

[don42]

Dank je
:thumb:

 

[HSV]

Graag gedaan.