VBA code to select rows and copy into new sheet

Hard to know without seeing the spreadsheet, but I have two ideas:

1) Instead of using Cstr, use CDate

or

2) Instead of

Please Login or Register  to view this content.

you could try

Please Login or Register  to view this content.

It still isn't working :/

Please Login or Register  to view this content.

This works when I test number values but when I change it to "Date()" excel stops working and quits

Please Login or Register  to view this content.

Can you upload the spreadsheet?

Hello Rachel,

As mgs73 suggests, its a good idea to upload a sample of your workbook but in the meantime here is another method that may work for you (untested):-

Please Login or Register  to view this content.

I'm assuming that your data starts in row2, Column A with headings in row1. I've also used the sheet codes rather than sheet names in the above code.

I hope that this helps.

Cheerio,
vcoolio.

Book1.xlsm

Here is a sample of my workbook, thanks for helping me on this, I really appreciate it. I don't know why none of the codes will work.

Vcoolio, that code didn't seem to work :/

Hi,

I have not tried Date.Value, where should I enter that?

Also, I tried this code and it correctly choose the dates. However, it is just cutting them and not pasting them to sheet2. I tried changing the Rows(r).Cut to Rows(r).copy but then it stopped working all together.

Please Login or Register  to view this content.

Hi Rachel,

I've noticed two things in your workbook that are the probable causes:-

1) You've placed the code in the worksheet module. The code is not an event code (i.e. Worksheet_Change) and needs to be placed in a standard module and assigned to a button.

2) You need to clean up sheet2. Further down the sheet, in various locations, there are a number of blocks of data which would appear to have been placed there by the various codes that you have tried. I'm assuming that you want the data pasted to sheet2 starting in row29 but the transferred data is not starting there as its path is being blocked by the other data further down the sheet. Data is generally pasted from the bottom up, e.g. from my code:

Please Login or Register  to view this content.

the pasted data is placed from Column A, the rows are counted from the bottom up [(Rows.Count).End(3)] with End(3) simply being an abbreviation for .End(xlUp) and the (2) being an abbreviation for Offset(1,0) or one row down from the headings or last pasted row.

I've tested the code in post #6 and it works just fine once the sheet is cleaned up so I would assume that the other codes would work also once the clean up is done.

I hope that this helps.

Cheerio,
vcoolio.

That worked! Thank you so much for the help!

You're welcome Rachel.
I'm glad that I was able to help.

Cheerio,
vcoolio.