I want to be able to select any given range of cells in my spreadsheet as
necessary and increase the numbers already in them by a percentage that I
type into an InputBox. I'm familiar with the code for an Inputbox, but I'm
struggling with how to tell Excel to move to each of the selected cells and
perform the increase. The selected cells won't usually be in the same row or
column, but rathered scattered about. Thanks!

Steve C.

Steve:

try,

Dim rng As Range
p = InputBox("Input a percentage ", , 10)
For Each rng In Selection
rng.Value = rng.Value * Val(p)
Next

--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"Steve C" wrote:

I want to be able to select any given range of cells in my spreadsheet as
necessary and increase the numbers already in them by a percentage that I
type into an InputBox. I'm familiar with the code for an Inputbox, but I'm
struggling with how to tell Excel to move to each of the selected cells and
perform the increase. The selected cells won't usually be in the same row or
column, but rathered scattered about. Thanks!

Steve C.

untested, but you shouldn't have to select the range.

just

for each cell in rng.Name
cell.value = cell.value*(your%)
next cell

--


Gary


"Steve C" wrote in message
...
I want to be able to select any given range of cells in my spreadsheet as
necessary and increase the numbers already in them by a percentage that I
type into an InputBox. I'm familiar with the code for an Inputbox, but
I'm
struggling with how to tell Excel to move to each of the selected cells
and
perform the increase. The selected cells won't usually be in the same row
or
column, but rathered scattered about. Thanks!

Steve C.

Thanks! I will give it a try!

"chijanzen" wrote:

Steve:

try,

Dim rng As Range
p = InputBox("Input a percentage ", , 10)
For Each rng In Selection
rng.Value = rng.Value * Val(p)
Next

--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"Steve C" wrote:

I want to be able to select any given range of cells in my spreadsheet as
necessary and increase the numbers already in them by a percentage that I
type into an InputBox. I'm familiar with the code for an Inputbox, but I'm
struggling with how to tell Excel to move to each of the selected cells and
perform the increase. The selected cells won't usually be in the same row or
column, but rathered scattered about. Thanks!

Steve C.