Copy PasteSpecial Not Working

Aug 10, 2006

I've just written a new Excel application which works fine when run on my local PC, and also when I save a copy on a central network server, and run it over the network.

However when another user who's testing it, runs it from the same network server, or on his local PC, the code trips out at the following line of ....

View 9 Replies


Copy/PasteSpecial Not Working

Sep 5, 2009

well heres my code ....

View 14 Replies View Related

Copy Pastespecial Loop

Sep 16, 2009

The following macros will:

I'm desperate for a copy paste macros that will:

1) Copy H3:H143 (141 rows) from "Sheet 1" and place this on "Sheet 2" on D4:D144 (141 rows)

2) Copy I:3:I143 (141 rows) from "Sheet 1" and place this on "Sheet 2" on I4:I144 (141 rows)

So, in essence, it will copy every single column across on "Sheet 1", but will paste every 5 columns on "Sheet 2" .

It will then loop 33 times to continually copy and paste across columns.

View 14 Replies View Related

Copy And PasteSpecial Based On If Statements?

Jun 9, 2013

I have a Workbook which I'm trying to apply the following VBA to (the moment Sheet11 is opened):

If Sheets("Sheet11").Range("B8:B372")=Sheets("Sheet8").Range("F1") - Dates
Sheets("Sheet8").Range("L24").Copy - Numbers
Sheets("Sheet11").Range("B8:B372").PasteSpecial PasteValues.Offset(0,1) (paste into relevant cell in Column C)
Else, 0

I would then like the relevant cell in Column D to be activated. IE: Offset(0,2) so the user can then enter their relevant data - more numbers.

View 9 Replies View Related

Copy & PasteSpecial Failed Error

Jul 18, 2007

This is the code I have:

Range("A" & rr).Copy
Range(Cells(rr, 1), Cells(rr, 38)).Delete Shift:=xlUp
Range("A" & rr).Select
ActiveCell.PasteSpecial xlValues

this code, should, find a cell in row A, copy the contents, then delete the whole row, and place the contents in the cell it lands on after the deletion.

But i get a: 'PasteSpecial method of range class failed'

View 5 Replies View Related

VBA For PasteSpecial Values ONLY?

Nov 25, 2008

I was wondering if there is some VBA code that I can put in my spreadsheet that would only allow Paste Special Values?

I want to make sure that the user can not simply cut and paste. If possible it would be nice if the user doesn't know what is going on all they need to know is that they can copy and paste.

Is there a seamless way to accomplish this?

View 9 Replies View Related

PasteSpecial Method Failed

Jun 26, 2009

I have a working macro that duplicates the active worksheet with values only. It basically cleans out formulas and data validation from the data. The code is:

View 2 Replies View Related

Add PasteSpecial And ClearFormats To VBA Code

Nov 7, 2011

What I am looking for is once I select the worksheet I want copied, I only want the cell values pasted in the new worksheet. In addition, the worksheet should have no cell formats of any kind. I highlighted a part of the code in red where I think the new code should go, but I am not sure.

Option Explicit
Option Compare Text

Sub CopySheet()
Dim sh As String, nm As String
sh = InputBox("Enter the name of the worksheet you want to copy.")
If sh = "" Then Exit Sub

[Code] .........

View 4 Replies View Related

Macro PasteSpecial But Should Not See Moving?

Jun 6, 2014

Not sure how to say that, but I'm trying to write a simple macro to copy some data and pastespecial (Transpose) it somewhere else on the same sheet. But I don't want to see the data "moving".

Here is an example:

Sub Macro1()
Set SCOPE = ActiveSheet.Range("D2:G6")
Set THERE = ActiveSheet.Range("M240")


View 2 Replies View Related

VBA PasteSpecial Format & Values

Jan 14, 2007

I am trying to copy a range from one sheet and paste in another sheet via VBA.

ActiveSheet.Paste Destination:=Range("IV1").End(xlToLeft).Offset(0, 1)
Column E has formulas (=SumB3:D3) nothing more then that. I get a #REF after the paste into the FORCAST sheet.

I would like to Paste Values and Formats.

I tried changing the code to this, with different variations:

