Kopie naar rij met juiste weeknummer

[icecube87]

Wat jij wil kan al helemaal niet want dan moet je de gegevens per dag vastleggen.

Dat is ook de bedoeling. De gegevens per dag moeten worden vastgelegd in de sheet.

Waarom is het niet mogelijk de gegevens onder elkaar in te voegen, maar wel naast elkaar?

 

[HSV]

Sub Opslaan_Klikken()
Sheets("Database").Cells(Rows.Count, Range("b1").Value + 1).End(xlUp).Offset(1 + Abs(Sheets("database").Cells(2, Range("b1") + 1) > 0)).Resize(24) = Range("B3:B26").Value
End Sub