how to transfer certain cells from sheet1 to sheet2

[lee478]

Hi,

I am trying to do somekind of sorting?
if the first character of the cell is number or * then copy that cell(row i ) and the cell above(row i -1) to sheet2.
I am not sure how to check the first character is *.


The idea is this:

Please Login or Register  to view this content.

Any help would be appreciated,
Thanks

[sktneer]

may be this.....

Please Login or Register  to view this content.

[FDibbins]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

I have added them for you - this time

[lee478]

I modified my code to :

Please Login or Register  to view this content.

And I am getting a subscript out of range error.
how can I cease this error?

[sktneer]

in the line

Please Login or Register  to view this content.

if the loop starts from i=1, ws1.cells(i-1,1) becomes ws1.cells(0,1) which is wrong because there is no row 0.

[lee478]

Please Login or Register  to view this content.

I changed to this but I dont think this is the problem?
debugger highlights the following line:

Please Login or Register  to view this content.

[sktneer]

Delete the sheet added (Output) before running the code again. Check the error msg also...what that error msg. says?

[lee478]

you mean this?

Please Login or Register  to view this content.

Same error "subscript out of range"