jim may
Well-known Member
- Joined
- Jul 4, 2004
- Messages
- 7,486
I've set up a Sheet as follows: In a Standard Module I've created 9 Macros. Here's a sample of My Macro, say only Cat4:
I want to be able to Double-Click on Cell D7 (which includes the text Cat4) and With my Double-Click event below run it
My Single Event macro is currently:
But I'm Getting a RT 1004 at line 5: Run MyMacro
Can this be "Repaired" so as to work?
TIA,
Jim
Excel 2010
<tbody>
</tbody>
Code:
Sub Cat4()
ActiveSheet.ListObjects("Table1").ListColumns(3).Range.Select
End Sub
I want to be able to Double-Click on Cell D7 (which includes the text Cat4) and With my Double-Click event below run it
My Single Event macro is currently:
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MyMacro As String
Cancel = True
MyMacro = Target.Value
Run MyMacro
End Sub
But I'm Getting a RT 1004 at line 5: Run MyMacro
Can this be "Repaired" so as to work?
TIA,
Jim
Excel 2010
A | B | C | D | E | F | G | H | I | J | K | |
---|---|---|---|---|---|---|---|---|---|---|---|
1 | Selecting Areas Of A Table With VBA | ||||||||||
2 | |||||||||||
3 | # | Select | VBA Coding | MacroName | |||||||
4 | 1 | Entire Table | ActiveSheet.ListObjects("Table1").Range.Select | Cat1 | |||||||
5 | 2 | Table Header Row | ActiveSheet.ListObjects("Table1").HeaderRowRange.Select | Cat2 | |||||||
6 | 3 | Table Data | ActiveSheet.ListObjects("Table1").DataBodyRange.Select | Cat3 | |||||||
7 | 4 | Third Column | ActiveSheet.ListObjects("Table1").ListColumns(3).Range.Select | Cat4 | |||||||
8 | 5 | Third Column (Data Only) | ActiveSheet.ListObjects("Table1").ListColumns(3).DataBodyRange.Select | Cat5 | |||||||
9 | 6 | Select Row 4 of Table Data | ActiveSheet.ListObjects("Table1").ListRows(4).Range.Select | Cat6 | |||||||
10 | 7 | Select 3rd Heading | ActiveSheet.ListObjects("Table1").HeaderRowRange(3).Select | Cat7 | |||||||
11 | 8 | Select Data point in Row 3, Column 2 | ActiveSheet.ListObjects("Table1").DataBodyRange(3, 2).Select | Cat8 | |||||||
12 | 9 | Subtotals | ActiveSheet.ListObjects("Table1").TotalsRowRange.Select | Cat9 | Table1: (below) | ||||||
13 | |||||||||||
14 | FName | LName | Address | City | State | Zip | Bdate | ||||
15 | Jim | May | Avenham | Roanoke | VA | 24014 | 11/27/1944 | ||||
16 | Bruce | Cody | SandleRidge | Roanoke | VA | 24018 | 7/15/1954 | ||||
17 | Bud | Vaughn | Rt 460 | Roanoke | VA | 24153 | 11/10/1945 | ||||
18 | Jack | Causey | Allendale | Statesville | NC | 28147 | 5/23/1934 | ||||
19 | Jerry | White | Poplar Spr | Meridian | MS | 39301 | 5/14/1945 | ||||
20 |
<tbody>
</tbody>
Sheet1