divide cells using macro

Hi people,

i'm trying to write a macro to divide some cells by 1000.

i have a table with the values in there, and i need to divide the values by 1000 and put the new values in the same table. i don't know if this is posible, but it whould be great if it is!



Thank you very much!

Hi leg,

Unless you need to do this often, you could put 1000 into an unused cell,
select the range you want to update and use Edit|Paste Special|Values:Divide

For a macro-based solution, you could use:
Sub Divide()
Dim oCell As Range
On Error Resume Next
For Each oCell In Selection
If oCell.Value <> "" Then oCell.Value = oCell.Value / 1000
Next oCell
End Sub

Cheers


"leg" <[email protected]> wrote in message
news:[email protected]...
>
> Hi people,
>
> i'm trying to write a macro to divide some cells by 1000.
>
> i have a table with the values in there, and i need to divide the
> values by 1000 and put the new values in the same table. i don't know
> if this is posible, but it whould be great if it is!
>
>
>
> Thank you very much!
>
>
> --
> leg
> ------------------------------------------------------------------------
> leg's Profile:
http://www.excelforum.com/member.php...o&userid=34931
> View this thread: http://www.excelforum.com/showthread...hreadid=546650
>

Hi, thank you very much. i'll do what you told me. Thank you very much!