Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Ranges:Target in Worksheet_SelectionChange(ByVal Target As Range)
Hi TWIMC,
What I'm trying to do is to call a sub procedure to run some code when a user selects two or more cells that are not directly next to each other e.g. perform sub procedure when the Target range address is like $B$34,$B$47 or like $B$34:$B$47,$B$68, $B$34:$B$47,$B$68:$B$74 but don't perform the sub procedure when the Target address is like $B$34:$B$42. Now I know I could use some code like Instr(1,Targret,",") and pull each section out one by one, but that to me that's a bit cheesy, hence is there a way to renumerate each range within the Target ranges to see if it is made up of one or two ranges and if so retrieve each internal range. Any help/advice much appriciated. TIA KM |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Ranges:Target in Worksheet_SelectionChange(ByVal Target As Range)
Try this test:
Target.Areas.Count 1 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Ranges:Target in Worksheet_SelectionChange(ByVal Target As Range)
Kevin,
Use this as the top of your code: If Target.Areas.Count = 1 Then Exit Sub HTH, Bernie MS Excel MVP "Kevin McCartney" wrote in message ... Hi TWIMC, What I'm trying to do is to call a sub procedure to run some code when a user selects two or more cells that are not directly next to each other e.g. perform sub procedure when the Target range address is like $B$34,$B$47 or like $B$34:$B$47,$B$68, $B$34:$B$47,$B$68:$B$74 but don't perform the sub procedure when the Target address is like $B$34:$B$42. Now I know I could use some code like Instr(1,Targret,",") and pull each section out one by one, but that to me that's a bit cheesy, hence is there a way to renumerate each range within the Target ranges to see if it is made up of one or two ranges and if so retrieve each internal range. Any help/advice much appriciated. TIA KM |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Ranges:Target in Worksheet_SelectionChange(ByVal Target As Range)
Cheers, to the both of you.
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
ByVal Target As Range | Excel Programming | |||
Private Sub Worksheet_SelectionChange(ByVal Target As Range) | Excel Programming | |||
How find if target is object in Worksheet_Change (ByVal Target As.. ?) | Excel Programming | |||
what does (ByVal Target As Range) mean | Excel Programming | |||
Many Sub Worksheet_Change(ByVal Target As Range) In One Worksheet | Excel Programming |