negative value based on text in other cell

[trebor1956]

Hi, If I enter "Transfer to" in cell C1 then I want the numeric value that will be entered in cell E1 to be negative. As usual I have tried all sorts of stuff to no avail. Hope someone doesn't mind helping.

Rob

 

[mumps]

Copy and paste this macro into the worksheet code module.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("E4", Range("E" & Rows.Count).End(xlUp))) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If Target.Offset(, -2) = "Transfer to" Then
        Target = Target * -1
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[trebor1956]

Copy and paste this macro into the worksheet code module.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("E4", Range("E" & Rows.Count).End(xlUp))) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If Target.Offset(, -2) = "Transfer to" Then
        Target = Target * -1
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Thats perfect. Thank you so much, really appreciated.

 

[mumps]

You are very welcome.

 

[Joe4]

Thats perfect. Thank you so much, really appreciated.

When marking a post as the solution, please mark the original post that contained the solution (not your own post acknowledging that another post was the solution).
I have updated this one for you.

 

[James006]

Did not see page 2 ...