active range to run macro

[kalpesh]

Hello

h

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

 

[isabelle]

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 :

 

[Auric__]

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".

 

[Auric__]

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.

 

[GS]

Auric__ formulated on Tuesday :

...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