Macro - apply calculation on selected cell, round() copy result to clipboard

[mrwul62]

Up front: I am not an expert...
Hence I don't know whether the below is possible.

So far I proceed like this (example)
in A1: 25
in C1 : =A1*1,2345 (this is an example, within the macro it is fixed number though)
in D1: =round(C1;2)
result to clipboard

in B1: copy-paste clipboard as values

Again, no idea whether at all it is possible.

-select a cell
-run a macro that performs the calculation on the selected cell, rounded off and place the result in clipboard
-ctrl-v the result

Thanks.

 

[Norie]

How about something like this?

Dim Factor As Double

    Factor = 1.2345

    Range("B1").Value = Evaluate("ROUND(A1*" & Factor & ", 2)")

 

[JEC]

Sub jec()
factor = 1.2345
Range("B1").Value = Round([A1] * factor, 2)
End Sub

 

[JEC]

Evaluate would be like this

Sub jec()
factor = "1.2345"
Range("B1").Value = Evaluate("ROUND(A1" & "*" & factor & ", 2)")
End Sub

 

[mrwul62]

Many thanks for the quick reply, really appreciated.
Please note that I took 'A1' as an example.
It could be any cell.
Meaning to say that A1 could be something like 'select cell' or so, could as well be P2893
The vba code above , does it allow free selection of cell ?
dumb question maybe...
As said, far, I mean far.... from being an expert...

 

[JEC]

Well, like this. Including some validation

Sub jec()
 factor = 1.2345
 If IsNumeric(ActiveCell) Then
   Range("B1").Value = Round(ActiveCell * factor, 2)
 Else
   MsgBox "cell is not numeric", vbOKOnly, "attention"
 End If
End Sub

 

[mrwul62]

Thanks again!
Would it be possible copy the results to clipboard one way or the other?
in my first post after the calculation 'Result to clipboard'.
Then I can paste it anywhere, in my example in B1, but usually it is pasted left or right of the source cell (as converted value)

Right now I need an extra column to round off the results of the calculation.

I wish I knew how it could be done with 1 formula, but I guess it isn't possible.