Hi,
I need macro which will split raw data into new workbooks by column Q (using the Column Q as the new workbook file name ie One, Two, Three etc) and then the data being split into different worksheets (ie A B C etc)
I have xxx out the data - the data will always run to column AD
Any help will be greatly appreciated.
Thank you.
Row Labels
Five
M
N
O
P
Q
R
Four
K
L
T
U
V
X
Y
Z
AA
One
A
B
C
D
E
F
G
Six
S
Three
J
Two
H
I
Grand Total
Hi gallen6945,
Try this (noting my comments along the way):
Regards,
Please Login or Register to view this content.
Robert
____________________________________________
Please ensure you mark your thread as Solved once it is. Click here to see how
If this post helps, please don't forget to say thanks by clicking the star icon in the bottom left-hand corner of my post
Hi,
Many thanks Robert.
Unfortunately it's debugging on the below -
lngLastRow = wsSrcTab.Range("A:AD").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Regards,
Geoff
What does this mean...and then the data being split into different worksheets (ie A B C etc)
Last edited by Sintek; 04-30-2024 at 04:38 AM.
Good Luck...
I don't presume to know what I am doing, however, just like you, I too started somewhere...
One-day, One-problem at a time!!!
If you feel I have helped, please click on the [★ Add Reputation] to left of post window...
Also....Add a comment if you like!!!!
And remember...Mark Thread as Solved...
Excel Forum Rocks!!!
gallen6945
Try the attached.
Please Login or Register to view this content.
Last edited by jindon; 04-30-2024 at 04:57 AM.
Hi,
Many thanks - unfortunately it is debugging on the below -
Set r = ThisWorkbook.Sheets("sheet3").[d1]
and when I amended it to Sheet1 - it debugs on
.Columns("q").AdvancedFilter 2, , r, Unique:=True
Is that happening to the workbook I attached?
Another Option...
Please Login or Register to view this content.
I'd say it's because there's no data on the sheet you've assigned to the wsSrcTab variable (I used Sheet1 as an example). Make sure you set the sheet with the data in it to the wsSrcTab variable and try again. It worked for me.Many thanks Robert.
Unfortunately it's debugging on the below -
lngLastRow = wsSrcTab.Range("A:AD").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Perhab
Please Login or Register to view this content.
Last edited by daboho; 04-30-2024 at 07:19 AM.
Thank you - apologies but debugged here
.Sort .Columns(17), xlAscending, , , , , , xlYes
Hi, yes it worked on the file you sent but when I used a drive on my company network and the correct raw data - it didn't work - is there a way of doing this without the Pivot Table in Sheet 3 - this was included as a guide as to how many tabs workbooks and worksheets should have been created
OK, then try this one.
Please Login or Register to view this content.
Debugs here now
.Columns("q").AdvancedFilter 2, , r, Unique:=True
Not with the sample file...Seems all the above code which should work errors for you...Originally Posted by gallen6945
I am guessing that the file you are testing the code with is NOT the same setup as these sample files we are making use of...
My code does just that...is there a way of doing this without the Pivot Table in Sheet 3
So...Help us, help you....Have you run the code in the file of post 8
Are you sure?
It is working, so if it is not working at your end, I need to see your workbook.
Yep...Post 8 code works with file in Post 16 too...
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks