Need Help on Split data to sheet using date

[JawaharPrem]

Hi all,

I need to split the data on date wise in seperate sheets. enclosed sample data for referece.
Data should seperate by coloum name "Status Date"


Thanks
Jawahar Prem

 

[Hui]

Have a read of these two posts

Move Data to other Sheets
http://chandoo.org/wp/2012/05/14/vba-move-data-from-one-sheet-to-multiple-sheets/
Advanced Filter Move Data to other Files
http://chandoo.org/wp/2011/10/19/split-excel-file-into-many/

 

[rahulshewale1]

hii @JawaharPrem ,

see if is ok ? you can achive deisre result using pivot table ..
Select data >>Go to insert >> pivot table >>Add header one by one in Row Labels >>Select Status date fiedls >right click on Fiedles >>Add to Report filters>>go to option >>


Regard
Rahul shewale

 

[JawaharPrem]

hi sir,

iam getting error in bolded and underlined please help on same

Sub copyPasteData()
Dim strSourceSheet As String
Dim strDestinationSheet As String
Dim lastRow As Long
strSourceSheet = "Sheet1"
Sheets(strSourceSheet).Visible = True
Sheets(strSourceSheet).Select
Range("k1").Select
Do While ActiveCell.Value <> ""
strDestinationSheet = ActiveCell.Value
ActiveCell.Offset(0, -2).Resize(1, ActiveCell.CurrentRegion.Columns.Count).Select
Selection.Copy
Sheets(strDestinationSheet).Visible = True
Sheets(strDestinationSheet).Select
lastRow = LastRowInOneColumn("A")Cells(lastRow + 1, 1).Select
Selection.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets(strSourceSheet).Select
ActiveCell.Offset(0, 2).Select
ActiveCell.Offset(1, 0).Select
Loop
End Sub