filling next row if cell is full

[extremis]

Hi,

basicly..when i click on the macro button on Input_sheet twice, I would like that the second time, the result on the sheet results appear twice..so if i have for the first time the result
1
2
3
and I click a second time...I would like to see next after
1
2
3
1
2
3

here is my coding...copying the cell from sheet work well..but when i click a second time...it start from a2 again.

Please Login or Register  to view this content.

[JieJenn]

What happen if you click on the 3rd time?

[JieJenn]

alrite, i am just guessing here. Maybe

Please Login or Register  to view this content.

[extremis]

third time..same thing..just copy first range of data over the one that was previsouly ther..

[extremis]

hi, alright..we didnt understand each other. I am sorry, I will try to express myself in a better way.

Your macro work fine with what I asked on the first post, however, the 1,2,3 was only an example. If you look at my code, you see that i am selecting rangeA2:o2 then go to bottom.select visible cell only THEN paste in in the result sheet...

Basicly, i want to do that, when when there is already results in sheets results, i want that the code keep on copying information from rangeA2:o2 where the information ended in sheet results..thus..

again as an example
1
2
3..

then i want the code ti pick up where it left..
1
2
3..
1
2
3... BUT..with visible cell ranging from a2;02 in sheet input sheet :D..clearer?

[extremis]

found the solution

Please Login or Register  to view this content.

[kgowett]

If I wanted the current date added into that next available row, where would I put the =Date part?

[extremis]

need to replace the offset

Sheets("Results").Cells(Rows.Count, "a").End(xlUp).Offset(1, 1).PasteSpecial xlPasteValues