[RESOLVED] Copy Paste Selection Change Macro Clearing Clipboard

[tome10]

Ever since I started messing with VBA, this problem has Plagued me. There has to be a way to deal with it.

I do a lot of Copy and Pasting around the Sheets/Workbook, and I made a code that Error Checks my editing. I would like this error check code to work with the Selection Change Code Type (I don't know what that is called). But, it erases the cipboard when I select the cell I want to paste to.

Is there a way to say If Ctrl-C / Copy Mode is active, then exit subject?

[westconn1]

you can try

if application.cutcopymode = true then exit sub

but i do not know if that is actually what you want

[kaliman79912]

Here's an idea: Why don't you just fill the data using the other cell's value instead of copy - paste. That consumes less resources, runs faster and will not trigger your event.

Instead of:

Range("B10").Select
Selection.Copy
Range("D10").Select
ActiveSheet.Paste

Use this:

Range("D10").Formula = Range("B10").Formula

[tome10]

I couldn't get this to work. When I put an End If at the end of the Macro, it kept saying End If without Block If. Does Then Exit Sub not require an End If? It doesn't work, the macro still runs.

if application.cutcopymode = true then exit sub

This works;

if application.cutcopymode=false then
do macro

I've thought about doing this, but sometimes the info is not the same.

Range("D10").Formula = Range("B10").Formula

The goal is to circumvent the Selection Change Macro from exiting CutCopyMode and wiping the Clipboard.
So why wouldn't this statement work?

if application.cutcopymode = true then exit sub

Can you think of any other ways?
Can put a code in the beginning that backs up the clipboard somehow? I mean you can programatically copy paste, so why does any other macro clear the Clipboard?

[kaliman79912]

Show us where are you cutting and where are you pasting. I do not think of a case where you can't do it with assignments instead of using the clipboard. The same way you select the source cells and destination cells you can select them for the assignment.

[tome10]

I do not think of a case where you can't do it with assignments instead of using the clipboard

Are you talking about hard coding like this?

Range("D10").Formula = Range("B10").Formula

I could do that, but I like to copy and past things all over the place. Think Picasso with the Copy paste haha! I need my helper (Error Check) macro to not wipe the clipboard.

This works, but you have to double click a cell to get out of copy paste, and then click somewhere to get the Macro to run. I mean that's ok, but that's a lot of clicking for a lazy person.

if application.cutcopymode=false then
do macro

Anybody know why when a Macro Runs it clears the Clipboard? Maybe that should be an option.

[kaliman79912]

again, either way its easier to do an assignment in code than a copy paste. But you fail to provide the code where you are doing your copy-paste so I can tell you where you can change all that and save on resources, code, risk and that issue that is bugging you.

If you are doing code it is seldom better to do a copy-paste combination and only in very special sircumnstances.

Please show me your bit of code where you do the copy and paste.

[tome10]

No no, I'm Copy and Pasting (ctrl-C, ctrl-V) the macro I want to run in the Selection Change is just doing some checks on my work. Problem is, when I do ctrl-C, and then select a cell, the Selection Change code fires, and wipes the Clipboard or it's exiting Cut Copy Mode. Not sure which it's doing.
Understand?

[westconn1]

I couldn't get this to work. When I put an End If at the end of the Macro, it kept saying End If without Block If. Does Then Exit Sub not require an End If? It doesn't work, the macro still runs.

you do not need an end if if the whole condition is on a single line

if application.cutcopymode = true then exit sub

is the same as

if application.cutcopymode then 
    exit sub
end if

[tome10]

These 2 methods appear to exit sub when I step through the code with a cell in copy mode. However, when I actually copy the cell and 'click the cell to paste in', it deactivates copy paste mode. Ideas why that is?

If Application.CutCopyMode Then Exit Sub

If Application.CutCopyMode = 1 Then Exit Sub

Nevermind, was messing with the wrong sheet. It works