Macro to take selected cells times a selected cell
 

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.

Macro to take selected cells times a selected cell
 

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" wrote in message
...
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.

Macro to take selected cells times a selected cell
 

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 specialmultiplyOKEsc


Gord Dibben Excel MVP

On Sun, 23 Oct 2005 17:56:12 -0500, "Craig" wrote:

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.

Macro to take selected cells times a selected cell
 

Thanks! Exactly what I needed!


"Bob Phillips" wrote in message
...
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" wrote in message
...
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.

Macro to take selected cells times a selected cell
 

Thanks for the help!


"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
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 specialmultiplyOKEsc


Gord Dibben Excel MVP

On Sun, 23 Oct 2005 17:56:12 -0500, "Craig" wrote:

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.