divide cells using macro

[leg]

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!

 

[macropod]

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|Valuesivide

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]

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