Change Cell border Style with a Macro

[zealot]

Hello!
Need your help friends!
I wonder if you can help me create macro which will automatically change the colour and the width of all of the cell borders which have the content on a worksheet?
I found this example but it has to be shown all cells with formatting:
https://stackoverflow.com/questions/...ell-in-a-range
Thank you!
Dave

[Winon]

Hello zealot,

I think it would be better if we can see what your Workbook set up with ranges look like.

Attach a sample workbook. Make sure there is just enough data to demonstrate your need.

Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate.

Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

Regards.

[Logit]

.
See if this is what you are seeking ...

Paste this into a Routine Module:

Please Login or Register  to view this content.

[zealot]

superb! - thank you so much for this beautiful macro Logit!
Do you think there can be a way to only change the upper and lower borders of the cells with the content?

[Winon]

Hello zealot,

Playing with Logit's initial Code, please try the Code below in the attached Sample Sheet.

Please Login or Register  to view this content.

Regards.

[Logit]

.
Thanks Winon !

[zealot]

Superb! works just as needed!
I have a small question if I can specify the color instead of the red by using a HEX number?
Thanking for your fabulous help!

[zealot]

I know you can make VBA wonders here - can you please help me with one more beauty:

Can you help me create a VBA script which will delete all upper and lower borders from all cells which I have selected (left and right borders will stay the same)?

[Winon]

@Logit,

You are not welcome. Why should I always clean up your mess?

It is so nice jerking you chain my friend, you are most welcome.

Kind regards.

[Logit]

.
They are not messes.

They are referred to as "Winon Opportunities"

If no one left you something easy to do, you would have no posts at all.

Cheers.

ps: Why have you not responded to post #8 ? He is waiting.

[Winon]

Hi zealot,

Thank you for the feedback, you owe me a Coke and a Bun!

...specify the color instead of the red, and...VBA script which will delete all upper and lower borders from all cells which I have selected (left and right borders will stay the same)?

Here is the Code;

Please Login or Register  to view this content.

Please try the attached sample Workbook.

Hope it helps,

Kind Regrads

[Winon]

@Logit,

Your blatant cheek and arrogance, just earned you some Rep Points!

Thanks for your good humor!

Now leave me be.

[Winon]

@Logit,

ps: Why have you not responded to post #8 ? He is waiting.

Please study Post# 11, and at least try to learn something from it, if you can.

cheers.

[Logit]

.
Yup !

I learned you can used Emoticons.

Congrats.

[Winon]

You amaze me with that remaining fragment of a brain cell you apparently still happen to have!

[Winon]

Hey Logit,

Jokes aside. You should stay in contact a bit more. A little bit more. More. A lot more.

Nice having you as a friend!

[zealot]

hi zealot,

thank you for the feedback, you owe me a coke and a bun!



here is the code;

Please Login or Register  to view this content.

please try the attached sample workbook.

hope it helps,

kind regrads

fantastic - works exactly as needed!!!! I owe you 35 cokes for this!

[Winon]

You are welcome zealot, glad we could help!

O.K., don't bother with the cokes, just click on the star icon in the lower left part of the contributor's post and add Reputation.

Cleaning up when you're done. If you are satisfied with the help you have received, then Please do Mark your thread [SOLVED] .

Please select Thread Tools from the menu link above and mark this thread as SOLVED.

Thanks.