Range multiplication

[0 Agios]

In a range ("A1:A30") are values, What I need to do is have those values multipled by 1.07 and the new value incerter in the cell using VBA, I dont wantto use a formula.
Thanks.

 

[mikerickson]

put 1.07 in a spare cell.
Copy that cell.
Select A1:A30
Paste Special with Multiply checked.
Delete the spare cell

If you need this to be a macro, you can record it.

 

[CWatts]

Untested but should do the trick:

Sub RangeMultiply()
For Each c in Range("A1:A30")
     c.Value = c.Value * 1.07
Next c
End Sub

 

[VoG]

Try

Sub ctest()
Dim c As Range
For Each c In Range("A1:A30")
    c.Value = 1.07 * c.Value
Next c
End Sub

 

[MickG]

Try:-

Private Sub CommandButton2_Click()
With Range("A1:A30")
    .Value = Evaluate("if(row(), ""=1.07*"" & " & .Address & ")")
    .Value = .Value
End With

 

[0 Agios]

Thanks MickG', VoG,CWatts, mikerickson


I tried this and worket gret


Private Sub Label136_Click()

Dim c As Range
For Each c In Range("F10:F43")
c.Value = 1.07 * c.Value
Next c
Unload Me

End Sub