Im having a problem with a some VBA for borders in that I am getting an error. The error has only occured since putting in the code for the borders. The error is:
Run-time error '1004':
Application-defined or object-defined error
My code is:
Please Login or Register to view this content.
Please post a sample workbook.
Regards, TMS
Trevor Shuttleworth - Retired Excel/VBA Consultant
I dream of a better world where chickens can cross the road without having their motives questioned
'Being unapologetic means never having to say you're sorry' John Cooper Clarke
File Attached. Please be gentle with me!
Hi try this
Please Login or Register to view this content.
Regards
tom1977
If You are satisfied with my solution click the small star icon on the left to say thanks.
Tom has provided a solution.
The reason for the fail is that you cannot select a cell or range when you have not selected the worksheet. Using With ... End With overcomes this.
You could, if you wish, reduce the amount of code using:
Please Login or Register to view this content.
As, most of the time, you'll be setting the same style, colour, tint and weight, this is a better and simpler option. If you want to apply a different parameter to one of the borders, you could do that separately after setting all the borders.
Regards, TMS
I note that Tom's solution still has "Selection." in it but the "Select" has, rightly, been removed.
You need to qualify all of the properties or use With ... End With as described in the previous post.
Regards, TMS
OK, thank you for all the help guys. I ahve applied the code and it works really well. I also have some code that clears the cells so ned to clear any line styles as well. My code is :
Please Login or Register to view this content.
Last edited by dadrew; 09-06-2012 at 11:27 AM.
New question ... should be a new thread.
And you need to add code tags or suffer the wrath of the moderators.
Regards
New thread started, I did put it in code tags but made a typo, hence the reason it wasn't in them OOOPS!Originally Posted by TMShucks
If you are satisfied with the solution(s) provided, please mark your thread as Solved.
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.
If I have helped, Don't forget to add to my reputation (click on the star below the post)
Don't forget to mark threads as "Solved" (Thread Tools->Mark thread as Solved)
Use code tags when posting your VBA code: [code] Your code here [/code]
You're welcome. Thanks for the rep. And thanks for sorting the tags, easy thing to get wrong.
Regards, TMS
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks