i have a need to move one col of data to be the "first col" on the sheet. But its really slow........is there a faster way to do this..........here is the code.
Note: I have some "msgbox" code in the code below so i can see how long things take.
Please Login or Register to view this content.
I suspect that all those functions that you are calling.
BTW, if alphacol changes 1 to "A", 2 to "B" etc.
the expression
Columns(alphacol(Study_Col_number) ":" & alphacol(Study_Col_number))
could be replaced with
Columns(Study_Col_number)
Similarly Range(alphacol(Study_Col_number) & "1") could be replaced by
Cells(1, Study_Col_number)
The biggest slower downer that I see is that you a cutting and inserting a whole column, including a lot of empty cells.
Perhaps
Please Login or Register to view this content.
_
...How to Cross-post politely...
..Wrap code by selecting the code and clicking the # or read this. Thank you.
This is why i love this site! Thanks for the other information!!!!!!!!!!
What would you recommend as far as cutting and copying.......i can determine a specific range of cells and cut-n-paste that if you think it would help.
If you look at the code, the range being copied/inserted is restricted to the first last_row_in_study rows by the .Resize.
That's what I recomend.
Alternatly,you might delete all the columns to the left of the Study_Col_number, unless you need to save the data in those columns
Please Login or Register to view this content.
I tried your code .......sorry for not getting back to you sooner......been busy today.
Nice code. Much faster. I did have one question about the resize function........how does it work?
Help explains that aRange.Resize(rCount, cCount) is the rCount rows by cCount column range that has the same upper left cell as aRange.
If either of the arguments is omitted, the resulting range has the same number of rows or columns as aRange.
Thanks for the info. Still i have a few more questions regarding "resize". I hope you dont mind.
Lets say you have a range
temprange which is equal to A1:C5
temprange.resize(1,3)
this will increase your original range by 1 row and 3 cols.............
is this right?
so for this code
Please Login or Register to view this content.
can you explain this......not sure i understand it really but let me try.
So for the cut: Your focusing on the "study_col_number" and your resizing that col by increasing the rows by "last_row_in_study_col" and number of cols increasing by 1............see this does not make sense .....i must be thinking about this wrong.
can you help?
temprange will be the 1 row X 3 column range, whose UL cell is A1, that is A1:C1.Lets say you have a range , temprange, which is equal to A1:C5
temprange.resize(1,3)
If Study_Col_number is 5 and last_row_in_study_col is 120
cuts the range myWorksheet!E1:E120Please Login or Register to view this content.
is redundant, it is same asPlease Login or Register to view this content.
Which inserts that into A1:A120Please Login or Register to view this content.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks