Select or deselect offset entire column double clicking on cell

[motilulla]

Hello,</SPAN></SPAN>

I want a code that can select or deselect offset entire column double clicking on cell.</SPAN></SPAN>
For example if I double click on any cell in the column "L", I want entire column "C" could be selected. If I redo double click then entire column deselected</SPAN></SPAN>
For example if I double click on any cell in the column "N", I want entire column "D" could be selected. If I redo double click then entire column deselected</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
1
2
3
4
5			n1	n2	n3	n4	n5	n6				R1		R2		R3		R4		R5		R6
6			0	1	1	1	2	1				0		1		1		1		-1		1
7			0	0	3	2	0	0				0		0		0		0		0		0
8			0	1	4	3	2	1				-3		1		1		3		-3		1
9			2	2	5	0	4	2				-4		2		2		2		-4		2
10			3	0	6	0	5	3				-3		1		3		1		-3		3
11			0	2	0	0	7	0				-4		0		2		0		-4		2
12			0	3	1	2	8	1				-5		1		3		-1		-3		3
13			1	0	0	4	9	0				-4		0		2		-2		-2		2
14			2	1	1	6	0	0				-3		1		3		-3		-3		1
15			3	0	0	7	1	1				-2		0		2		-2		-2		2
16			0	1	0	9	2	3				-3		1		1		-3		-1		1
17			1	2	0	10	4	4				-2		2		0		-2		-2		2
18			2	3	1	11	5	0				-1		3		1		-1		-1		1
19			0	4	2	0	0	1				-2		4		2		-2		-2		2
20			1	5	3	1	2	2				-1		5		3		-1		-3		3
21			2	6	4	3	4	3				0		6		4		-2		-4		4
22			4	7	0	4	5	0				-1		7		3		-1		-3		3
23			5	8	1	5	6	2				0		8		4		0		-2		2
24			0	9	2	7	7	3				-1		9		5		-1		-1		3
25			1	10	3	8	0	4				0		10		6		0		-2		4
26			0	11	4	9	1	6				-1		11		7		1		-1		3
27			1	13	0	0	0	0				0		10		6		0		-2		2
28			2	14	1	2	1	2				1		11		7		-1		-1		1
29			3	15	2	4	3	3				2		12		8		-2		-2		2
30			4	16	3	0	4	4				3		13		9		-3		-1		3
31			5	17	4	0	5	5				4		14		10		-4		0		4
32			6	0	5	1	7	6				5		13		11		-3		-1		5
33			8	2	6	2	0	7				4		12		12		-2		-2		6
34			9	0	7	4	1	8				5		11		13		-3		-1		7
35			11	1	8	5	3	0				4		12		14		-2		-2		6
36			12	0	0	7	4	1				5		11		13		-3		-1		7
Sheet1

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

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

 

[motilulla]

Glad we could help & thanks for the feedback

Hello Fluff, please could you help me to add one modification that on double clicks code select 2 columns. </SPAN></SPAN>

For example if double click any cell in column "L" code selecting for now entire column "C", does it is possible that code select column "C" and the column "L" as well. It did not come in my mind before Fluff </SPAN></SPAN>


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

 

[Fluff]

How about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column < 12 Or Target.Column > 22 Then Exit Sub
Dim j As Long
Dim k As Long
j = Target.Column
k = Int((j - 7) / 2) + (j - 7) Mod 2
Union(Columns(k), Columns(Target.Column)).Select
Cancel = True
End Sub

 

[motilulla]

How about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column < 12 Or Target.Column > 22 Then Exit Sub
Dim j As Long
Dim k As Long
j = Target.Column
k = Int((j - 7) / 2) + (j - 7) Mod 2
Union(Columns(k), Columns(Target.Column)).Select
Cancel = True
End Sub

Fluff, so kind of you for prompt modifying of the code as per new request. It is resulting fine! This helps me to a lot because highlighting both I can see which column I am comparing against which column</SPAN></SPAN>

I appreciate a lot your help

Have a nice weekend </SPAN></SPAN>

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

 

[Fluff]

You're welcome & thanks for the feedback