VBA Copy and Multiply

[ziad alsayed]

dear all

please advise what is gooing wrong with the below code , it is multiplying the content of the cell by itself instead of multiplying it by one.

Range("F2") = "1"
Range("F2").Copy
 LR = Range("E" & Rows.Count).End(xlUp).Row
 Range("E2:E" & LR).Select
  Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("E2").Select

appreciate any help

 

[Derek Brown]

The problem is with the second 'Copy' in your code.
Excel 2010 has a better macro recorder than Excel 2007 and will give you something like the following:

    Range("F2").Select
    ActiveCell.FormulaR1C1 = "1"
    Selection.Copy
 LR = Range("E" & Rows.Count).End(xlUp).Row
 Range("E2:E" & LR).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Range("E2").Select

 

[ziad alsayed]

thanks Derek Brown, appreciate your help

it is obvious that i need to take some rest