ActiveSheet.PasteSpecial Paste:=xlPasteFormats, xlPasteValues _
Destination:=Range("IV1").End(xlToLeft).Offset(0, 1)

But keep comming up with errors.

View 9 Replies View Related

PasteSpecial Format CSV From Recordset

Jul 28, 2008

Currently, my code involves making a connection to a db then run queries. Results from the queries goes to recordset & from the recordset copy to specified range in excel worksheet. I am trying to do an automation process.

The problem is that once the record is pasted in excel worksheet, the date column is not being recognised as date therefore excel function (vlookup) is not giving me the results in my report.

When i do a manual PasteSpecail as CSV into the worksheet from the query result, my report gets populated with data which is correct.

i've tried doing a pastespecial format:="CSV" but it doesnt work.

Is there any codes that i can use to copy from the recordset as a CSV format pastespecial??

Or any other ways that can be done?

View 9 Replies View Related

Copy Tab To New Tab Not Working?

Jan 18, 2013

Sometimes when I right click on a worksheet (filled with formulas, formatting, etc)and select move or copy and then click on "create a copy" a new BLANK tab is created rather than a new worksheet with my data. I'm not sure why this happens sometimes. This usually happens from a spreadsheet I downloaded from a website that I work on.

My workaround is just to copy and past the whole sheet to the newly created tab, but it's frustrating that it doesn't work the normal way.

View 2 Replies View Related

How To Stop PasteSpecial Popup Message

Jul 17, 2013

I have the below code to iterate and copy/paste data.

Application.DisplayAlerts = False
Dim r As Range
Set r = ThisWorkbook.Sheets("POList").Range("A2:A150")


This works fine, but I always get a message saying:

"Data on the Clipboard is not the same size and shape as the selected area. Do you want to paste the data anyway?"

The method completes when I click OK, but I am having to do this hundreds of time as there are a lot of files to be created. Is there a way to stop this message?

View 3 Replies View Related

How To Force Pastespecial To Ignore Message

May 21, 2014

the code below keeps coming up with the "fields are not the same size do you still want to paste" message when I do the pastespecial command - how can I force it to ignore all messages/force the paste? I am running this via an automation script and would prefer not to have a check to click "ok" each time I do this - as all my other pastes don't have this issue

Set objCB= CreateObject("Mercury.Clipboard")
Set objSheet = oEngine.Sheets.Item("vw_Client_RegulatoryDesignation")
With objSheet
Visible = True
End with
objSheet.PasteSpecial Paste =xlValues

View 4 Replies View Related

Pastespecial Of Range Class Failed!

Aug 10, 2009

I wrote the following macro to copy some values from a master workbook to a new one. It works superb on my small test sheet but once I try to implement this on my big mastersheet I only get the "Pastespecial of range class failed" on the second pastespecial operation. Why does it work on my small test sheet and not my big master sheet?

Sub ReportGenerator()
Dim NewWorkbookFileName As String
NewWorkbookFileName = ActiveSheet.Name & " report" & " as of " & ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
'Debug.Print NewWorkbookFileName
Application.CutCopyMode = False
Workbooks.Add xlWBATWorksheet
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Application.GetSaveAsFilename (NewWorkbookFileName)
End Sub

View 9 Replies View Related

Copy Is Not Working From Clipboard

Jul 16, 2014

Iam trying to copy the web page contents into a word document, but i m recieving a below message @ line

"oIE.document.body.createTextRange.execCommand ("Copy")"

Object Doesn't support this property or method

View 7 Replies View Related

Copy Paste To Next Row Not Working

Sep 24, 2013

Sub MoveColumns()
Dim src As Worksheet
Dim tgt As Worksheet


Anyway the above code is meant to take 5 columns of data and paste them in the next row below the last populated row but it keeps overwriting the data already on SheetX.

View 9 Replies View Related

Run-Time Error 1004 PasteSpecial Method

Aug 2, 2006

I am having trouble with a macro that is giving me the error Run-Time error 1004 (Paste Method of Worksheet Class Failed)

The code is

Sub getfile5()

Call getfile(2)

Dim ie As Object
Set ie = CreateObject("internetexplorer.application")


' ie.Visible = False


End Sub

