=?Utf-8?Q?Error_=E2=80=9CThis_operation_requires_t?==?Utf-8?Q?he_merged_cells_to_be_identicall?==?Utf-8?Q?y?=

[ca1358]

I have (A) spreadsheet that has a template with 3 merged cells,

So I made a 2nd (B) spreadsheet with same template.

Set up code to copy a line from (A) and paste to (B) but I get an error

“This operation requires the merged cells to be identically sized.” .

Both sheets are identical. Can someone tell me how to get around this?


--
ca1358

[Alok]

Can you please submit the code you are using?

Alok

"ca1358" wrote:

> I have (A) spreadsheet that has a template with 3 merged cells,
>
> So I made a 2nd (B) spreadsheet with same template.
>
> Set up code to copy a line from (A) and paste to (B) but I get an error
>
> “This operation requires the merged cells to be identically sized.” .
>
> Both sheets are identical. Can someone tell me how to get around this?
>
>
> --
> ca1358

[ca1358]

It stops at this line in the sub and gives me the error.
rngToPaste.PasteSpecial xlPasteValues


Private Sub cmdGN15Data1_Click()
Dim rngToCopy As Range
Dim rngToPaste As Range
Dim wksToPaste As Worksheet

Set rngToCopy = Sheets("GN15").Range("A28:v28")
Set wksToPaste = Sheets("TempTable")
Set rngToPaste = wksToPaste.Cells(Rows.Count, _
"A").End(xlUp).Offset(1, 0)

rngToCopy.Copy
wksToPaste.Unprotect "Cubs1908"
rngToPaste.PasteSpecial xlPasteValues
wksToPaste.Protect "Cubs1908"

Application.CutCopyMode = False
--
ca1358


"Alok" wrote:

> Can you please submit the code you are using?
>
> Alok
>
> "ca1358" wrote:
>
> > I have (A) spreadsheet that has a template with 3 merged cells,
> >
> > So I made a 2nd (B) spreadsheet with same template.
> >
> > Set up code to copy a line from (A) and paste to (B) but I get an error
> >
> > “This operation requires the merged cells to be identically sized.” .
> >
> > Both sheets are identical. Can someone tell me how to get around this?
> >
> >
> > --
> > ca1358

[Tom Ogilvy]

Try changing it to:

' rngToCopy.Copy
wksToPaste.Unprotect "Cubs1908"
rngToPaste.Resize(rngTocopy.Rows.count, _
rngToCopy.columns.count).Value = rngTocopy
wksToPaste.Protect "Cubs1908"

--
Regards,
Tom Ogilvy

"ca1358" <ca1358@discussions.microsoft.com> wrote in message
news:249D1CAA-DBD1-4311-9D44-ED3B8BEF23AA@microsoft.com...
> It stops at this line in the sub and gives me the error.
> rngToPaste.PasteSpecial xlPasteValues
>
>
> Private Sub cmdGN15Data1_Click()
> Dim rngToCopy As Range
> Dim rngToPaste As Range
> Dim wksToPaste As Worksheet
>
> Set rngToCopy = Sheets("GN15").Range("A28:v28")
> Set wksToPaste = Sheets("TempTable")
> Set rngToPaste = wksToPaste.Cells(Rows.Count, _
> "A").End(xlUp).Offset(1, 0)
>
> rngToCopy.Copy
> wksToPaste.Unprotect "Cubs1908"
> rngToPaste.PasteSpecial xlPasteValues
> wksToPaste.Protect "Cubs1908"
>
> Application.CutCopyMode = False
> --
> ca1358
>
>
> "Alok" wrote:
>
> > Can you please submit the code you are using?
> >
> > Alok
> >
> > "ca1358" wrote:
> >
> > > I have (A) spreadsheet that has a template with 3 merged cells,
> > >
> > > So I made a 2nd (B) spreadsheet with same template.
> > >
> > > Set up code to copy a line from (A) and paste to (B) but I get an
error
> > >
> > > "This operation requires the merged cells to be identically sized." .
> > >
> > > Both sheets are identical. Can someone tell me how to get around this?
> > >
> > >
> > > --
> > > ca1358