Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Exit code
hi, I have a quick ? I'm guessing it's easy but I can't find the answer. I
have some code that ends up copying something and then pasting it into a tab correctly but seems to hang up on it after it pastes with this below: Select destination and Press Enter or Choose Paste is there something I can add to it so that it'll get out of that mode? here's my code Worksheets(CStr(Trim(wsSource.Range("A12")) & " Platform")).Activate Range("I7:N19").Select Selection.Copy ws.Activate target.Offset(3, 0).Select Selection.PasteSpecial Paste:=xlPasteValues Selection.PasteSpecial Paste:=xlPasteFormats Thank you!!!!! : |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Exit code
You probably want:
Application.CutCopyMode = False at the end of the snippet. That kills the marching ants. "Heather" wrote in message ... hi, I have a quick ? I'm guessing it's easy but I can't find the answer. I have some code that ends up copying something and then pasting it into a tab correctly but seems to hang up on it after it pastes with this below: Select destination and Press Enter or Choose Paste is there something I can add to it so that it'll get out of that mode? here's my code Worksheets(CStr(Trim(wsSource.Range("A12")) & " Platform")).Activate Range("I7:N19").Select Selection.Copy ws.Activate target.Offset(3, 0).Select Selection.PasteSpecial Paste:=xlPasteValues Selection.PasteSpecial Paste:=xlPasteFormats Thank you!!!!! : |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Exit code
Worksheets(CStr(Trim(wsSource.Range("A12")) & "
Platform")).Range("I7:N19").Copy with target.Offset(3, 0) .PasteSpecial xlPasteValues ..PasteSpecial xlPasteFormats end with application.CutCopyMode = False "Heather" wrote: hi, I have a quick ? I'm guessing it's easy but I can't find the answer. I have some code that ends up copying something and then pasting it into a tab correctly but seems to hang up on it after it pastes with this below: Select destination and Press Enter or Choose Paste is there something I can add to it so that it'll get out of that mode? here's my code Worksheets(CStr(Trim(wsSource.Range("A12")) & " Platform")).Activate Range("I7:N19").Select Selection.Copy ws.Activate target.Offset(3, 0).Select Selection.PasteSpecial Paste:=xlPasteValues Selection.PasteSpecial Paste:=xlPasteFormats Thank you!!!!! : |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Exit code
thank you :) Works perfectly :)
"Patrick Molloy" wrote: Worksheets(CStr(Trim(wsSource.Range("A12")) & " Platform")).Range("I7:N19").Copy with target.Offset(3, 0) .PasteSpecial xlPasteValues .PasteSpecial xlPasteFormats end with application.CutCopyMode = False "Heather" wrote: hi, I have a quick ? I'm guessing it's easy but I can't find the answer. I have some code that ends up copying something and then pasting it into a tab correctly but seems to hang up on it after it pastes with this below: Select destination and Press Enter or Choose Paste is there something I can add to it so that it'll get out of that mode? here's my code Worksheets(CStr(Trim(wsSource.Range("A12")) & " Platform")).Activate Range("I7:N19").Select Selection.Copy ws.Activate target.Offset(3, 0).Select Selection.PasteSpecial Paste:=xlPasteValues Selection.PasteSpecial Paste:=xlPasteFormats Thank you!!!!! : |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Exit Code Upon Cancel On Type 8 Input Box | Excel Discussion (Misc queries) | |||
Execute vba code on cell exit | Excel Discussion (Misc queries) | |||
Execute vba code on cell exit | Excel Programming | |||
Correct code to Exit Userform, with out Unloading data | Excel Programming | |||
Code to Exit Excel | Excel Programming |