This macro works except the border color is black (or some other very dark color) instead of the color palette (Orange) Accent6, Darker 50%. How do I get the desired Accent/Darker color?
Please Login or Register to view this content.
This macro works except the border color is black (or some other very dark color) instead of the color palette (Orange) Accent6, Darker 50%. How do I get the desired Accent/Darker color?
Please Login or Register to view this content.
Last edited by Phil Hageman; 03-16-2014 at 07:30 AM. Reason: Rule 3 requirement
Hi, Phil Hageman,
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.
Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.
Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here
(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)
Ciao,
Holger
Use Code-Tags for showing your code: [code] Your Code here [/code]
Please mark your question Solved if there has been offered a solution that works fine for you
See code update
Hi, Phil Hageman,
I donīt know if it will work on a MAC but it does on a Win system:
Ciao,Please Login or Register to view this content.
Holger
HoHoBe,
Thanks for your help. Had to make one change: With Selection.Borders(xlEdgeBottom) Added the word Selection
This works when a single cell is selected, Is there a way for it to work for any number of ranges selected - where all cells would be formatted?
And can you tell me the number to use for Accent6, Lighter 40%? Is there a palette somewhere where I can get these numbers?
Regards,
Phil
Last edited by Phil Hageman; 03-16-2014 at 08:43 AM. Reason: Changed Darker 50% to Lighter 40%
Hi, Phil Hageman,
no need for the change you made according to what I know about With-Statements.
The code should work on any number of cells selected but only supply the underlining to the bottom row of the selection (at least that was what it did when I checked it). Caveat could be if you choose more than one area which do not intersect. The code should only work on the first area of the selection, you would need to loop through the Selection.Areas.
Sorry, I donīt know about tany table holding the values.
should work for the alteration.Please Login or Register to view this content.
Ciao,
Holger
This is strange. If I select a single cell it works okay, but if I select a range in a column, it blanks the bottom border.
How do the numbers get selected?
Hi, Phil,
Tint And Shade should be any value between 1 (lighter) and -1 (darker), you may use 0.25 instead of 0.249946592608417 as an example.
Ciao,
Holger
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks