Free Microsoft Excel 2013 Quick Reference

data on the clipboard in not the same size and shape

Hi Guys

I get the message "data on the clipboard in not the same size and shape" when I copy and paste in excel 2007. I am copying a formula from 1 cell to another of a group of cells.


Post your answer or comment

comments powered by Disqus
Hi Guys
I get the error "data on the clipboard in not the same size and shape when I copy a formula for one cell to another on the same spreadsheet in the same workbook. This only happend in this particlular spreadsheet. Please help!!


Hi guys,

I get the following erro message "Data on the clipboard is not the same
size and shape as the selected area.." when copying and pasting one row
over an identical row. Both rows go from columns A to IV. Both should be
identical - Have merged cells and hidden columns in both.

the second part of the error message is "Do you want to paste
anyway...?" when I say yes it pastes BUT the headers that where
previously merged are now unmerged?

How can I fix....?

Thanks

D

*** Sent via Developersdex http://www.developersdex.com ***

i get the error "data on the clipboard is not same size and shape as the selected area,do you want to paste it anyway"
and is i click yes i get an extra columns with some weird data
could any one please let me know how i could remove this or set the size or do anything to get my data pasted properly.......please help.......
its urgent...:-(

Hi,

Since yesterday, I'm not able to paste properly anymore in Excel.
If I enter a formula in a cell, copy this and paste it in another cell (CTRL+V), it only pasts the value, not the formula itself.
If I copy the formula and click Paste Special, I'm only given the option to paste as Text or Unicode text.

If I copy the contents of a cell (CTRL + C) and try to paste it in multiple selected cells at once, using CTRL + V, I get the error "data on the clipboard is not same size and shape as the selected area, do you want to paste it anyway"
If I then say Yes, it only pastes the content in the 1st selected cell, the other selected cells it leaves empty.

What does work is copying a formula by pulling it down, using the cross at the bottom right of the cell.

I'm using Office 2007 on a Windows XP computer. I have already re-installed Office, but this hasn't helped. I have opened the same document on a different computer, without any difficulties.

Anyone any suggestion on how I can fix this?

A couple of days ago, I started having trouble copying and pasting. The error message: data on clipboard is not the same size and shape as the selected area. Do you want to paste anyway? I have tried clearing the clipboard but it won't allow me to copy and paste formulas. It also appears to be clipped to Word. When I close Excel and reopen it the data is still on the clipboard. Any ideas?

Hello,

I am using a macro that copies a range of cells, adds a new sheet, paste data into new sheet, renames sheet with the value in C3, selects range A3:C3, copies data, selects Audit Tracker (worksheet), selects A3, inserts row and then I get this error...

RunTime Error 1004
The information can not pasted because the copy and the paste area are not the same size and shape. Try one of the following:

Select one cell and then paste,
Select a rectangle that is the same size and shape, and then paste.

I must not be thinking about this because I am confused. In the vb code it selects only one cell A3, however it is a newly inserted row.

Any ideas?

The reason for the new row is so that it does not replace the data that already exist.

Here is the code:
Code:
Sub Worksheet_Activate()
'
Range("A1:C3").Select
    Selection.copy
    Sheets.Add
    Range("A3").Select
    Range("A1").Select
    ActiveSheet.Paste

   ActiveSheet.Name = Sheets("Audit Form").Range("A3").Value
   Range("A3:C3").Select
    Selection.copy
    Sheets("Audit Tracker").Select
    Range("A3").Select
    Selection.EntireRow.Insert
    ActiveSheet.Paste
    
    Application.CutCopyMode = False
    
Application.ScreenUpdating = False
Dim cell As Range
For Each cell In Columns(3).SpecialCells(2)
ActiveSheet.Hyperlinks.Add _
Anchor:=cell, _
Address:="", _
SubAddress:=cell.Value & "!A1"
Next cell
Application.ScreenUpdating = True


End Sub

Thanks for your time.

Is there away in Excel to disable the prompt "There is a large amount of
data on the clipboard..."

Thanks,
Bill

The below macro works fine the first time (Then portion of the IF statement) but when it runs into a situation where Else needs to be used I get an error.
When I do the process manually I get "The information cannot be pasted because the Copy area and the paste area are not the same size and shape" error, how do I avoid this when I run the macro?

Dim range1 As Range
Dim range2 As Range

Set range2 = Sheets("A").Range("A1")
Set range1 = Sheets("B").Range("A1")

Sheets("A").Activate
range2.Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

If IsEmpty(range1) Then
Cells.Select
range1.PasteSpecial Paste:=xlPasteValues
Else

range1.End(xlDown).Offset(2, 0).PasteSpecial Paste:=xlPasteValues
End If

Thanks a lot!

Hey, sorry to bother you for something that's probably obvious, but it's so obvious I can't seem to find the answer by searching...

I am trying to copy a range form one worksheet and paste it into another. Most of the time it works, but every once in a while I get a 1004 error saying that the areas are not the same size and shape so I can't paste.

I can't figure out why, since I am pasting the range to a only the top left cell, and I thought that was always ok. What's up?

Sheets("Phases").Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy Destination:=Sheets("summary").Range("A4")

And, yes I know there are too many selects in the above code, but I don't know how to fix it...

Thanks again for any suggestions! I'd understand if it never worked, but when it usually works, it doesn't make sense.

Thanks!

I want to put some data on the clipboard and retreive it but using a custom
format.
I tried the code below. I run myCopy and it works fine but myPaste fails
when trying to retreive the data (myStr = myDataObj.GetText("myFormat"))
with the error message:
Dataobject: Gettext invalid FORMATETC structure.

Can someone help me make this work. I want to use a custom format because I
also want to keep some standard text data in the clipboard.

Thanks
Fred

Sub myCopy()
Dim myDataObj As DataObject

Set myDataObj = New DataObject
myDataObj.SetText Selection.Cells(1).Value, "myFormat"
myDataObj.PutInClipboard
Set myDataObj = Nothing
End Sub

Sub myPaste()
Dim myStr As String
Dim myDataObj As DataObject

Set myDataObj = New DataObject
myDataObj.GetFromClipboard
myStr = myDataObj.GetText("myFormat")
MsgBox myStr
Set myDataObj = Nothing
End Sub

I have identical data on the same page. I plan on using perforated paper so that I can print one at the top and one at the bottom of the page. Each centered in it's own area.

Is there a way to center each on the upper and lower portion of a page? I was thinking of a page break, but that prints on separate paper.

Thanks,
Nick

Hi

I hope someone can help me, I have created a spreadsheet that comtains a Master list of people by companyy branch, and a seperate worksheet that contains the template for the Branch List. I created 2 macros the first works fine and goes throufght the master list creating a new worksheet for each branch,copying the template to the new sheet and modifying the branch code.
The 2nd Macro should read each row in the master list and inserrt the Row into the respective Worksheet

This is the code it works in Excel 2003 on my Windows 7 (64 bit) laptop but not on the clients XP box. It throws up error 1004 The information Cannot be pasted because the copy area and the paste area are notthe same size and shape.

Sub CopyDataToBranch()
' Copy data from Master List to branch sheets

Dim LBranch As String
Dim LColumn As Integer
Dim LFound As Boolean
Dim LLastSheet As Integer
Dim NRow As Integer

' On Error GoTo Err_Execute
Sheets("Master List").Select
FinalRow = Range("A65000").End(xlUp).Row
LLastSheet = Sheets.Count
' for every branch
LRow = 3
i = 4
'Retrieve branch value to search for
LBranch = Sheets(i).Name
NRow = 3

Sheets("Master List").Select

'Start at column B
LFound = False

For x = LRow To FinalRow

'Encountered blank cell in row 2, terminate search
Sheets("Master List").Select
nbranch = ((Range("B" & LRow).Value - 8000) * 1000)
'MsgBox ("Branch=" & LBranch & ":" & nbranch)

If nbranch = LBranch Then

'Select values to copy from "Master List" sheet
Sheets("Master List").Select
strng = "A" & x
endrng = "I" & x
Set rng = Range(strng & ":" & endrng)
'MsgBox (strng & ":" & endrng)
rng.Select
'MsgBox ("here 2 ")
Application.CutCopyMode = False
Selection.Copy
'Paste onto "Branch" sheet
Sheets(LBranch).Select
Range("A" & NRow).Activate
Range("A" & NRow).Select
ActiveCell.Offset(1).EntireRow.Insert ** This is the line it errors on
'MsgBox ("nrow = " & NRow)
strng = "A" & (NRow + 1)
endrng = "I" & (NRow + 1)
Set rng = Range(strng & ":" & endrng)
'MsgBox (strng & ":" & endrng)
rng.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

LFound = True
NRow = (NRow + 1)
LRow = (LRow + 1)

'Continue searching
Else
' update total collected row with formulas
totcolrow = (NRow + 2)
totrow = (NRow + 4)
Worksheets(LBranch).Range("D" & totcolrow).Formula = "=SUM(D4:D" & NRow & ")"
Worksheets(LBranch).Range("E" & totcolrow).Formula = "=SUM(E4:E" & NRow & ")"
Worksheets(LBranch).Range("G" & totcolrow).Formula = "=SUM(G4:G" & NRow & ")"
Worksheets(LBranch).Range("H" & totcolrow).Formula = "=SUM(H4:H" & NRow & ")"
'
i = (i + 1)
LBranch = Sheets(i).Name
Sheets(LBranch).Select
NRow = 3
'Select values to copy from "Master List" sheet
Sheets("Master List").Select
strng = "A" & x
endrng = "I" & x
Set rng = Range(strng & ":" & endrng)
'MsgBox (strng & ":" & endrng)
rng.Select
'MsgBox ("here 2 ")
Application.CutCopyMode = False
Selection.Copy
'Paste onto "Branch" sheet
Sheets(LBranch).Select
Range("A" & NRow).Select
ActiveCell.Offset(1).EntireRow.Insert
'MsgBox ("nrow = " & NRow)
strng = "A" & (NRow + 1)
endrng = "I" & (NRow + 1)
Set rng = Range(strng & ":" & endrng)
'MsgBox (strng & ":" & endrng)
rng.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

LFound = True
NRow = (NRow + 1)
LRow = (LRow + 1)
End If
Next x
MsgBox ("End of " & i & "- " & nbranch & "/ " & LBranch)

On Error GoTo 0

Exit Sub

Err_Execute:
MsgBox "An error occurred."

End Sub

Any help would be greatly appreciated.

Sue

I am pasting data from one Excel workbook onto another with VBA code in an Access database. It works but I get the error message

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

The problem is I'm trying to do this in code and when I record the process with the macro recorder there is not statement for the click OK step, just

Cell.Select
ActiveSheet.Paste

How can I either avoid this message or click the OK in code?

Dear All,

I am in filtered mode and a column cells contains formulae.
while remain in filtered mode and copying all those filtered cell contains
formulae and pasting
as value the following error encountered.
The information can not be pasted becoz copying area and paste area not the
same size and shape.
Try one of the following:

click on a single celland then paste.
Its to difficult to copy each cell and pasting as value becoz no of cell is
more than thousands.

Please can i have any option to overcome this problem ?????

Please assist ?

Rgds,

Aligahk06

I am using Excel 2007 SP2. When I try to copy a formula using Ctrl+C / Copy button and paste using Ctrl+V or paste button, only the copied value is pasted.

If I copy using Ctrl+C in C1 and then select cells C2-C3 and try to paste using Ctrl+V, I get a message that the data on the clipboard is not the same size and shape as the selected area, do you want to paste the data anyway?

I also tried to cut any cell value but instead of cut it is copying the value.

Format painter is not also working.

I've tried rebooting, repair, re installation of Excel, all to no avail. Please suggest a solution...

I'm not even sure if this is possible, but this is an example of the data I'm working with:

Date Value 1 Value 2
11/9/2011 18:31 Option 1 2
11/9/2011 17:08 Option 1 3
11/9/2011 16:14 Option 1 4
11/9/2011 15:13 Option 1 0.4
11/8/2011 21:45 Option 1 0.2
11/8/2011 4:58 Option 1 1.5
11/7/2011 5:18 Option 1 1.6
11/6/2011 5:12 Option 1 4
11/5/2011 3:58 Option 1 8
11/4/2011 9:10 Option 1 7
11/4/2011 3:47 Option 2 1.6
11/3/2011 4:14 Option 1 3
11/2/2011 3:46 Option 1 2.8
11/1/2011 9:51 Option 1 4
11/1/2011 4:07 Option 1 6.4

What I need to be able to do is add the cells in column 3 based on the dates in column 1. If there are multiple rows in column 1 with the same date, I need Excel to add together the corresponding cells in column 3. Is this even possible?

I am actually doing this from Access but in order to simply and try to isolate the issue I have put it into a simple macro in excel.

I have a chart on a worksheet on which I want to re-format the default format of the series line & markers. If I right click on the series line interactively and select "Format Data Series", select "Shadow" the select a "Preset" shadow, it applies the shadow to the Marker 'which is exactly what I want.

However, when I try to do this from VBA, it applies the shadow formatting to the lines that join the markers rather than the markers themselvs. Funny thing is, I cant actually find a way to do apply shadows to the lines interactively, not that I want to.

My code is below and I have documented it as much as I can to explain what I am doing and an alternative that I have tried. If anyone can figure out how to get the shadow affects to work on the Markers rather than the lines through VBA it would be much appreciated.

'=================================================================
Dim excChart As Excel.Chart
Dim excChartSeries As Excel.Series
Dim excPoint As Excel.Point

Set excChart = ActiveSheet.ChartObjects("NameOfYourChart").Chart
Set excChartSeries = excChart.SeriesCollection(2) 'My chart has two data series, the first being a bar graph and the second
being a line graph.

With excChartSeries

    'The next 2 lines correctly set the size and style of the Markers
    .MarkerBackgroundColor = RGB(255, 255, 255) 
    .MarkerForegroundColor = RGB(0, 176, 80) 
    
    'The affect of the next 3 lines is that it applies the shadow formatting to the lines that
    'join the markers rather than to the markers themselves.

    .Shadow = True
    .Format.Shadow.Blur = 5
    .Format.Shadow.ForeColor.RGB = RGB(0, 176, 80)

    'The next 2 lines correctly set the size and style of the Markers
    .MarkerSize = 12
    .MarkerStyle = xlMarkerStyleCircle

    'The above didnt work so I tried iterating through the points collection and setting 
    'these properties on each individual Marker or Point.
    'All that happens is that for each Marker it sets the shadow on the lines that join all the 
    'markers again, rather than on the individual marker itself.

    For Each excPoint In .Points
        .Shadow = True
        .MarkerBackgroundColor = RGB(255, 255, 255)
        .MarkerForegroundColor = RGB(0, 176, 80)
        .Format.Shadow.Blur = 5 
        .Format.Shadow.ForeColor.RGB = RGB(0, 176, 80) 
        .MarkerSize = 12
        .MarkerStyle = xlMarkerStyleCircle
    Next

End With
Any help is appreciated,
Cheers

I'm quite new to VBA, but I'm developing a spreadsheet with a macro. On a worksheet, I have one cell used for entry of a text string. It's a merged cell. The macro returns a result based off of what is entered into that merged cell. The easiest and most common method of entering data into that cell is copying the string onto the clipboard from an outside app. and pasting it into the merged cell. However, upon doing so, the user always gets the message, "Data on the Clipboard is not the same size and shape as the selected area. Do you want to paste the data anyway?" Upon clicking the OK button, the user gets another message, "Cannot change part of a merged cell," and the data is not entered. (First of all is there a way to address this?)
To work around this, I figured I'd just use an activeX textbox control inserted onto the worksheet (a userform is too much for the purposes of this macro and the users who will use it). I can size the textbox to the length it needs to be, and theres not "merged-ness" to overcome. However, when the user strikes the enter key, nothing happens. The cursor just stays there. Isn't the enter key supposed to "enter" the data? (Second, is there a way to fix this?)
I'm guessing i'll have to program some code in the keypress event for the enter key. Well, what do I tell it to do? Losefocus? just execute the macro? copy the textstring to the cells beneath the textbox? Move focus to the worksheet? I'm not sure what to tell excel to do when the enter key is pressed.

Thank you for your help!

Hi all,

I am putting some dots on a chart where I use the following


	VB:
	
MyChart.Shapes.AddShape(msoShapeOval, myX, myY, mySize, mySize).Select 
With Selection 
    .ShapeRange.Fill.Visible = msoTrue 
    .ShapeRange.Fill.Solid 
    .ShapeRange.Fill.ForeColor.SchemeColor = BLACK 

If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines
and so on, and this is in a loop where the myX,myY's are obtained from an array and mySize
is set to less than 6 (I think the units use are points), but is always constant.
It all works but the dots are not quite the same size and shape. Some are smaller, some bigger and some not exactly a circle. Most are OK but some vary by up to 50% or so! How do I ensure size uniformity?
Thanks in advance for any tips.
Milo

Hi,

I have written a VB project to open up a connection to a database using ODBC calls and place what data I retrieve into an excel sheet. I have done this 3 times and have had no problems, but on this 4th program I'm making, I keep coming up with the same problem.

Here's what happens... I use this code

	VB:
	
 
    nxtLine = nxtLine + 1 
    With exlobj.ActiveSheet 
        .Cells(nxtLine, 1).Value = "Business justification for the policy approval/variance:" 
        .Cells(nxtLine, 1).Font.Name = "Verdana" 
        .Cells(nxtLine, 1).Font.Size = 14 
        .Rows(nxtLine).RowHeight = 20 
        .Range(Cells(nxtLine, 1), Cells(nxtLine, 4)).MergeCells = True 
        .Range(Cells(nxtLine + 1, 1), Cells(nxtLine + 1, 4)).MergeCells = True 
    End With 
    nxtLine = nxtLine + 1 
    exlobj.ActiveSheet.Cells(nxtLine, 1).Value = rsTemp.fields(col) 

If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines
and when it goes to place the data into the column, in the column it says #value! . I run the script 1 step at a time and when I get to the start of the code section above, I add a watch for rsTemp.fields(col). I can see the text that needs to be placed in the excel sheet. I can copy the text from the watch and paste it anywhere in the sheet, except for where the code is supposed to place it. Everytime I go to paste it where the code would put it, I get a message saying "Data on the clipboard is not the same size or shape as the selected area." BUT if I click in the formula bar instead of the cell, I can paste the text. I have done a msgbox of rsTemp.fields(col) just to make sure all the text was being retrieved from the database and sure enough it is. I even thought that maybe there were some newlines or carriage returns in the text, but I have found out there isn't. What's the deal? Can anyone figure this one out?

Hi Experts

I've just written a macro to copy large amount of data from one worksheet into another. It works well right now, except a little problem.

Every time I run the macro, there is always a message box appeared. It let me to choose whether to save or delete data on the clipboard. And I usually choose 'no'. (The message box has been screenshotted and attached into this thread.) Because I use this macro very often, it really makes troubles to me.

Is there anyway to block the message box. I mean let it never appear? Thanks in advance for any helps.

I am using the close.workbook command in VBA to close a workbook I opened to copy data from. I am getting a message that says "You have a large amount of data on the clipboard. Do you want it available?" What command do I use in VBA say no to this message?

Thanks,
Dale

Hi --
I posted earlier on ozgrid.com asking for help with graphing multiple rows against each other with a userform (http://www.ozgrid.com/forum/showthread.php?t=21840), and got a great response and I was able to use the basic code and incorporate it into my spreadsheet. I actually have a follow-up question -- what code would you suggest I use if I'm looking to also graph data from other sheets? The data on the other sheet would be on the same row, same column, it just needs to be a different sheet, and whenever I try to play with the SeriesCollection.Add function etc., i run into problems. I've attached a basic sample of what I'm trying to do -- ideally, when neither of those checkboxes is checked, it graphs the series chosen on sheet1; when the sheet2 checkbox is checked, it graphs the series chosen on sheet1 in addition to the equivalent series on sheet2; etc. I hope I'm being clear...Thanks a lot for your help.
--Reed

Can I Distribute Excel reports that retrieve Data-On-The-Fly to users that do
not neccesarily have office installed? These reports wil be read only to the
user.

Is there a (free) viewer avaiable that allows users to open an Excel 2003
file via the web (or in this case an intranet) and see the Pivot Tables,
Charts, etc correctly and have the excel file populate from live data before
being sent over to the client?

I considered Office HTML Viewer server and Share Point Services but the
Office HTML viewer states that Macros will not run proir to the conversion.
Is there any way around this?

Any other ideas?

TIA Bob


No luck finding an answer? You could always try Google.