active range to run macro
 

Hello,

hi

any cell in between A1:B10 range is active macro will run

active range to run macro
 

hi,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("A1:B10"))
If Not isect Is Nothing Then
MsgBox Target.Address
End If
End Sub


--
isabelle



Le 2012-02-07 12:45, kalpesh a écrit :
Hello,

hi

any cell in between A1:B10 range is active macro will run

active range to run macro
 

kalpesh wrote:

any cell in between A1:B10 range is active macro will run

This is a variation on the question you asked yesterday. Using a variation of
the code I posted there should work:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case ActiveCell.Column
Case 1, 2
If ActiveCell.Row < 11 Then
'your code here
End If
End Select
End Sub

Put that in the worksheet's class and put your code where it says "your code
here".

--
I'm gonna go comatose for a few hours, hallucinate vividly,
and then maybe suffer amnesia about the whole experience.

active range to run macro
 

Auric__ wrote:

kalpesh wrote:

any cell in between A1:B10 range is active macro will run

This is a variation on the question you asked yesterday. Using a
variation of the code I posted there should work:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case ActiveCell.Column
Case 1, 2
If ActiveCell.Row < 11 Then
'your code here
End If
End Select
End Sub

Put that in the worksheet's class and put your code where it says "your
code here".

....or just use isabella's code, which I *think* might be faster and/or
"better" than mine.

--
Her braid felt equally permanent, as if her soul was woven in with it.

active range to run macro
 

Auric__ formulated on Tuesday :
Auric__ wrote:

kalpesh wrote:

any cell in between A1:B10 range is active macro will run

This is a variation on the question you asked yesterday. Using a
variation of the code I posted there should work:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case ActiveCell.Column
Case 1, 2
If ActiveCell.Row < 11 Then
'your code here
End If
End Select
End Sub

Put that in the worksheet's class and put your code where it says "your
code here".

...or just use isabella's code, which I *think* might be faster and/or
"better" than mine.

Actually, this is faster AND more efficient<g...

If Not Intersect(Target, Range("A1:B10")) Is Nothing Then _
MsgBox Target.Address

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc