Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy\paste with vba
I created a macro to copy and paste the formulas from one row to
another. I dont want to copy the the values. When I run it, it copys the formulas but ALSO the values. What am i doing wrong? Can someone help me? ------------------------------------------------------------------------- Application.Goto Reference:="totaal" Selection.EntireRow.Insert Application.Goto Reference:="totaal" ActiveCell.Offset(-2, -35).Range("A1:AJ1").Select Selection.Copy Application.Goto Reference:="totaal" ActiveCell.Offset(-1, -35).Range("A1:AJ1").Select Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False ActiveSheet.Paste Application.CutCopyMode = False End Sub -------------------------------------------------------------------------- --- Message posted from http://www.ExcelForum.com/ |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy\paste with vba
From XL/VBA Help (Formula Property)
If the cell contains a constant, this property returns the constant. If the cell is empty, Formula returns an empty string. Paste Special conforms to that definition. A quick fix might be to add this right after the paste special: On Error Resume Next 'in case no constants Selection.SpecialCells(xlCellTypeConstants).ClearC ontents On Error GoTo 0 But you may want to take a look at David McRitchie's INSRTROW() macro, too: http://www.mvps.org/dmcritchie/excel/insrtrow.htm In article , polletje wrote: I created a macro to copy and paste the formulas from one row to another. I dont want to copy the the values. When I run it, it copys the formulas but ALSO the values. What am i doing wrong? Can someone help me? ------------------------------------------------------------------------- Application.Goto Reference:="totaal" Selection.EntireRow.Insert Application.Goto Reference:="totaal" ActiveCell.Offset(-2, -35).Range("A1:AJ1").Select Selection.Copy Application.Goto Reference:="totaal" ActiveCell.Offset(-1, -35).Range("A1:AJ1").Select Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False ActiveSheet.Paste Application.CutCopyMode = False End Sub -------------------------------------------------------------------------- |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy\paste with vba
polletje,
Just throw away the ActiveSheet.Paste-line --- Message posted from http://www.ExcelForum.com/ |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy\paste with vba
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can't Copy and Paste or Paste Special between Excel Workbooks | Excel Discussion (Misc queries) | |||
Copy, paste without file name referenced after paste | Excel Discussion (Misc queries) | |||
Copy; Paste; Paste Special are disabled | Excel Discussion (Misc queries) | |||
Excel cut/Paste Problem: Year changes after data is copy and paste | Excel Discussion (Misc queries) | |||
I cannot paste from one workbook to another. Copy works, paste do. | Excel Discussion (Misc queries) |