The macro is timing out on the ActiveSheet.Paste entry...The funny thing is that a number of us can get the macro to work and several of us are getting this error...I am thinking that it is a setting in excel that is causing this...

View 8 Replies View Related

Pastespecial Formulas & Formats Pastes Values

Apr 28, 2007

The problem: I am getting values when doing a pastespecial for formulas and formats.

Manually copying and doing a pastespecial with the mouse gives me the correct results. Below is code I got from the forum, "here", and am running in a test workbook.

Option Explicit
Sub Test2()

Dim rSource As Excel. Range
Dim rDestination As Excel.Range
Set rSource = ActiveSheet.Range("A1:C1")
Set rDestination = ActiveSheet.Range("A1").End(xlDown).Offset(1, 0)


Selection.PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, _
SkipBlanks:=False, _

Selection.PasteSpecial Paste:=xlPasteFormulas, _
Operation:=xlNone, _
SkipBlanks:=False, _


Application.CutCopyMode = False

Set rSource = Nothing
Set rDestination = Nothing

Exit Sub

End Sub

Does anyone know why I am getting values? What do I need to do to make this paste only the formats and formulas?

View 9 Replies View Related

Pastespecial Method Of Range Class Failed

Oct 3, 2007

I have written some code to move data from one sheet to another. Since the from sheet has formulas, I use the PasteSpecial command. I have used code like this for years, and all the sudden, this starts breaking. And, here is the fun part, I run the code and it works sometimes. I never know when it will fail. It is so random. This is killing me. I have tried to create objRange object and assign them and it works sometime and fails others. Also, I tried adding the line Worksheets("Daily Dashboard"). Range ("C72").Select before the first PasteSpecial as to select the cell first before pasting. Then I get the "Select method of range class failed".
Lastly, I tried copying the code from behind a worksheet into a new module. The code is triggered by a button on the first worksheet. Still fails.

Private Sub cmdGetData_Click()
[Result1].Value = ""
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Worksheets("Calculation Sheet").Range("A39:A62").Copy
Worksheets("Daily Dashboard").Range("C72").PasteSpecial xlPasteValues
Worksheets("Calculation Sheet").Range("C39:C62").Copy
Worksheets("Daily Dashboard").Range("E72").PasteSpecial xlPasteValues

[Result1].Value = "Complete"
Application.Calculation = xlCalculationAutomatic
Sheets("Control Panel").Select
Application.ScreenUpdating = True
End Sub

View 7 Replies View Related

Copy And Rename Macro Not Working

Jul 16, 2012

I have a workbook contains 2 sheets, Admin & Master. I have a list (A:A) on Admin sheet having dates based on a drop down menu somewhere on other side on the sheet. I am running the below customized code that i found online to copy the Master sheet and then it should get renamed as per list (A:A).

Public Sub CopyRenameIt()
' Determine how many territories are on Admin sheet
FinalRow = Range("H65000").End(xlUp).Row


View 1 Replies View Related

Vba Copy Paste Between Workbooks Not Working

Jun 2, 2008

Why isn't my copy and paste working between workbooks? We use excel 2000. I've resorted to using a lot of selection because I can't seem to figure out what is going on otherwise...

I'm sure this should be much simpler...

Sub PortData()
Dim wbA As Workbook, wbB As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, ws4 As Worksheet, ws5 As Worksheet, ws6 As Worksheet
Dim sPath As String, sName As String, bTextSwitch As Boolean
Dim nLast As Long
Dim i As Long

View 9 Replies View Related

PasteSpecial Error: Method Of Range Class Failed

Apr 12, 2007

Check Personnel Number in Data Tab with Personnel Numbers in Insert Tab. If they match copy that row from Insert Tab and paste it into the next available row in the Moves Tab.

Column Descriptions: Name, Age, Phone Number, Personnel Number, Notes

Worsheet Tabs: Data, Insert, Moves ....

View 9 Replies View Related

Error :: PasteSpecial Method Of Range Class Failed

May 5, 2008

I found the following for something that I was searching for on the web.

Selection.Columns.PasteSpecial Paste:=8

My question is two fold, 1) What does the '8' mean? 2) Is there someplace that tells me what other numbers for PasteSpecial mean?

