Draw thick borders according (in the area) as per list parameters

[motilulla]

Will post again

 

[motilulla]

Will post again

Hello,</SPAN></SPAN>

I got a list in the column M that has a Start row number & in the column N that has an End row number </SPAN></SPAN>

I need to draw thick borders in the area columns C:J as per row numbers are listed in column M:N </SPAN></SPAN>

As I am not able to post only borders so i have filled the colour in the area I need to draw the think borders</SPAN></SPAN>
C6:J15</SPAN></SPAN>
C16:J24</SPAN></SPAN>
C25:J33</SPAN></SPAN>
C34:J44</SPAN></SPAN>
C45:J51 and so on as per list </SPAN></SPAN>

In the following example shown only 5 borders but I need to draw all rows find in the list</SPAN></SPAN>

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P
1
2
3
4
5													Start Row Num	End Row Num
6													6	15
7													16	24
8													25	33
9													34	44
10													45	51
11													52	100
12													101	122
13													123	167
14													168	190
15													191	205
16													206	290
17													291	455
18													456	570
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sheet2

Thank you all</SPAN></SPAN>

Excel 2000</SPAN></SPAN>
Regards,</SPAN></SPAN>
Moti</SPAN></SPAN>

 

[Fluff]

How about

Sub AddBorders()
   Dim Cl As Range
   
   For Each Cl In Range("N6", Range("N" & Rows.Count).End(xlUp))
      Range("C" & Cl).Resize(Cl.Offset(, 1) - Cl + 1, 8).BorderAround , xlMedium
   Next Cl
End Sub

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG16Oct55
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Set[/COLOR] Rng = Range("M6", Range("M" & Rows.Count).End(xlUp))
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    Range("C" & Dn.Value & ":J" & Dn.Offset(, 1).Value).BorderAround Weight:=xlThick
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[Fluff]

Oops, I'm looking at the wrong column, it should be

Sub AddBorders()
   Dim Cl As Range
   
   For Each Cl In Range("M6", Range("M" & Rows.Count).End(xlUp))
      Range("C" & Cl).Resize(Cl.Offset(, 1) - Cl + 1, 8).BorderAround , xlMedium
   Next Cl
End Sub

 

[motilulla]

Oops, I'm looking at the wrong column, it should be

Sub AddBorders()
   Dim Cl As Range
   
   For Each Cl In Range("M6", Range("M" & Rows.Count).End(xlUp))
      Range("C" & Cl).Resize(Cl.Offset(, 1) - Cl + 1, 8).BorderAround , xlMedium
   Next Cl
End Sub

Thank you Fluff, it worked perfect </SPAN></SPAN>

Have a nice day</SPAN></SPAN>

Kind Regards,</SPAN></SPAN>
Moti</SPAN></SPAN>

 

[motilulla]

Try this:-

[COLOR=navy]Sub[/COLOR] MG16Oct55
[COLOR=navy]Dim[/COLOR] Rng [COLOR=navy]As[/COLOR] Range, Dn [COLOR=navy]As[/COLOR] Range
[COLOR=navy]Set[/COLOR] Rng = Range("M6", Range("M" & Rows.Count).End(xlUp))
[COLOR=navy]For[/COLOR] [COLOR=navy]Each[/COLOR] Dn [COLOR=navy]In[/COLOR] Rng
    Range("C" & Dn.Value & ":J" & Dn.Offset(, 1).Value).BorderAround Weight:=xlThick
[COLOR=navy]Next[/COLOR] Dn
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]

Regards Mick

Thank you Mick, it worked as request perfect</SPAN></SPAN>

Have a nice day</SPAN></SPAN>

Kind Regards,</SPAN></SPAN>
Moti</SPAN></SPAN>

 

[Fluff]

Glad we could help & thanks for the feedback

 

[MickG]

You're welcome