Column D has numbers in random cells. Is there a code that will look through
the cells in Column D for numbers and when it finds them multiply them by 2?

Sub multiplyby()
x = InputBox("multiple value ie: 2")
On Error Resume Next
For Each c In Columns("D").SpecialCells(xlCellTypeConstants, 23)
'If IsNumeric(c) Then c.Value = c * x
c.Value = c * x
Next c
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"TGalin" <(E-Mail Removed)> wrote in message
news:EF70659F-F02D-49B8-9B21-(E-Mail Removed)...
> Column D has numbers in random cells. Is there a code that will look
> through
> the cells in Column D for numbers and when it finds them multiply them by
> 2?

Thank you for your help. I'm not sure how to use this.

"Don Guillett" wrote:

> Sub multiplyby()
> x = InputBox("multiple value ie: 2")
> On Error Resume Next
> For Each c In Columns("D").SpecialCells(xlCellTypeConstants, 23)
> 'If IsNumeric(c) Then c.Value = c * x
> c.Value = c * x
> Next c
> End Sub
>
>
> --
> Don Guillett
> Microsoft MVP Excel
> SalesAid Software
> (E-Mail Removed)
> "TGalin" <(E-Mail Removed)> wrote in message
> news:EF70659F-F02D-49B8-9B21-(E-Mail Removed)...
> > Column D has numbers in random cells. Is there a code that will look
> > through
> > the cells in Column D for numbers and when it finds them multiply them by
> > 2?
>
>

Just copy/paste into a macro module and execute from there. Make sure your
sheet is the active sheet at the time.
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"TGalin" <(E-Mail Removed)> wrote in message
news:3B2DAF58-5FCD-4AC5-8945-(E-Mail Removed)...
> Thank you for your help. I'm not sure how to use this.
>
> "Don Guillett" wrote:
>
>> Sub multiplyby()
>> x = InputBox("multiple value ie: 2")
>> On Error Resume Next
>> For Each c In Columns("D").SpecialCells(xlCellTypeConstants, 23)
>> 'If IsNumeric(c) Then c.Value = c * x
>> c.Value = c * x
>> Next c
>> End Sub
>>
>>
>> --
>> Don Guillett
>> Microsoft MVP Excel
>> SalesAid Software
>> (E-Mail Removed)
>> "TGalin" <(E-Mail Removed)> wrote in message
>> news:EF70659F-F02D-49B8-9B21-(E-Mail Removed)...
>> > Column D has numbers in random cells. Is there a code that will look
>> > through
>> > the cells in Column D for numbers and when it finds them multiply them
>> > by
>> > 2?
>>
>>