How to pop up a Macro when the cell in one column is selected-urge
I know how to call a Macro when one cell is selected as below. But this only
works when cell B1 is selected. But anybody knows how to trigger the macro when any cell in one column is selected (E.g when cell from B1 to B1000 is selected...) Thanks a lot! +++++++++++++++++++++++++++++++++++++++++++++ Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.Address = "$B$1" Then Call OpenCalendar End If End Sub +++++++++++++++++++++++++++++++++++++++++++++ |
How to pop up a Macro when the cell in one column is selected-urge
if target.cells.count 1 then exit sub 'only one cell at a time
if intersect(target, me.range("b1:B1000")) is nothing then exit sub end if is one way. Turboj wrote: I know how to call a Macro when one cell is selected as below. But this only works when cell B1 is selected. But anybody knows how to trigger the macro when any cell in one column is selected (E.g when cell from B1 to B1000 is selected...) Thanks a lot! +++++++++++++++++++++++++++++++++++++++++++++ Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.Address = "$B$1" Then Call OpenCalendar End If End Sub +++++++++++++++++++++++++++++++++++++++++++++ -- Dave Peterson |
How to pop up a Macro when the cell in one column is selected-
Thanks Dave. The problem is well solved. The final codes are as below.
+++++++++++++++++++++++++++++++++++++++++++ Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub 'only one cell at a time If Intersect(Target, Me.Range("G2:I5000,K2:K5000")) Is Nothing Then 'column G to I & K needs data input Exit Sub End If Call OpenCalendar ' Call the macro to input date by using Calendar End Sub +++++++++++++++++++++++++++++++++++++++++++ "Dave Peterson" wrote: if target.cells.count 1 then exit sub 'only one cell at a time if intersect(target, me.range("b1:B1000")) is nothing then exit sub end if is one way. Turboj wrote: I know how to call a Macro when one cell is selected as below. But this only works when cell B1 is selected. But anybody knows how to trigger the macro when any cell in one column is selected (E.g when cell from B1 to B1000 is selected...) Thanks a lot! +++++++++++++++++++++++++++++++++++++++++++++ Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.Address = "$B$1" Then Call OpenCalendar End If End Sub +++++++++++++++++++++++++++++++++++++++++++++ -- Dave Peterson |
All times are GMT +1. The time now is 01:14 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com