Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Play sub by clicking on cell
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "C3,E3" '<=== change to suit On Error GoTo ws_exit: Application.EnableEvents = False If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target 'do your stuff End With End If ws_exit: Application.EnableEvents = True End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "shlomit" wrote in message ... Hi, I need to play sub on specific row because the sub get tow values from tow cells on the row. How can I do it? Thanks, Shlomit |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Play sub by clicking on cell
Thanks Bob,
But I need to play the sub when the I'm clicking on specific cell. 1. I prefer the sub will get the tow values cells that I need 2. I want that in specific column when I click on cell it will play sub for the specific row (in the next rowand same column it will play the sub for row+1) Can you help? Thanks, Shlomit "Bob Phillips" wrote: Private Sub Worksheet_Change(ByVal Target As Range) Const WS_RANGE As String = "C3,E3" '<=== change to suit On Error GoTo ws_exit: Application.EnableEvents = False If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target 'do your stuff End With End If ws_exit: Application.EnableEvents = True End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "shlomit" wrote in message ... Hi, I need to play sub on specific row because the sub get tow values from tow cells on the row. How can I do it? Thanks, Shlomit |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Play sub by clicking on cell
Just change Worksheet_Change to Worksheet_SelectionChange
-- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Shlomit" wrote in message ... Thanks Bob, But I need to play the sub when the I'm clicking on specific cell. 1. I prefer the sub will get the tow values cells that I need 2. I want that in specific column when I click on cell it will play sub for the specific row (in the next rowand same column it will play the sub for row+1) Can you help? Thanks, Shlomit "Bob Phillips" wrote: Private Sub Worksheet_Change(ByVal Target As Range) Const WS_RANGE As String = "C3,E3" '<=== change to suit On Error GoTo ws_exit: Application.EnableEvents = False If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target 'do your stuff End With End If ws_exit: Application.EnableEvents = True End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "shlomit" wrote in message ... Hi, I need to play sub on specific row because the sub get tow values from tow cells on the row. How can I do it? Thanks, Shlomit |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Clicking on cell | Excel Discussion (Misc queries) | |||
clicking all the way to another cell | Excel Worksheet Functions | |||
Play Sound File Once when cell value condition id met | Excel Discussion (Misc queries) | |||
after clicking on a cell cannot get out of worksheet | Excel Discussion (Misc queries) | |||
Colour by clicking cell | New Users to Excel |