Paste Special question

[TimmerSuds]

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

 

[Guest]

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

Vaya con Dios,
Chuck, CABGx3

 

[TimmerSuds]

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

 

[Guest]

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