Vba help 1 line

[Lukums]

Hey guys...

This is going to be hard I think.

If Range("i" & i).Value >= 0 Then Range("P" & i).Value = "/1000"

What I'm TRYING to do is if values are found over 0 in column i then divide values from column i in column p
Obviously this code is wrong - As all it's doing is placing "/1000".

Is this tricky... or am I being silly...?

Thanks all...

 

[mrshl9898]

Like this?

If Range("i" & i).Value >= 0 Then Range("P" & i).Value = Range("i" & i).Value / 1000

 

[vcoolio]

Hello Lukums,

We're assuming that you have your code wrapped in a For/Next loop, so perhaps:-

Sub Test()

Dim lr As Long: lr = Sheet1.Range("I" & Rows.Count).End(xlUp).Row

      For i = 1 To lr  '----> Change row number to suit.
      If Cells(i, 9).Value >= 0 Then
      Cells(i, 16).Value = Cells(i, 9).Value / 1000
      End If
Next i

End Sub

I hope that this helps.

Cheerio,
vcoolio.