> Kurt wrote:
> > I am trying to duplicate the sort feature used in this tutorial:
>
> >http://www.contextures.com/xlSort02.html
>
> > The description of the first part of the code suggests that the code
> > creates the invisible rectangles, but I couldn't get it to do this.
>
> What did you do? What kind of error message did you get. You'll have
> to be a bit more specific about your problem (which version of Excel,
> for example).
I'm using Excel 2003 and when I ran the code nothing happened and I
got no error message. The problem is that the rectangles weren't
created automatically as the code instructions say would happen: "Run
the following code once, to create the rectangles at the top of the
table."
> > (I > > had the create the rectangles manually, ahead of time.) You can
> > demonstrate this using the sample Excel sheet provided
> > (SortClick.zip). If you delete any of the hidden rectangles, save,
> > close and then open the file, the code will not recreate the rectangle
> > and the affected columns will not sort.
>
> That's right, you'll have to re-create the rectangles manually (or
> possibly put a call to the generator function in the Workbook_Open
> handler).
Actually, I was just able to run the code in a new worksheet with some
fake data (without manually creating the rectangles) and it worked -
it created the rectangles and the columns were sortable. So it's
something in my sheet, and I found the problem.
My column headings start on row 6, column B. Column A is empty. I had
changed the values for TopRow, iCol and strCol, but forgot to change
the values for the Range referenced in both routines:
###
Sub SetupOneTime()
...
With curWks
Set myRng = .Range("a1").Resize(1, iCol) ' I changed this from
a1 to b6
...
Sub SortTable()
...
Set myTable = .Range("A" & TopRow & ":A" _ ' I changed the As to Bs
& LastRow).Resize(, iCol)
###
It's working now!
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to [email protected]
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 7000 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
