Altered column highlight on double click

[motilulla]

Hello,</SPAN></SPAN>

Highlights different column on double clicking. </SPAN></SPAN>

For example double clicking (highlight multicolumn) on cell N12-highlihght 2 columns C12:D42, on cell O12-highlihght 4 columns C12:F42, on cell P12-highlihght 6 columns C12:H42 </SPAN></SPAN>

For example double clicking (highlight single column) on cell U12-highlihght 1 columns C12:C42, on cell AB12-highlihght 1 columns D12:D42, on cell AF12-highlihght 6 columns E12:E42</SPAN></SPAN>

Data looks as shown below</SPAN></SPAN>

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF
4
5			n1	n2	n3	n4	n5	n6						n1,2	n3,4	n5,6					n1							n2				n3
6			4	8	7	2	5	9						4 | 8	4 | 8 | 7 | 2	4 | 8 | 7 | 2 | 5 | 9					4							8				7
7			9	10	3	3	8	2						9 | 10	9 | 10 | 3 | 3	9 | 10 | 3 | 3 | 8 | 2					9							10				3
8			6	0	0	2	0	0						6 | 0	6 | 0 | 0 | 2	6 | 0 | 0 | 2 | 0 | 0					6							0				0
9			6	6	3	1	5	5						6 | 6	6 | 6 | 3 | 1	6 | 6 | 3 | 1 | 5 | 5					6							6				3
10			5	6	6	4	7	1						5 | 6	5 | 6 | 6 | 4	5 | 6 | 6 | 4 | 7 | 1					5							6				6
11			8	6	1	0	2	7						8 | 6	8 | 6 | 1 | 0	8 | 6 | 1 | 0 | 2 | 7					8							6				1
12			7	3	6	4	1	7						7 | 3	7 | 3 | 6 | 4	7 | 3 | 6 | 4 | 1 | 7					7							3				6
13			2	0	6	5	10	7						2 | 0	2 | 0 | 6 | 5	2 | 0 | 6 | 5 | 10 | 7					2							0				6
14			2	2	0	9	7	6						2 | 2	2 | 2 | 0 | 9	2 | 2 | 0 | 9 | 7 | 6					2							2				0
15			3	2	4	1	6	0						3 | 2	3 | 2 | 4 | 1	3 | 2 | 4 | 1 | 6 | 0					3							2				4
16			2	1	4	6	1	5						2 | 1	2 | 1 | 4 | 6	2 | 1 | 4 | 6 | 1 | 5					2							1				4
17			0	1	3	4	7	6						0 | 1	0 | 1 | 3 | 4	0 | 1 | 3 | 4 | 7 | 6					0							1				3
18			8	4	1	4	1	2						8 | 4	8 | 4 | 1 | 4	8 | 4 | 1 | 4 | 1 | 2					8							4				1
19			1	8	7	2	4	6						1 | 8	1 | 8 | 7 | 2	1 | 8 | 7 | 2 | 4 | 6					1							8				7
20			9	7	5	1	9	7						9 | 7	9 | 7 | 5 | 1	9 | 7 | 5 | 1 | 9 | 7					9							7				5
21			7	4	8	5	7	8						7 | 4	7 | 4 | 8 | 5	7 | 4 | 8 | 5 | 7 | 8					7							4				8
22			5	8	4	1	10	2						5 | 8	5 | 8 | 4 | 1	5 | 8 | 4 | 1 | 10 | 2					5							8				4
23			10	2	3	9	7	4						10 | 2	10 | 2 | 3 | 9	10 | 2 | 3 | 9 | 7 | 4					10							2				3
24			5	1	4	4	9	8						5 | 1	5 | 1 | 4 | 4	5 | 1 | 4 | 4 | 9 | 8					5							1				4
25			2	8	1	3	1	1						2 | 8	2 | 8 | 1 | 3	2 | 8 | 1 | 3 | 1 | 1					2							8				1
26			3	7	4	4	9	1						3 | 7	3 | 7 | 4 | 4	3 | 7 | 4 | 4 | 9 | 1					3							7				4
27			8	6	3	3	9	8						8 | 6	8 | 6 | 3 | 3	8 | 6 | 3 | 3 | 9 | 8					8							6				3
28			7	7	1	8	3	7						7 | 7	7 | 7 | 1 | 8	7 | 7 | 1 | 8 | 3 | 7					7							7				1
29			3	4	8	3	4	7						3 | 4	3 | 4 | 8 | 3	3 | 4 | 8 | 3 | 4 | 7					3							4				8
30			9	9	1	4	6	9						9 | 9	9 | 9 | 1 | 4	9 | 9 | 1 | 4 | 6 | 9					9							9				1
31			4	1	3	1	2	5						4 | 1	4 | 1 | 3 | 1	4 | 1 | 3 | 1 | 2 | 5					4							1				3
32			3	9	5	7	7	9						3 | 9	3 | 9 | 5 | 7	3 | 9 | 5 | 7 | 7 | 9					3							9				5
33			9	3	4	6	0	2						9 | 3	9 | 3 | 4 | 6	9 | 3 | 4 | 6 | 0 | 2					9							3				4
34			0	7	5	5	7	7						0 | 7	0 | 7 | 5 | 5	0 | 7 | 5 | 5 | 7 | 7					0							7				5
35			9	8	9	6	1	7						9 | 8	9 | 8 | 9 | 6	9 | 8 | 9 | 6 | 1 | 7					9							8				9
36			8	1	4	8	9	5						8 | 1	8 | 1 | 4 | 8	8 | 1 | 4 | 8 | 9 | 5					8							1				4
37			6	8	7	6	9	0						6 | 8	6 | 8 | 7 | 6	6 | 8 | 7 | 6 | 9 | 0					6							8				7
38			5	8	10	7	2	3						5 | 8	5 | 8 | 10 | 7	5 | 8 | 10 | 7 | 2 | 3					5							8				10
39			5	4	6	6	2	7						5 | 4	5 | 4 | 6 | 6	5 | 4 | 6 | 6 | 2 | 7					5							4				6
40			2	3	4	6	4	2						2 | 3	2 | 3 | 4 | 6	2 | 3 | 4 | 6 | 4 | 2					2							3				4
41			4	1	1	1	7	1						4 | 1	4 | 1 | 1 | 1	4 | 1 | 1 | 1 | 7 | 1					4							1				1
42			9	4	6	7	7	5						9 | 4	9 | 4 | 6 | 7	9 | 4 | 6 | 7 | 7 | 5					9							4				6
Sheet2

