Macro to take selected cells times a selected cell

[Craig]

I have a row of hardcoded numbers in cells A1, A2, A3 A4. I want to be able
to highlight(select) the above cells and have them be multiplied by B2. Is
this possible.

I have a huge worksheet that has all hardcoded numbers that I need to be
multiplied by a certain cell. In the above instance B2.

So instead of going into each cell, placing an "=" in front of the value and
then putting an * B2 at the end of the value in each cell, I am trying to
figure out how set up a macro and do it automatically.

 

[Bob Phillips]

Sub MultiplyByB2()
Dim cell As Range

For Each cell In Selection
If IsNumeric(cell.Value) Then
cell.Formula = "=" & cell.Value & "*B2"
End If
Next cell
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Gord Dibben]

Craig

Sub test()
Dim ocell As Range
For Each ocell In Selection
ocell.Value = ocell.Value * Range("B2").Value
Next ocell
End Sub

Manually you can select B2 and copy.

Then select all the cells to change and paste special>multiply>OK>Esc


Gord Dibben Excel MVP

 

[Craig]

Thanks! Exactly what I needed!

Sub MultiplyByB2()
Dim cell As Range

For Each cell In Selection
If IsNumeric(cell.Value) Then
cell.Formula = "=" & cell.Value & "*B2"
End If
Next cell
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Craig]

Thanks for the help!

Craig

Sub test()
Dim ocell As Range
For Each ocell In Selection
ocell.Value = ocell.Value * Range("B2").Value
Next ocell
End Sub

Manually you can select B2 and copy.

Then select all the cells to change and paste special>multiply>OK>Esc


Gord Dibben Excel MVP