Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Content of Cell clicked in another cell
Hi,
I have the following macro which is not working completely as required. I want the macro to look into a range C18 to C45 and push the content of the cell into C13. Incase any other cell is clicked, the macro should not perform any action. However the below macro selects all the cells on the sheet when click instead of the cells within the C18:C45 range. Can anyone advise improvement to the below macro Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range Set rng = Range("C18:C45") For Each cell In rng Range("c13").Value = ActiveCell.Value Next End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Content of Cell clicked in another cell
Sub Worksheet_SelectionChange(ByVal Target As Range)
Const WS_RANGE As String = "c18:c45" If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target Me.Range("c13").Value = Target.Value End With End If End Sub Gord Dibben MS Excel MVP On Mon, 23 Mar 2009 06:10:37 -0700 (PDT), Sandip wrote: Hi, I have the following macro which is not working completely as required. I want the macro to look into a range C18 to C45 and push the content of the cell into C13. Incase any other cell is clicked, the macro should not perform any action. However the below macro selects all the cells on the sheet when click instead of the cells within the C18:C45 range. Can anyone advise improvement to the below macro Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range Set rng = Range("C18:C45") For Each cell In rng Range("c13").Value = ActiveCell.Value Next End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
to had the value show in one cell if a different cell is clicked o | Excel Discussion (Misc queries) | |||
Change cell value when right-clicked/double-clicked | Excel Programming | |||
Populating a cell when certain cell is clicked | Excel Discussion (Misc queries) | |||
Cell Formula reference to cell Based On third Cell Content | Excel Discussion (Misc queries) | |||
Cell Formula reference to cell Based On third Cell Content | Excel Discussion (Misc queries) |