Thanks In Advance </SPAN></SPAN>
Using version 2000</SPAN></SPAN>

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

 

[motilulla]

Moti
Fluff raised the legitimate point of not being able to EDIT other cells in the Sheet, Personally I use the F2 Key for ALL Edit of Cells (I never double-click to enter the Edit Mode), but anyway...
To Allow this -- all I did was to ' comment out the two (2) lines:

'Cancel = True
'MsgBox "Not a Qualifying Column to Click"

Seems to work...

HTH Jim

jim, I did tried your code commenting out the two (2) lines: as you said but it is selecting column top to last data row note: I want to highlight from the same row to last data row as Fulff, code is working

Ok now I have another problem which I observe just now let say when I double click on cell N18 I want to be highlighted columns C18 & D till last row is it possible to be highlighted column N18 as well till last row? </SPAN></SPAN>

Thank you </SPAN></SPAN>

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

 

[Fluff]

use

      End Select
      Union(Intersect(Range(Cols), Rows(Target.Row & ":" & UsdRws)), Range(Target, Cells(UsdRws, Target.Column))).Select
   End If

 

[motilulla]

use

      End Select
      Union(Intersect(Range(Cols), Rows(Target.Row & ":" & UsdRws)), Range(Target, Cells(UsdRws, Target.Column))).Select
   End If

Fluff, ray: I am very gratefully to you for modifying 3rd time and providing a complete solution of my request. Worked like a charm</SPAN></SPAN>

Thank you very much </SPAN></SPAN>

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

 

[Fluff]

You're welcome & thanks for the feedback