text determines value

[EXCEL_ED]

Hi all,

New to the forum and also Macros. I am trying to write code to make a cell default to a negative value based on the text of another cell. For example: if the cell states "EXPENSE" then the offset(0,1) will be a negative figure when the numbers are entered into that cell.

Any help with writing this code would be appreciated!

 

[Fowmy]

Hi,

This should help

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Offset(, -1) = "Expense" Then
Target = Target * -1
End If


End Sub

 

[EXCEL_ED]

Thanks Fowmy, I see what I was doing wrong now.