Move cursor to columns to the right
Sub ijb()
Dim i As Integer
i = 1
While Cells(i, 3) < ""
If Cells(i, 3) = "LU" Then
Cells(i, 5) = Cells(i, 5) / 1000
End If
i = i + 1
Wend
End Sub
though i admit the other replies are more elegant!
--
Remove nospam from my e-mail address to talk direct
Not MCSD just experienced
"Steven R. Berke" wrote in message
om...
I want to write a macor which will find the letters LU in Column C
them move to rows to the right to column E and divide the figure in
column E by 1000.
|