ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Why Application.CutCopyMode giving problem (https://www.excelbanter.com/excel-programming/361689-why-application-cutcopymode-giving-problem.html)

Kieranz

Why Application.CutCopyMode giving problem
 
Hi
When I start Excel2003, I can copy, cut and then paste. But when I go
to VBE and even just create Sub ... End Sub without any codes and go
back to Excel sheet problems...
I type 'dfsdf' in a cell, and then copy (using Ctrl C, Edit Copy, Copy
icon, right click shortcut menu, tried them all) the moving borders
flashes for a while and then stops. meaning I can't paste. I have a
strange feeling that its something to do with cutcopymode which I used
in another workbook.

Yes I tried Clipboard, which works but without formats and formulas.

Help appreciated
Kieranz


Gary''s Student

Why Application.CutCopyMode giving problem
 
You haven't posted your code. Try something like this:


Sub copysample()
Dim r1, r2 As Range
Set r1 = Range("A1")
Set r2 = Range("B2")
r1.Copy r2
End Sub


This works on the active sheet.
--
Gary's Student


"Kieranz" wrote:

Hi
When I start Excel2003, I can copy, cut and then paste. But when I go
to VBE and even just create Sub ... End Sub without any codes and go
back to Excel sheet problems...
I type 'dfsdf' in a cell, and then copy (using Ctrl C, Edit Copy, Copy
icon, right click shortcut menu, tried them all) the moving borders
flashes for a while and then stops. meaning I can't paste. I have a
strange feeling that its something to do with cutcopymode which I used
in another workbook.

Yes I tried Clipboard, which works but without formats and formulas.

Help appreciated
Kieranz



Kieranz

Why Application.CutCopyMode giving problem
 
Hi Gary
I tried your code, but still it does not work. If there is no codes or
VBA I can use cut/copy and paste as normal on any sheet. But when I
write a code even Sub Hello() MsgBox "Hello" End Sub. (There is no
other codes) the copy paste does not work.

To see what was happening. I rebooted, opened Excel with only 3 blank
sheets. Typed in sheet1 Cell B9 "dfsdf" started macro recorder and then
pressed Cntl C to copy B9 to B10.
this is what the recorder produced!!
Sub trycopy()
Selection.Copy
Application.CutCopyMode = False
Range("B10").Select
Selection.Cut
Application.CutCopyMode = False
Range("B9").Select
Selection.ClearContents 'this worked
Range("B14").Select
End Sub

The copy showed a moving border for few seconds and then the paste
failed.
I dont know if there is a feature that could have been disabled.
Thks
K


Gary''s Student

Why Application.CutCopyMode giving problem
 
I tried to reproduce what you did:

1. entered dfsdf in cell B9
2. turned on the Recorder
3. re-selected B9
4. CNTRL-C
5 selected B10
6 CNTRL-V
7 turned off the Recorder

This is what got recorded:

Sub Macro2()
Range("B9").Select
Selection.Copy
Range("B10").Select
ActiveSheet.Paste
End Sub

and it works.
--
Gary's Student


"Kieranz" wrote:

Hi Gary
I tried your code, but still it does not work. If there is no codes or
VBA I can use cut/copy and paste as normal on any sheet. But when I
write a code even Sub Hello() MsgBox "Hello" End Sub. (There is no
other codes) the copy paste does not work.

To see what was happening. I rebooted, opened Excel with only 3 blank
sheets. Typed in sheet1 Cell B9 "dfsdf" started macro recorder and then
pressed Cntl C to copy B9 to B10.
this is what the recorder produced!!
Sub trycopy()
Selection.Copy
Application.CutCopyMode = False
Range("B10").Select
Selection.Cut
Application.CutCopyMode = False
Range("B9").Select
Selection.ClearContents 'this worked
Range("B14").Select
End Sub

The copy showed a moving border for few seconds and then the paste
failed.
I dont know if there is a feature that could have been disabled.
Thks
K



Kieranz

Why Application.CutCopyMode giving problem
 
Hi Gary,
This is what i did
1. entered fdsfsd in cell B9
2. turned on the Recorder
3. Reselected B9
4. Pressed Cntrl C

'PS at this stage i had a moving border or marquee around the cell
but within seconds it disappeared and i couldnt do paste.
By the way this is on a brand new workbook/sheet with no other workbook
open or VBA in it.
This is what got recorded:
Sub tryy()
Range("B9").Select
Selection.Copy
Application.CutCopyMode = False
Range("B10").Select
End Sub
Very different from yours.
Gary, if i do not have any vba codes in my workbook the copy/cut and
paste performs as it should. But the moment i write a code even if it
is just a blank sub ... end sub with no codes in between; i am unable
to use the paste.
Pls excuse me, i am in Zambia Africa on dial up. I have discussed with
a number of IT chaps here but no luck. will catch up with U tomorrow.
Mny thks and rgds K



All times are GMT +1. The time now is 03:00 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com