| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
trigger formula execution based on user entry
On Aug 9, 4:46*pm, ManicMiner17 wrote:
This is quite crude, no error trapping of events etc. Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim iSect1 As Range Dim iSect2 As Range Dim rngEnd As Long Dim r As Range Dim ws As Worksheet Set ws = Sheets("Sheet1") rngEnd = Range("A" & Rows.Count).End(xlUp).Row Set iSect1 = Application.Intersect(Range("a1:a" & rngEnd), Target) If Not iSect1 Is Nothing Then * *For Each r In iSect1 * * *If Target < 0 And Target.Offset(0, 1) < 0 Then * * *Target.Offset(0, 2) = Target * Target.Offset(0, 1) * * *End If * * Next r End If Set iSect2 = Application.Intersect(Range("b1:b" & rngEnd), Target) If Not iSect2 Is Nothing Then * *For Each r In iSect2 * * *If Target.Offset(0, -1) < 0 And Target < 0 Then * * *Target.Offset(0, 1) = Target.Offset(0, -1) * Target * * *End If * *Next r End If End Sub Thanks for the suggestions, but I'd prefer to do this with a VB script instead of having a formula in the 'result' cell. *The requirement would be that the 'result' cell be completely empty until columns A and B are filled. Great; thanks for the code! |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Trigger macro when range entry complete | Excel Programming | |||
| Insert formulas on data entry trigger | Excel Programming | |||
| Selecting which macro to run based on a user entry | Excel Programming | |||
| Filter Excel Pivot, based on user entry form | Excel Discussion (Misc queries) | |||
| Delete a Column Based on User Entry | Excel Programming | |||
Hybrid Mode
