I am applying a multiply - paste special into a macro. The column that I
need to update can have anywhere from 50 to 5000 rows of numbers that
need to be updated.

If I select the whole column and then apply the paste special it inputs
a 0 if there is no value to begin with.

I tried selected the skip blanks option but that didn't help.

Thanks


--
TimmerSuds
------------------------------------------------------------------------
TimmerSuds's Profile: http://www.excelforum.com/member.php...o&userid=35596
View this thread: http://www.excelforum.com/showthread...hreadid=553732

Please post your macro, or at least the relative section of it..........

Vaya con Dios,
Chuck, CABGx3



"TimmerSuds" wrote:


I am applying a multiply - paste special into a macro. The column that I
need to update can have anywhere from 50 to 5000 rows of numbers that
need to be updated.

If I select the whole column and then apply the paste special it inputs
a 0 if there is no value to begin with.

I tried selected the skip blanks option but that didn't help.

Thanks


--
TimmerSuds
------------------------------------------------------------------------
TimmerSuds's Profile: http://www.excelforum.com/member.php...o&userid=35596
View this thread: http://www.excelforum.com/showthread...hreadid=553732

Sub test()
'
' test Macro
' Macro recorded 6/20/2006
'

'
Range("L16").Select
ActiveCell.FormulaR1C1 = "100"
Range("L16").Select
Selection.Copy
Columns("G:G").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=True, Transpose:=False
Range("L16").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub


--
TimmerSuds
------------------------------------------------------------------------
TimmerSuds's Profile: http://www.excelforum.com/member.php...o&userid=35596
View this thread: http://www.excelforum.com/showthread...hreadid=553732

Try this variation............

Sub test2()
Range("L16").Select
ActiveCell.FormulaR1C1 = "100"
Range("L16").Select
Selection.Copy
Range("g1:g" & Cells(Rows.Count, 7).End(xlUp).Row).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=True, Transpose:=False
Range("L16").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub


Vaya con Dios,
Chuck, CABGx3



"TimmerSuds" wrote:


Sub test()
'
' test Macro
' Macro recorded 6/20/2006
'

'
Range("L16").Select
ActiveCell.FormulaR1C1 = "100"
Range("L16").Select
Selection.Copy
Columns("G:G").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=True, Transpose:=False
Range("L16").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub


--
TimmerSuds
------------------------------------------------------------------------
TimmerSuds's Profile: http://www.excelforum.com/member.php...o&userid=35596
View this thread: http://www.excelforum.com/showthread...hreadid=553732