Copy (1 Viewer)

[accessman2]

Hi,

.Worksheets(1).Cells(10, 1) = 2
.Worksheets(1).Cells(11, 1) = 3
.Worksheets(1).Cells(12, 1) = "=sum(" & .Worksheets(1).Cells(10, 1).Address & ":" & .Worksheets(1).Cells(11, 1).Address & ")"


.Worksheets(1).Cells(10, 2) = 1
.Worksheets(1).Cells(11, 2) = 6
.Worksheets(1).Cells(12, 1).Copy
.Worksheets(1).Cells(12, 2).PasteSpecial xlPasteFormats

It cannot copy the format to there because it has the dollor sign, =Sum($A$15:$A$16)

Which command code can represent =Sum(A15:A16)?

Thanks.

 

[shades]

Howdy. Can you give a little more? Are you wanting to just sum the two cells above the active cell?
________
Yamaha sr500