Hallo allemaal,
Ik wil de waarden uit een variabel bereik kopiëren naar een ander bereik dat variabel is bepaald. Ik heb nu onderstaande code:
Deze code resulteert steeds in een error 1004. Als ik het bereik op sheet 21 niet variabel maak, werkt het wel, maar daarmee heb ik geen oplossing voor mijn probleem.
Heeft iemand een oplossing? Ik zou bijvoorbeeld "Sheets(21).Range(Cells(l, 33), Cells(l, 37))" ook wel aan een naam kunnen koppelen in Excel, maar om dat nu for each c te moeten doen, daar wordt de code ook niet sneller van...
Alvast bedankt
Ik wil de waarden uit een variabel bereik kopiëren naar een ander bereik dat variabel is bepaald. Ik heb nu onderstaande code:
Code:
i = .Columns(5).Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
l = 2
For Each c In .Range(Cells(18, 5), Cells(i, 5))
If c.Value <> "" Then Sheets(21).Range(Cells(l, 33), Cells(l, 37)).Value = .Range(Cells(c.Row, 5), Cells(c.Row, 9)).Value: l = l + 1
Next c
Deze code resulteert steeds in een error 1004. Als ik het bereik op sheet 21 niet variabel maak, werkt het wel, maar daarmee heb ik geen oplossing voor mijn probleem.
Code:
If c.Value <> "" Then Sheets(21).Range("AG2:AK2").Value = .Range(Cells(c.Row, 5), Cells(c.Row, 9)).Value 'Deze contructie werkt wel....
Heeft iemand een oplossing? Ik zou bijvoorbeeld "Sheets(21).Range(Cells(l, 33), Cells(l, 37))" ook wel aan een naam kunnen koppelen in Excel, maar om dat nu for each c te moeten doen, daar wordt de code ook niet sneller van...
Alvast bedankt