Ste1605
01-22-2014, 02:10 AM
Hey,
I have a tab within a spreadsheet (Raw Data) which I have alot of data I would like to split up. I have 4 other tabs I would like the data split in to. I would also like the data to pasted in colum c on each of the below tabs on my spreadsheet.
Majority Rule Failed
No DV Price
Provider Compare Failed
Single Sourced
I have recorded the below macro however it works but not as I want it to.
ActiveSheet.Paste
Sheets("Raw Data").Select
ActiveSheet.Range("$A$1:$T$14168").AutoFilter Field:=1, Criteria1:= _
"No DV Price"
Range("A1:T14168").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("No DV Price").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Raw Data").Select
Range("A1").Select
ActiveSheet.Range("$A$1:$T$14168").AutoFilter Field:=1, Criteria1:= _
"Provider Compare Failed"
Range("A1:T14168").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Provider Compare Failed").Select
Application.Run "IDC__SheetActivate"
Range("A1").Select
ActiveSheet.Paste
Sheets("Raw Data").Select
Range("A1").Select
ActiveSheet.Range("$A$1:$T$14168").AutoFilter Field:=1, Criteria1:= _
"Single Sourced"
Range("A1:T14168").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Single Sourced").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Control Sheet").Select
Application.Run "IDC__SheetActivate"
End Sub
Help greatly appreciated.
I have a tab within a spreadsheet (Raw Data) which I have alot of data I would like to split up. I have 4 other tabs I would like the data split in to. I would also like the data to pasted in colum c on each of the below tabs on my spreadsheet.
Majority Rule Failed
No DV Price
Provider Compare Failed
Single Sourced
I have recorded the below macro however it works but not as I want it to.
ActiveSheet.Paste
Sheets("Raw Data").Select
ActiveSheet.Range("$A$1:$T$14168").AutoFilter Field:=1, Criteria1:= _
"No DV Price"
Range("A1:T14168").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("No DV Price").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Raw Data").Select
Range("A1").Select
ActiveSheet.Range("$A$1:$T$14168").AutoFilter Field:=1, Criteria1:= _
"Provider Compare Failed"
Range("A1:T14168").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Provider Compare Failed").Select
Application.Run "IDC__SheetActivate"
Range("A1").Select
ActiveSheet.Paste
Sheets("Raw Data").Select
Range("A1").Select
ActiveSheet.Range("$A$1:$T$14168").AutoFilter Field:=1, Criteria1:= _
"Single Sourced"
Range("A1:T14168").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Single Sourced").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Control Sheet").Select
Application.Run "IDC__SheetActivate"
End Sub
Help greatly appreciated.