Hi,
To make a difficult question easy, i made an example of what i want (but ofcourse in a complicated exercise). I want to copy each number in the selection (called "firstrow") to another place (in the exercise another worksheet but here i showed it in the same worksheet). And when he is done with the first row, he goes automaticly to the second row and then the third row till a row is empty.
For Each acell In Range("firstrow")
If acell.Value > 0 Then
acell.copy
and then paste it .... the other part of the code is already done.
You see the code i have is just for the firstrow and not for the second and third.
I just want that he copy each cell from a range to another place, and if the first range is down he goes to the second and so on till a rows is empty.
Kind regards
Sey
[/IMG]
To make a difficult question easy, i made an example of what i want (but ofcourse in a complicated exercise). I want to copy each number in the selection (called "firstrow") to another place (in the exercise another worksheet but here i showed it in the same worksheet). And when he is done with the first row, he goes automaticly to the second row and then the third row till a row is empty.
For Each acell In Range("firstrow")
If acell.Value > 0 Then
acell.copy
and then paste it .... the other part of the code is already done.
You see the code i have is just for the firstrow and not for the second and third.
I just want that he copy each cell from a range to another place, and if the first range is down he goes to the second and so on till a rows is empty.
Kind regards
Sey
