Clearing Clipbaord problem

[adyan76]

Hi freinds,

I was currently trying to delete my clipbaord because it copies a lot of data and it has slowed down the macro a bit.
I have tried with the following code but it is not working

Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long 
Public Declare Function EmptyClipboard Lib "user32" () As Long 
Public Declare Function CloseClipboard Lib "user32" () As Long 
 
Sub ClearClipboard() 
    OpenClipboard (0&) 
    EmptyClipboard 
    CloseClipboard 
End Sub  

application.cutcopymode=false  

on the other just deactivates it which I dont want. Any ideas from your side.
Thanks in advance

[romperstomper]

If you are talking about the Office clipboard, as opposed to the Windows clipboard, then the API functions won't work.
If possible you should do your copy/paste in one line, using the Destination argument of the copy method.

[Macdave_19]

hi dude, i had this problem before and this was the solution:

Please Login or Register  to view this content.

Then just execute

EmptyClipboard

[romperstomper]

I'm struggling to see how that is different from what was posted originally?

[Macdave_19]

yeah good point actually romper?

it's a little diff but nothing to say it shouldn't work the same.

it worked fine on my workbook?

adyan76 how are you calling the function and where?

[romperstomper]

it's a little diff

only in as much as there's a check to see the OpenClipboard returned a value! (The actual functions are all exactly the same)

[Macdave_19]

what can i say i'm nit picking lol!! ha ha ha

[adyan76]

the following code is collectiong the data in clipboard

  Range("A:A").EntireColumn.Hidden = True 
    Columns("F:F").Copy 
    Columns("B:B").Insert Shift:=xlToRight 
    Range("G:G,I:I").Delete Shift:=xlToLeft 
    Columns("M:M").Copy 
    Columns("I:I").Insert Shift:=xlToRight 
    Columns("N:N").Delete Shift:=xlToLeft 
    Columns("Q:Q").Copy 
    Columns("J:J").Insert Shift:=xlToRight 
    Columns("R:R").Delete Shift:=xlToLeft 
   Range("A:A,O:O,R:R,S:T,U:U,V:W,AB:AB,AJ:AJ,CI:CK,AG:AI,AK:AK,AN:AS,AU:CH,CL:CL").EntireColumn.Hidden = True 
    Range("B1").Activate  

I had the same issue in other part of code and by using destination command together with copy i fixed it like

 Selection.Copy Destination:=Sheets("xyz").Range("n65536").End(xlUp).Offset(1, -13)  

but how can I do the same with the code written above.
Thanks for your responces and sorry for my laste response.

[romperstomper]

Insert the destination columns first, then do the copy and paste directly.