Cannot copy merged cell to a single cell
Hi
I've created a macro to copy two values to another part of the sheet.
The original cell is merged and the goal cell is not.
Normally this is not a problem, but since I started to protect the
sheet the problem has risen.
I have an idea that i cannot copy the merged cell since the cell next
to the goal cell is locked. The goal cell is not locked.
I need the cell after the goalcell to be locked so I cannot change
that.
Any ideas on how to get around this? Maybe rewriting the paste line?
Macro below:
Range("C8").Select
Selection.Copy
Range("C17").Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas,
LookAt:=xlPart, Searchorder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:=False, SearchFormat:=False).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("G8").Select
Selection.Copy
Range("E17").Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas,
LookAt:=xlPart, Searchorder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:=False, SearchFormat:=False).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Thank you for any help.
|