| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Execute Events Based Upon Selected Cell
I am trying to program code to execute specific conditions if certain cells
are selected. I am working within my worksheet and with the Worksheet_SelectionChange (ByVal Target As Excel.Range) subroutine. I have tried using the AcitveCell.Address per the following example: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If ActiveCell.Address = Range("H2") Then 'Range("H2").Value = "X" End If End Sub What has generally happened through my numerous iterations is that the "X" is never entered into the selected cell or any other cell for that matter. The goal is to have "X" entered into cell H2 only if cell H2 is selected. Your assistance is highly appreciated. Any advice or recommendations you may have is again well appreciated. Kind regards, D.Parker |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Execute Events Based Upon Selected Cell
Target is the cell you just selected, so here is some code for you...
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Select Case Target.Address Case "$H$2" Target.Value = "X" Case "$I$2" Target.Value = "X" Case "$J$2" Target.Value = "X" End Select End Sub HTH "D.Parker" wrote: I am trying to program code to execute specific conditions if certain cells are selected. I am working within my worksheet and with the Worksheet_SelectionChange (ByVal Target As Excel.Range) subroutine. I have tried using the AcitveCell.Address per the following example: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If ActiveCell.Address = Range("H2") Then 'Range("H2").Value = "X" End If End Sub What has generally happened through my numerous iterations is that the "X" is never entered into the selected cell or any other cell for that matter. The goal is to have "X" entered into cell H2 only if cell H2 is selected. Your assistance is highly appreciated. Any advice or recommendations you may have is again well appreciated. Kind regards, D.Parker |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Execute Events Based Upon Selected Cell
Jim:
Thank you very much for the response! Kind regards, Darryl "Jim Thomlinson" wrote: Target is the cell you just selected, so here is some code for you... Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Select Case Target.Address Case "$H$2" Target.Value = "X" Case "$I$2" Target.Value = "X" Case "$J$2" Target.Value = "X" End Select End Sub HTH "D.Parker" wrote: I am trying to program code to execute specific conditions if certain cells are selected. I am working within my worksheet and with the Worksheet_SelectionChange (ByVal Target As Excel.Range) subroutine. I have tried using the AcitveCell.Address per the following example: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If ActiveCell.Address = Range("H2") Then 'Range("H2").Value = "X" End If End Sub What has generally happened through my numerous iterations is that the "X" is never entered into the selected cell or any other cell for that matter. The goal is to have "X" entered into cell H2 only if cell H2 is selected. Your assistance is highly appreciated. Any advice or recommendations you may have is again well appreciated. Kind regards, D.Parker |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Execute Events Based Upon Selected Cell
What is the difference between using Excel.Range and just Range in the Worksheet_SelectionChange sub? Thank you. Kind regards, D.Parker "Jim Thomlinson" wrote: Target is the cell you just selected, so here is some code for you... Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Select Case Target.Address Case "$H$2" Target.Value = "X" Case "$I$2" Target.Value = "X" Case "$J$2" Target.Value = "X" End Select End Sub HTH "D.Parker" wrote: I am trying to program code to execute specific conditions if certain cells are selected. I am working within my worksheet and with the Worksheet_SelectionChange (ByVal Target As Excel.Range) subroutine. I have tried using the AcitveCell.Address per the following example: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If ActiveCell.Address = Range("H2") Then 'Range("H2").Value = "X" End If End Sub What has generally happened through my numerous iterations is that the "X" is never entered into the selected cell or any other cell for that matter. The goal is to have "X" entered into cell H2 only if cell H2 is selected. Your assistance is highly appreciated. Any advice or recommendations you may have is again well appreciated. Kind regards, D.Parker |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Execute Events Based Upon Selected Cell
There is no practical difference between declaring a variable As
Range and As Excel.Range. The only circumstance that would make a difference is if an object library is referenced that also has an object named Range (e.g., referencing Word from Excel). In this case, using the Excel prefix tells the compiler which object named Range is intended for use. Under normal circumstances, you may safely omit the Excel prefix. -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "D.Parker" wrote in message ... What is the difference between using Excel.Range and just Range in the Worksheet_SelectionChange sub? Thank you. Kind regards, D.Parker "Jim Thomlinson" wrote: Target is the cell you just selected, so here is some code for you... Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Select Case Target.Address Case "$H$2" Target.Value = "X" Case "$I$2" Target.Value = "X" Case "$J$2" Target.Value = "X" End Select End Sub HTH "D.Parker" wrote: I am trying to program code to execute specific conditions if certain cells are selected. I am working within my worksheet and with the Worksheet_SelectionChange (ByVal Target As Excel.Range) subroutine. I have tried using the AcitveCell.Address per the following example: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If ActiveCell.Address = Range("H2") Then 'Range("H2").Value = "X" End If End Sub What has generally happened through my numerous iterations is that the "X" is never entered into the selected cell or any other cell for that matter. The goal is to have "X" entered into cell H2 only if cell H2 is selected. Your assistance is highly appreciated. Any advice or recommendations you may have is again well appreciated. Kind regards, D.Parker |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Execute Events Based Upon Selected Cell
Thank you very much!
D.Parker "Chip Pearson" wrote: There is no practical difference between declaring a variable As Range and As Excel.Range. The only circumstance that would make a difference is if an object library is referenced that also has an object named Range (e.g., referencing Word from Excel). In this case, using the Excel prefix tells the compiler which object named Range is intended for use. Under normal circumstances, you may safely omit the Excel prefix. -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "D.Parker" wrote in message ... What is the difference between using Excel.Range and just Range in the Worksheet_SelectionChange sub? Thank you. Kind regards, D.Parker "Jim Thomlinson" wrote: Target is the cell you just selected, so here is some code for you... Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Select Case Target.Address Case "$H$2" Target.Value = "X" Case "$I$2" Target.Value = "X" Case "$J$2" Target.Value = "X" End Select End Sub HTH "D.Parker" wrote: I am trying to program code to execute specific conditions if certain cells are selected. I am working within my worksheet and with the Worksheet_SelectionChange (ByVal Target As Excel.Range) subroutine. I have tried using the AcitveCell.Address per the following example: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If ActiveCell.Address = Range("H2") Then 'Range("H2").Value = "X" End If End Sub What has generally happened through my numerous iterations is that the "X" is never entered into the selected cell or any other cell for that matter. The goal is to have "X" entered into cell H2 only if cell H2 is selected. Your assistance is highly appreciated. Any advice or recommendations you may have is again well appreciated. Kind regards, D.Parker |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Execute Events Based Upon Selected Cell
It is a more explicit declaration. In this case it really will not make any
difference whatsoever. Usually the more explicit the declaration the better, but in this case it doesn't make any difference... If there were to items Excel and another that could both have ranges, then you would need to explcitle declate what type of range you wanted to use... HTH "D.Parker" wrote: What is the difference between using Excel.Range and just Range in the Worksheet_SelectionChange sub? Thank you. Kind regards, D.Parker "Jim Thomlinson" wrote: Target is the cell you just selected, so here is some code for you... Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Select Case Target.Address Case "$H$2" Target.Value = "X" Case "$I$2" Target.Value = "X" Case "$J$2" Target.Value = "X" End Select End Sub HTH "D.Parker" wrote: I am trying to program code to execute specific conditions if certain cells are selected. I am working within my worksheet and with the Worksheet_SelectionChange (ByVal Target As Excel.Range) subroutine. I have tried using the AcitveCell.Address per the following example: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If ActiveCell.Address = Range("H2") Then 'Range("H2").Value = "X" End If End Sub What has generally happened through my numerous iterations is that the "X" is never entered into the selected cell or any other cell for that matter. The goal is to have "X" entered into cell H2 only if cell H2 is selected. Your assistance is highly appreciated. Any advice or recommendations you may have is again well appreciated. Kind regards, D.Parker |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Execute Events Based Upon Selected Cell
I noticed that the address are locked (i.e. $H$2) as opposed to unlocked
(i.e. "H2"). Is there a reason for that difference? And how would I change the code to unlock the address such that I can support H2, H8, H12, ...? Thanks again. D. Parker "Jim Thomlinson" wrote: It is a more explicit declaration. In this case it really will not make any difference whatsoever. Usually the more explicit the declaration the better, but in this case it doesn't make any difference... If there were to items Excel and another that could both have ranges, then you would need to explcitle declate what type of range you wanted to use... HTH "D.Parker" wrote: What is the difference between using Excel.Range and just Range in the Worksheet_SelectionChange sub? Thank you. Kind regards, D.Parker "Jim Thomlinson" wrote: Target is the cell you just selected, so here is some code for you... Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Select Case Target.Address Case "$H$2" Target.Value = "X" Case "$I$2" Target.Value = "X" Case "$J$2" Target.Value = "X" End Select End Sub HTH "D.Parker" wrote: I am trying to program code to execute specific conditions if certain cells are selected. I am working within my worksheet and with the Worksheet_SelectionChange (ByVal Target As Excel.Range) subroutine. I have tried using the AcitveCell.Address per the following example: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If ActiveCell.Address = Range("H2") Then 'Range("H2").Value = "X" End If End Sub What has generally happened through my numerous iterations is that the "X" is never entered into the selected cell or any other cell for that matter. The goal is to have "X" entered into cell H2 only if cell H2 is selected. Your assistance is highly appreciated. Any advice or recommendations you may have is again well appreciated. Kind regards, D.Parker |
|
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Execute Events Based Upon Selected Cell
Try this. It works for me
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$H$2" Then Range("H2").Value = "X" End If End Sub Best Regards Fredrik "D.Parker" wrote in message ... I am trying to program code to execute specific conditions if certain cells are selected. I am working within my worksheet and with the Worksheet_SelectionChange (ByVal Target As Excel.Range) subroutine. I have tried using the AcitveCell.Address per the following example: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If ActiveCell.Address = Range("H2") Then 'Range("H2").Value = "X" End If End Sub What has generally happened through my numerous iterations is that the "X" is never entered into the selected cell or any other cell for that matter. The goal is to have "X" entered into cell H2 only if cell H2 is selected. Your assistance is highly appreciated. Any advice or recommendations you may have is again well appreciated. Kind regards, D.Parker |
|
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Execute Events Based Upon Selected Cell
Fredrik:
Also, thank you very much! Kind regards, Darryl "Fredrik Wahlgren" wrote: Try this. It works for me Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$H$2" Then Range("H2").Value = "X" End If End Sub Best Regards Fredrik "D.Parker" wrote in message ... I am trying to program code to execute specific conditions if certain cells are selected. I am working within my worksheet and with the Worksheet_SelectionChange (ByVal Target As Excel.Range) subroutine. I have tried using the AcitveCell.Address per the following example: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If ActiveCell.Address = Range("H2") Then 'Range("H2").Value = "X" End If End Sub What has generally happened through my numerous iterations is that the "X" is never entered into the selected cell or any other cell for that matter. The goal is to have "X" entered into cell H2 only if cell H2 is selected. Your assistance is highly appreciated. Any advice or recommendations you may have is again well appreciated. Kind regards, D.Parker |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Highlight the cell based on selected value | Excel Worksheet Functions | |||
| How to change cell text based on another selected cell? | Excel Discussion (Misc queries) | |||
| How do I execute a macro based on the value of a cell in Excel? | Excel Discussion (Misc queries) | |||
| Application level events no longer execute | Excel Programming | |||
| Execute a Macro when specific value is selected in a Range | Excel Programming | |||
![D.Parker[_2_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Hybrid Mode
