Copy rows to new sheet based on criteria?

Hi pillbug22,

Echoing Glenn, please provide a sample file.  If you do not have your own web space to upload the sample to, you
can use www.ee-stuff.com.

BTW, why split each month to its own sheet?  That only makes your analysis harder...

Regards,

Patrick

I'll post a sample link - we have a general YTD analysis, but some of the "reviewers" of this info want to be able to take away some clutter and look at only a month at a time if so desired.

The data is coming from a SQL database.

I am assuming we will refresh the YTD sheet from the database, then the Jan sheet (and others) would auto-update based on the new YTD data. I am wanting to copy rows to the monthly sheets based on the "CreateDateTime" field.

Sample with 5 rows of data: http://www.medicalcityhospital.com/CPM/sample.xls

I have had a chance to begin below is the code that selects the correct month.  Next It must copy the data to YTD and wsMonth.  
Sub YTDMonth()
    Application.ScreenUpdating = False
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim wsMatch As Worksheet
    Dim wsMonth As Worksheet
    Dim r1 As Integer, r2 As Integer, r3 As Integer, c1 As Integer, monthz As Integer, lcnt As Integer
    Set wbSource = ThisWorkbook    'choosing the active workbook as workbook
    Set wsMatch = wbSource.Sheets("Raw Data")         'defining the worksheet as GAF
    Set wsSource = wbSource.Sheets("YTD")         'defining the worksheet as Retail_Poe
    r1 = 2
    monthz = month(wsMatch.Cells(r1, 5))
    Select Case monthz    'defining the worksheet as Template
         Case 1
         Set wsMonth = wbSource.Sheets("Jan")
          Case 2
         Set wsMonth = wbSource.Sheets("Feb")
         Case 3
         Set wsMonth = wbSource.Sheets("Mar")
         Case 4
         Set wsMonth = wbSource.Sheets("Apr")
         Case 5
         Set wsMonth = wbSource.Sheets("May")
         Case 6
         Set wsMonth = wbSource.Sheets("Jun")
         Case 7
         Set wsMonth = wbSource.Sheets("Jul")
         Case 8
         Set wsMonth = wbSource.Sheets("Aug")
          Case 9
         Set wsMonth = wbSource.Sheets("Sep")
         Case 10
         Set wsMonth = wbSource.Sheets("Oct")
         Case 11
         Set wsMonth = wbSource.Sheets("Nov")
         Case 12
         Set wsMonth = wbSource.Sheets("Dec")
End Select
I will have some time later to continue.

The question that I need you to answer, should one clear all sheets and begin again with Raw Data, or  when the new data is imported it writes over the YTD sheet(and the data already present is just added to the appropriate sheet?
Glenn

When the raw data it updated, it writes over what is there (basically a delete all then add all data).

The YTD and RawData sheets are the same data, we just have a habit of keeping RawData on a seperate page that all of our sorting, filtering, functions, etc in case we goof something up during the analysis.

Some rows of data can change between imports, so we do need it to completely rewrite each sheet, not just add new rows.

ssaqibh,
You are using the A column in your formulas, you need to be using the E column.
You should be using the RAW Data sheet not the YTD sheet.
Glenn

I think that is a secondary issue. If pillbug22 is happy with this type of solution then the formula can be adjusted to whatever column that matters.

Saqib

ssaqibh,

Did you have to do something special to get the data columns formatted in mm/dd/yy format? I did a format cells on the column, but it keeps the dates in format like "Jan 11 2006", which I believe is why I'm getting an error when trying to use your formula with the Month() function.

I have all the dates in mm/dd/yy format. I have made no change to them. Just copied your sample file as-is.

Do you still need any input from us?

I think your solution works, I'm trying to figure out what my origonal workbook has dates like "Jan 01 2006", but when I did a copy/paste into the sample.xls, it pasted them as "1/1/06".