Make Your Microsoft Dynamics Investment Count & Drastically Decrease Training Time by Providing Intuitive Step-By-Step WalkThru Tutorials.
Course Of The Month
8 days, 6 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Error 1004 paste special - Excel VBA
Posted on 2011-09-09
Hi,
When I add "Selection.ClearContents" in the code, I have an error message (1004 paste special) on :
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False.
Without that code "Selection.ClearContents",
How to clear the cell contents?
Thanks
When I add "Selection.ClearContents" in the code, I have an error message (1004 paste special) on :
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False.
Without that code "Selection.ClearContents",
How to clear the cell contents?
Thanks
'Copy
Sheets("Corriger les donnees").Select
Columns("D:k").Select
Selection.Copy
'Paste
Sheets("Exporter les donnees").Select
Sheets("Exporter les donnees").Activate
Sheets("Exporter les donnees").Columns("A:h").Select
Selection.ClearContents '??????
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
3-
2
-
2
8 Comments
I think the CC interrupts the copy/paste. Try this:
With Sheets("Exporter les donnees").Columns("A:h")
.ClearContents
Sheets("Corriger les donnees").Columns("D:k").Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Active today
ClearContents emptied the copy buffer. Try:
With Worksheets("Exporter les donnees")
.Range("A:h").ClearContents
Worksheets("Corriger les donnees").Range("D:k").Copy
.Range("A:h").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Application.CutCopyMode = False
Indeed Patrick, except emptying the copy buffer is much better!
You can request attention. I think the fairest thing would be to split the points 50-50.
You can request attention. I think the fairest thing would be to split the points 50-50.
Featured Post
Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
A little background as to how I came to I design this code:
Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
Freeze panes is an option within all variants of Excel to enable parts of a sheet to remain stationary when the cursor is in another part of the sheet. This is a very useful feature which is overlooked or under used.
The viewer will learn how to create two correlated normally distributed random variables in Excel, use a normal distribution to simulate the return on different levels of investment in each of the two funds over a period of ten years, and, create a …
This Micro Tutorial will demonstrate in Google Sheets how to use the HYPERLINK function to create live links inside your spreadsheet.
Suggested Courses
Course of the Month8 days, 6 hours left to enroll
729 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.