Border formatting row of cells

[L. Howard]

Hi Howard,



Am Sun, 26 Jan 2014 12:44:43 +0100 schrieb Claus Busch:









change the lower part of the code (the part above) to:



'Medium border around part of ranges

With Sheets("BLANK")

Select Case Left(.Range("Y1"), 4)

Case "Desk"

i = 1

j = 14

Case "Skil", "Dele"

i = 16

j = 2

Case "Inte"

i = 19

j = 1

Case "Tele"

i = 21

j = 1

Case "Out "

i = 23

j = 2

End Select

With .Range(.Range("X1"))

.Cells(i, 1).Resize(j, .Columns.Count).BorderAround _

ColorIndex:=xlAutomatic, Weight:=xlMedium

End With

End With





Regards

Claus B.

--

With all the other outstanding features you have presented to this sheet, that got lost on me. I was pondering the loss of the medium line at the bottom of the desk area due to the expanded overall area.

Then KaPow! You offer up a solution to not only solve that but the others also little ranges also.

You are a thinker and a doer!

Appreciate it.

Howard

 

[L. Howard]

Hi Claus,

I submitted the finished product to Samantha and here is her response, and mine to her.

Howard


Howard, you are a GENUIS!

Thank you so much! This is just what is needed... I'm really so grateful for this and thank you for your time and effort!

I really thought it might be impossible but you clearly know your stuff!!

Thank you again!

Samantha


Hi Samantha,

Glad it works for you, you may see something you need to tweak as you use it more.

The code is written largely by a true genius named Claus who is a dominate contributor along with a few others in the MS Public Excel forums.

I will take full credit for being the messenger here.

You can do this to clean up the workbook.

In Module 1 find the code that is titled as this:

Sub ReFormTheRowxxxx()
'/ by Claus

and delete it. It does nothing now and was an earlier version which has been replaced with the code headed as this:

'/ **** This Code Is In Use ****\'
'/ Assigned to the button "Reform"

Sub DayFormater()

Regards,
Howard

 

[Claus Busch]

Hi Howard,

Am Mon, 27 Jan 2014 09:55:33 -0800 (PST) schrieb L. Howard:

I submitted the finished product to Samantha and here is her response, and mine to her.

thank you for this feedback.
I am always glad if a client is fully satisfied.
It seems like we are working good together ;-)


Regards
Claus B.