[tom1011]

In some spreadsheet files, I'm not able to create a duplicate of an excel worksheet. I do the normal "move or copy sheet" and "create a copy" in the edit function, but it won't let me copy that particular worksheet. Nothing happens.

This doesn't happen often, but has happened in a few worksheets. The worksheets are unprotected. Can anyone help me?

[Advertisements]

Can you go to 'Edit>Select All' on the sheet you want to copy, then open a new document and go to 'Edit>Paste' ?

Edited by pip22, 08 January 2007 - 08:08 AM.

[pip22]

Can you go to 'Edit>Select All' on the sheet you want to copy, then open a new document and go to 'Edit>Paste' ?

Edited by pip22, 08 January 2007 - 08:08 AM.

[tom1011]

Can you go to 'Edit>Select All' on the sheet you want to copy, then open a new document and go to 'Edit>Paste' ?

Yes, that fixed it! Thanks.

[Aeolian]

Can you go to 'Edit>Select All' on the sheet you want to copy, then open a new document and go to 'Edit>Paste' ?

Yes, that fixed it! Thanks.

Well, that may solve the problem but doesnt answer the question why the normal sheet copy/paste function doesnt work. I have the same problem while running a script that should create a number of sheets authomatically.

I use a copy function made by XL Dennis. You see it below. It works beautifully. But at some point I get the same error as our friend. I have the suspition that the copy/paste cache get full and therefore is not able to contain more info so the sheet copy/paste doesnt work anymore.

No ideas around?


Sub Add_sheet(sheetname)

'© 2002 XL-Dennis

Dim stNameField As String
Dim oObjekt As Object
Dim wsBlad As Worksheet
Dim rnCell As Range
Dim i As Integer

Application.ScreenUpdating = False
i = Worksheets.Count
' ActiveSheet.Copy after:=Worksheets(2)
ActiveSheet.Copy after:=Worksheets(i)
i = i + 1
Set wsBlad = Worksheets(i)

'Ifall det inte finns formler
On Error Resume Next

For Each rnCell In wsBlad.Cells.SpecialCells(xlFormulas)
rnCell.Value = rnCell.Value
Next
Application.ScreenUpdating = True

stNameField = blad
' = CStr(wsBlad.Range("A1").Value)

With wsBlad
For Each oObjekt In .Shapes
oObjekt.Delete
Next
.Name = stNameField
'.Range("H1:H40").Clear
End With

End Sub

[markinomaha]

I used to get the same error message occassional with Windows XP. If you would close the worksheets, then reopen them it would then work. I don't want to copy and paste, I want to move the entire worksheet so you don't lose the existing page breaks. Now we have Windows 7 and the problem is worse. Is there a fix? The error message I'm getting (about rows and columns not matching in the source workbook) makes no sense because I'm trying to move the entire worksheet. I run financials from our accounting software, covert it into an Excel Sheet, then consolidate them into one workbook. There is no reason it shouldn't work, yet it doesn't. Is there a fix to this problem?