This solved a problem that I had when trying to do a PasteSpecial for Column Width. What I had been trying was the following:

Selection.PasteSpecial Paste:=xlColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

But I would get the error run time error '1004', PasteSpecial method of Range class failed.

View 9 Replies View Related

Indexing Not Working On Copy / Paste Text?

Feb 6, 2014

I copied and pasted text (last names) from Website A into File A. Then did the same from Website B into File B. I wrote index match formulas to compare columns between files. I've done this literally hundreds of times, and it's always worked. This time, however, I get ZERO matches - even though there are lots of them. Troubleshooting was straight-forward: it has to be website B. (Strange thing is, I HAVE used text from website B before in similar applications with no problems.) Something in the way they present the data is preventing matches. (Everything works when I manually type over text from Website B.) It's not an upper case/lower case problem. I tried copy-pasting values only - to no avail.

View 4 Replies View Related

Copy Worksheet To An Existing Workbook Not Working

May 30, 2007

I have a user who is trying to use <EDIT><MOVE OR COPY SHEET> to copy a sheet to an existing workbook. She has them in the same directory and has them both open, but when she tries to copy a sheet from either of them to the other, the only workbook listed in the "TO BOOK" drop down menu is the one she is in. NO other workbooks show up as an option for her to copy to.

View 12 Replies View Related

Copy Macro From Multiple Worksheets Not Working

Jun 19, 2014

I have the following code:

[Code] .....

I'm getting a Run tim error 438 object doesn't support this property or method for the If ws line. All i'm trying to do is copy the A column results starting at A5 from each worksheet listed into the active worksheet starting at A128. hiding any blank cells or cells with errors (I.e. #N/A) would be great as well.

View 4 Replies View Related

Worksheet Copy And Rename Not Working As Intended

Oct 11, 2009

I've got a Workbook that contains the following worksheets:

1. conversion(2) - Hidden
2. Old Data - Hidden
3. Blank Form

I want to copy "Blank Form" once for each day of the month.
I'd like to rename each copied worksheet with the Date (i.e. Oct 01 2009)

Here's what I'm working with:

Sub Copysheets ()

Worksheets("Blank Form").select

Dim x As Integer

For x = 1 to 30

Worksheets(1).Copy after: =Worksheets(x)
Worksheets(x+1).Name=Format(DateSerial(2009, 20, x), "MMM-DD-YYYY")

Next x

End Sub

The problem I'm having is that the first sheet to be copied is the "Old Data" worksheet and the copy is renamed Oct-01-2009. After that the correct Worksheet is copied and renamed Oct-02-2009 and so on.

I can't figure out why it's copying the "Old Data" worksheet first.

View 9 Replies View Related

Data Copy & Paste Macro Not Working

Oct 26, 2009

dear friends when i am enter data manually this macro work fine.but same data I'm copy & paste macro not working.pls help me..

Dim c As Range, MyString As String
Application.ScreenUpdating = False
For Each c In Range("J3", Range("J" & Rows.Count).End(xlUp))
MyString = Cells(c.Row, 6) & Cells(c.Row, 7) & Cells(c.Row, 8)
Select Case UCase(MyString)
Case "5000MSSP40/2"
c.Offset.Offset(, 1).FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1]*0.145)"
Case "4000MSSP40/2"
c.Offset.Offset(, 1).FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1]*0.115)"
Case "2000MSSP40/2"
End Select
Next c
Application.ScreenUpdating = True
End Sub

View 9 Replies View Related

Run-time Error 'PasteSpecial Method Of Worksheet Class Failed'

Nov 26, 2008

I have a pretty simple macro that I recorded and attached to a button. The macro is:
Sub Paste_Data()

ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
End Sub

The user opens the file that contains this macro, then runs a report from a website that dumps into an excel file. They copy the data from the Book1 output, then click the button to paste it into the template. If done this way, it works fine.

However, if they run the report and get Book1 THEN open the file containing the macro, they get a run-time error 'PasteSpecial method of Worksheet class failed' on the 'ActiveSheet.PasteSpecial... line

View 9 Replies View Related

Copyrights 2005-15, All rights reserved