Hi guys, I have the following code that adds a cell value based on finding a text "Total" in the row. Im stuck now trying to make it change a value to negative
Here is the code
Here is the part Im trying to change
Here is the code
VBA Code:
Sub test()
myNum = Application.InputBox("Description")
LastRow = Range("C" & Rows.Count).End(xlUp).row
With Range("C2:C" & LastRow)
Set c = .Find("*Total")
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Offset(0, -1).Value = 555
c.Offset(0, -2).Value = 123
c.Offset(0, 4).Value = myNum
c.Offset(0, 0).Value = make numbe negative code goes here
c.Offset(0, ).Value = Code here to multiple the # * -1
Set c = .FindNext(c)
If c Is Nothing Then
GoTo DoneFinding
End If
Loop While c.Address <> firstAddress
End If
DoneFinding:
End With
End Sub
Here is the part Im trying to change
Code:
c.Offset(0, 0).Value = make value