Selected cells multiply by 1

[freshtomm]

Hi,

i need code to multiply all selected cells by number one? Is it possible?

Thanks.

T.

 

[Hui]

Sub Multiply_by_one()
Dim c As Range
For Each c In Selection
  c.Value = c * 1
Next
End Sub

to use
Copy this code to a Code Module in VBA (Alt+F11)
Select a range
Alt+F8
Select Multiply_by_one and press Run

 

[p45cal]

Select an empty cell somewhere and put a 1 in it.
Copy that cell into the clipboard (Crtl+C).
Select the cells that you want to multily by 1, right click one of them and choose Paste Special…, in the resultant dialogue box, choose options Values and Multiply, click OK.

In code you might use (after selecting the range):

Sub blah()
With Range("A1000000")
  .Value = 1
  .Copy
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
  .ClearContents
End With
End Sub

where I've used cell A1000000 as an out-of-the-way cell.

 

[Hui]

If you want a more wholistic approach which will convert all worksheets and not upset formula have a look at:
https://answers.microsoft.com/en-us...o-number/e2f5c527-4326-4448-a029-71298d1617c8