macro to multiply cell by 1000

[Trebormac]

I have a macro to copy a cell value from one workbook and paste special value into a cell in another workbook. I want to add some functionality to the macro to multiply the pasted cell value by 1,000.

I can not seem to duplicate the key strokes I would use to do this mannualy in the worksheet. In other words what would be the code to:

F2 (edit cell mode)
Home key (move to the front of the value, use only if cell vaalue not negative)
+key (if not negative)
end key (move to end of value)
* (multiplication sign)
1000
enter

If I use the macro recorder I end up with the same cell value every time.

Any help would be appreciated

Trebormac

 

[GlennUK]

Are you saying that it must be a formula, rather than a value?

 

[Andrew Poulsom]

Try:

Sub Test()
    With ActiveCell
        If .HasFormula Then
            .Formula = .Formula & "*1000"
        Else
            .Formula = "=" & .Formula & "*1000"
        End If
    End With
End Sub

 

[Trebormac]

Thanks Guys...I gues I was not to clear in my request. In the mean time I scatched my head a little harder and came up with the solution:

ActiveCell.Value = ActiveCell.value * 1000

Thanks again,

Trebormac