این کد رو جایگزین می کنم ....باز هم صفر میشه!!!!!!!چرا؟/؟؟؟؟؟
کد:
Sheet2.Range("e2").Select Selection.Copy
Sheet3.Range("g2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
:=False, Transpose:=False
کامنت