VBA that selects dates in a column and pastes the other columns in a new sheet

[patrickbuisman]

Hi

I am pretty new to vba and i need a code for doing this

Sheet looks like this

Article# in column A
Price in Column B
Date in Column C

Now i need to paste Column A and B in one new sheet, only based on and grouped by the date.

So for instance I have 10 articles with date x and 10 with Y. I want a sheet which shows the 10 articles with x and one with Y.

The dates are not known in advance and could be multiple...............

would be great if this is possible!!

[majosum]

The code will change if you have multiple dates like you do in your attached workbook. In your question, you mentioned only have two dates (x and y).

If you only have x and y, then:

Sheets("Sheet1").Range("B2").Select
Do Until ActiveCell.Value = ""
If ActiveCell. = #8/27/2013# Then
Range(activecell, Activecell.end(xlToLeft)).copy
Sheets("Sheet2").Select
ActiveSheet.Paste
ActiveCell.Offset(1,0).Select
Else
Range(activecell, Activecell.end(xlToLeft)).copy
Sheets("Sheet3").Select
ActiveSheet.Paste
ActiveCell.Offset(1,0).Select
End If
Sheets("Sheet1").Select
ActiveCell.Offset(1,0).Select
Loop

[majosum]

Sorry, forgot to use the code formatting.

Please Login or Register  to view this content.

[patrickbuisman]

Hi,

First of all thanks!!

Still some questions

If ActiveCell. = #8/27/2013# Then turns red if I paste it in my VBA.

Also the date isnt always the same and could be more than two dates. Is this VBA still working then?