If Then Loop

[ukkz001]

Would like some assistance on a macro that will loop through column D until empty and if the first character does not contain a "-" then make the value in column C "-1"

Thanks

 

[Scott Huish]

Are the values in Column D numbers?

 

[GTO]

Greeings,

Are the values in the cells actually text, or are you wanting to change positive values to negative values?

Mark

 

[ukkz001]

Yes, both column C & D are numbers

 

[Scott Huish]

Sub test()
Dim c As Range
For Each c In Range("D1:D" & Range("D" & Rows.Count).End(xlUp).Row)
    If c >= 0 Then c.Offset(, -1) = -1
Next
End Sub

 

[ukkz001]

Thank You