Hello,</SPAN></SPAN>
For now using 3 different worksheet functions to select entire C:H columns for 3 different targets cells "1st for L:V", "2nd for AB:AL" and "3rd for AO:AY"</SPAN></SPAN>
Would it be possible use " Worksheet_BeforeDoubleClick" for all targets? </SPAN></SPAN>
Data looks as shown below</SPAN></SPAN>
Thanks In Advance </SPAN></SPAN>
Using version 2000</SPAN></SPAN>
Regards,</SPAN></SPAN>
Moti</SPAN></SPAN>
For now using 3 different worksheet functions to select entire C:H columns for 3 different targets cells "1st for L:V", "2nd for AB:AL" and "3rd for AO:AY"</SPAN></SPAN>
Would it be possible use " Worksheet_BeforeDoubleClick" for all targets? </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 | AG | AH | AI | AJ | AK | AL | AM | AN | AO | AP | AQ | AR | AS | AT | AU | AV | AW | AX | AY | |||
1 | |||||||||||||||||||||||||||||||||||||||||||||||||||||
2 | |||||||||||||||||||||||||||||||||||||||||||||||||||||
3 | |||||||||||||||||||||||||||||||||||||||||||||||||||||
4 | |||||||||||||||||||||||||||||||||||||||||||||||||||||
5 | n1 | n2 | n3 | n4 | n5 | n6 | R1 | R2 | R3 | R4 | R5 | R6 | R1 | R2 | R3 | R4 | R5 | R6 | R1 | R2 | R3 | R4 | R5 | R6 | |||||||||||||||||||||||||||||
6 | 0 | 1 | 1 | 1 | 2 | 1 | 0 | 1 | 1 | 1 | -1 | 1 | 0 | 1 | 1 | 1 | -1 | 1 | 0 | 1 | 1 | 1 | -1 | 1 | |||||||||||||||||||||||||||||
7 | 0 | 0 | 3 | 2 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | |||||||||||||||||||||||||||||
8 | 0 | 1 | 4 | 3 | 2 | 1 | -3 | 1 | 1 | 3 | -3 | 1 | -3 | 1 | 1 | 3 | -3 | 1 | -3 | 1 | 1 | 3 | -3 | 1 | |||||||||||||||||||||||||||||
9 | 2 | 2 | 5 | 0 | 4 | 2 | -4 | 2 | 2 | 2 | -4 | 2 | -4 | 2 | 2 | 2 | -4 | 2 | -4 | 2 | 2 | 2 | -4 | 2 | |||||||||||||||||||||||||||||
10 | 3 | 0 | 6 | 0 | 5 | 3 | -3 | 1 | 3 | 1 | -3 | 3 | -3 | 1 | 3 | 1 | -3 | 3 | -3 | 1 | 3 | 1 | -3 | 3 | |||||||||||||||||||||||||||||
11 | 0 | 2 | 0 | 0 | 7 | 0 | -4 | 0 | 2 | 0 | -4 | 2 | -4 | 0 | 2 | 0 | -4 | 2 | -4 | 0 | 2 | 0 | -4 | 2 | |||||||||||||||||||||||||||||
12 | 0 | 3 | 1 | 2 | 8 | 1 | -5 | 1 | 3 | -1 | -3 | 3 | -5 | 1 | 3 | -1 | -3 | 3 | -5 | 1 | 3 | -1 | -3 | 3 | |||||||||||||||||||||||||||||
13 | 1 | 0 | 0 | 4 | 9 | 0 | -4 | 0 | 2 | -2 | -2 | 2 | -4 | 0 | 2 | -2 | -2 | 2 | -4 | 0 | 2 | -2 | -2 | 2 | |||||||||||||||||||||||||||||
14 | 2 | 1 | 1 | 6 | 0 | 0 | -3 | 1 | 3 | -3 | -3 | 1 | -3 | 1 | 3 | -3 | -3 | 1 | -3 | 1 | 3 | -3 | -3 | 1 | |||||||||||||||||||||||||||||
15 | 3 | 0 | 0 | 7 | 1 | 1 | -2 | 0 | 2 | -2 | -2 | 2 | -2 | 0 | 2 | -2 | -2 | 2 | -2 | 0 | 2 | -2 | -2 | 2 | |||||||||||||||||||||||||||||
16 | 0 | 1 | 0 | 9 | 2 | 3 | -3 | 1 | 1 | -3 | -1 | 1 | -3 | 1 | 1 | -3 | -1 | 1 | -3 | 1 | 1 | -3 | -1 | 1 | |||||||||||||||||||||||||||||
17 | 1 | 2 | 0 | 10 | 4 | 4 | -2 | 2 | 0 | -2 | -2 | 2 | -2 | 2 | 0 | -2 | -2 | 2 | -2 | 2 | 0 | -2 | -2 | 2 | |||||||||||||||||||||||||||||
18 | 2 | 3 | 1 | 11 | 5 | 0 | -1 | 3 | 1 | -1 | -1 | 1 | -1 | 3 | 1 | -1 | -1 | 1 | -1 | 3 | 1 | -1 | -1 | 1 | |||||||||||||||||||||||||||||
19 | 0 | 4 | 2 | 0 | 0 | 1 | -2 | 4 | 2 | -2 | -2 | 2 | -2 | 4 | 2 | -2 | -2 | 2 | -2 | 4 | 2 | -2 | -2 | 2 | |||||||||||||||||||||||||||||
20 | 1 | 5 | 3 | 1 | 2 | 2 | -1 | 5 | 3 | -1 | -3 | 3 | -1 | 5 | 3 | -1 | -3 | 3 | -1 | 5 | 3 | -1 | -3 | 3 | |||||||||||||||||||||||||||||
21 | 2 | 6 | 4 | 3 | 4 | 3 | 0 | 6 | 4 | -2 | -4 | 4 | 0 | 6 | 4 | -2 | -4 | 4 | 0 | 6 | 4 | -2 | -4 | 4 | |||||||||||||||||||||||||||||
22 | 4 | 7 | 0 | 4 | 5 | 0 | -1 | 7 | 3 | -1 | -3 | 3 | -1 | 7 | 3 | -1 | -3 | 3 | -1 | 7 | 3 | -1 | -3 | 3 | |||||||||||||||||||||||||||||
23 | 5 | 8 | 1 | 5 | 6 | 2 | 0 | 8 | 4 | 0 | -2 | 2 | 0 | 8 | 4 | 0 | -2 | 2 | 0 | 8 | 4 | 0 | -2 | 2 | |||||||||||||||||||||||||||||
24 | 0 | 9 | 2 | 7 | 7 | 3 | -1 | 9 | 5 | -1 | -1 | 3 | -1 | 9 | 5 | -1 | -1 | 3 | -1 | 9 | 5 | -1 | -1 | 3 | |||||||||||||||||||||||||||||
25 | 1 | 10 | 3 | 8 | 0 | 4 | 0 | 10 | 6 | 0 | -2 | 4 | 0 | 10 | 6 | 0 | -2 | 4 | 0 | 10 | 6 | 0 | -2 | 4 | |||||||||||||||||||||||||||||
26 | 0 | 11 | 4 | 9 | 1 | 6 | -1 | 11 | 7 | 1 | -1 | 3 | -1 | 11 | 7 | 1 | -1 | 3 | -1 | 11 | 7 | 1 | -1 | 3 | |||||||||||||||||||||||||||||
27 | 1 | 13 | 0 | 0 | 0 | 0 | 0 | 10 | 6 | 0 | -2 | 2 | 0 | 10 | 6 | 0 | -2 | 2 | 0 | 10 | 6 | 0 | -2 | 2 | |||||||||||||||||||||||||||||
28 | 2 | 14 | 1 | 2 | 1 | 2 | 1 | 11 | 7 | -1 | -1 | 1 | 1 | 11 | 7 | -1 | -1 | 1 | 1 | 11 | 7 | -1 | -1 | 1 | |||||||||||||||||||||||||||||
29 | 3 | 15 | 2 | 4 | 3 | 3 | 2 | 12 | 8 | -2 | -2 | 2 | 2 | 12 | 8 | -2 | -2 | 2 | 2 | 12 | 8 | -2 | -2 | 2 | |||||||||||||||||||||||||||||
30 | 4 | 16 | 3 | 0 | 4 | 4 | 3 | 13 | 9 | -3 | -1 | 3 | 3 | 13 | 9 | -3 | -1 | 3 | 3 | 13 | 9 | -3 | -1 | 3 | |||||||||||||||||||||||||||||
31 | 5 | 17 | 4 | 0 | 5 | 5 | 4 | 14 | 10 | -4 | 0 | 4 | 4 | 14 | 10 | -4 | 0 | 4 | 4 | 14 | 10 | -4 | 0 | 4 | |||||||||||||||||||||||||||||
32 | 6 | 0 | 5 | 1 | 7 | 6 | 5 | 13 | 11 | -3 | -1 | 5 | 5 | 13 | 11 | -3 | -1 | 5 | 5 | 13 | 11 | -3 | -1 | 5 | |||||||||||||||||||||||||||||
33 | 8 | 2 | 6 | 2 | 0 | 7 | 4 | 12 | 12 | -2 | -2 | 6 | 4 | 12 | 12 | -2 | -2 | 6 | 4 | 12 | 12 | -2 | -2 | 6 | |||||||||||||||||||||||||||||
34 | 9 | 0 | 7 | 4 | 1 | 8 | 5 | 11 | 13 | -3 | -1 | 7 | 5 | 11 | 13 | -3 | -1 | 7 | 5 | 11 | 13 | -3 | -1 | 7 | |||||||||||||||||||||||||||||
35 | 11 | 1 | 8 | 5 | 3 | 0 | 4 | 12 | 14 | -2 | -2 | 6 | 4 | 12 | 14 | -2 | -2 | 6 | 4 | 12 | 14 | -2 | -2 | 6 | |||||||||||||||||||||||||||||
36 | 12 | 0 | 0 | 7 | 4 | 1 | 5 | 11 | 13 | -3 | -1 | 7 | 5 | 11 | 13 | -3 | -1 | 7 | 5 | 11 | 13 | -3 | -1 | 7 | |||||||||||||||||||||||||||||
Sheet2 |
Code:
[COLOR=#ff0000]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
[/COLOR]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
[COLOR=#006400]Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
[/COLOR]If Target.Column < 28 Or Target.Column > 38 Then Exit Sub
Dim j As Long
Dim k As Long
j = Target.Column
k = Int((j - 22) / 2) + (j - 22) Mod 2
Union(Columns(k), Columns(Target.Column)).Select
Cancel = True
End Sub
[COLOR=#0000cd]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[/COLOR]If Target.Column < 41 Or Target.Column > 51 Then Exit Sub
Dim j As Long
Dim k As Long
j = Target.Column
k = Int((j - 36) / 2) + (j - 36) Mod 2
Union(Columns(k), Columns(Target.Column)).Select
Cancel = True
End Sub
Thanks In Advance </SPAN></SPAN>
Using version 2000</SPAN></SPAN>
Regards,</SPAN></SPAN>
Moti</SPAN></SPAN>
Last edited: