Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Worksheet change event-single column
I have a worksheet change event so that when information is entered into
C2:C50 it will put relative data into E2:E50. except something is not working. It's activating for every cell change on the entire sheet. here's what I got: Private Sub Worksheet_Change(ByVal Target As Range) Const WS_RANGE As String = "C2:C50" On Error GoTo ws_exit: Set OldCell = Target Application.EnableEvents = False If Target < "" Then With Target CHANGECYCLE End With Else GoTo ws_exit: End If Application.EnableEvents = True ws_exit: End Sub The sub it goes to works as it should, but I only want it to work if the C2:C50 is selected. What did I goof? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Worksheet change event-single column
Sorry that was what I was trying to do to fix it (it didn't work). This is
the original. Private Sub Worksheet_Change(ByVal Target As Range) Const WS_RANGE As String = "C2:C50" On Error GoTo ws_exit: Set OldCell = Target Application.EnableEvents = False With Target CHANGECYCLE End With Application.EnableEvents = True ws_exit: End Sub "jasminesy" wrote: I have a worksheet change event so that when information is entered into C2:C50 it will put relative data into E2:E50. except something is not working. It's activating for every cell change on the entire sheet. here's what I got: Private Sub Worksheet_Change(ByVal Target As Range) Const WS_RANGE As String = "C2:C50" On Error GoTo ws_exit: Set OldCell = Target Application.EnableEvents = False If Target < "" Then With Target CHANGECYCLE End With Else GoTo ws_exit: End If Application.EnableEvents = True ws_exit: End Sub The sub it goes to works as it should, but I only want it to work if the C2:C50 is selected. What did I goof? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
I Got it - Sorry
I knew I was forgetting something: I forgot my intersect
Private Sub Worksheet_Change(ByVal Target As Range) Const WS_RANGE As String = "C2:C50" On Error GoTo ws_exit: Set OldCell = Target If Target < "" Then Application.EnableEvents = False If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target CHANGECYCLE End With End If End If Application.EnableEvents = True ws_exit: End Sub "jasminesy" wrote: I have a worksheet change event so that when information is entered into C2:C50 it will put relative data into E2:E50. except something is not working. It's activating for every cell change on the entire sheet. here's what I got: Private Sub Worksheet_Change(ByVal Target As Range) Const WS_RANGE As String = "C2:C50" On Error GoTo ws_exit: Set OldCell = Target Application.EnableEvents = False If Target < "" Then With Target CHANGECYCLE End With Else GoTo ws_exit: End If Application.EnableEvents = True ws_exit: End Sub The sub it goes to works as it should, but I only want it to work if the C2:C50 is selected. What did I goof? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Worksheet Change Event | Excel Programming | |||
Cell value change to trigger macro (worksheet change event?) | Excel Programming | |||
Change the width of a single column in a column chart | Charts and Charting in Excel | |||
Change Cell from Validated List Not Firing Worksheet Change Event | Excel Programming |