Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Paste Macro not Pasting Values when Blank
I recorded a Macro to copy values(only) from 1 sheet to another.
It all works great, except for one range of cells(one with Arrow). Why ? And how do i fix it? The rest is Ok. Code Recorded: Sub ReplaceOriginalValues() Sheets("OriginalValues").Visible = True Range("B9:B48").Select Selection.Copy Sheets("CostingSheet").Select Range("B9:B48").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ,<=== Not Pasting Correctly Sheets("OriginalValues").Select Range("AG13:AG23").Select Application.CutCopyMode = False Selection.Copy Sheets("CostingSheet").Select Range("AG13:AG23").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Sheets("OriginalValues").Select Range("AJ9:AK48").Select Application.CutCopyMode = False Selection.Copy Sheets("CostingSheet").Select Range("AJ9:AK48").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Sheets("OriginalValues").Select Range("AG26:AG28").Select Application.CutCopyMode = False Selection.Copy Sheets("CostingSheet").Select Range("AG26:AG28").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Sheets("OriginalValues").Select Range("AG31").Select Application.CutCopyMode = False Selection.Copy Sheets("CostingSheet").Select Range("AG31").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Sheets("OriginalValues").Select Range("AG34:AG48").Select Application.CutCopyMode = False Selection.Copy Sheets("CostingSheet").Select Range("AG34:AG48").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Sheets("OriginalValues").Select Range("AL42").Select Application.CutCopyMode = False Selection.Copy Sheets("CostingSheet").Select Range("AL42").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Sheets("OriginalValues").Select Application.CutCopyMode = False ActiveWindow.SelectedSheets.Visible = False Sheets("CostingSheet").Select Range("B3").Select End Sub -- Corey .... The Silliest Question is generally the one i forgot to ask. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro - Copy/Paste Special to Next Blank Line | New Users to Excel | |||
Macro for copy and paste values | Excel Discussion (Misc queries) | |||
Need macro to check if cell is not blank & previous cell is blank, copy information from row above & paste | Excel Programming | |||
using macro to copy and paste filtered results, what if blank? | Excel Worksheet Functions | |||
Macro copy and paste = blank worksheet | Excel Discussion (Misc queries) |