Help - error code

**Adam Brave** · 05-03-2012, 12:37 PM

Hi,

I'm making a macro that always ends up with a error when executes the last line of code that I put bellow. Can anyone explain me why it ends up in a error in that line? The letters 'a' and 'b' are two variables that contains the numbers 25 and 28 respectively.

Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = InputBox("Name for the new sheet:", "Create new sheet")
NameNewSheet = Sheets(Sheets.Count).Name

...

Sheets("2012").Range(Cells(1, a), Cells(150, b)).Copy Destination:=Sheets(NameNewSheet).Range("A:A:D:D")

**abousetta** · 05-03-2012, 12:41 PM

Hi,

First off, this is wrong:

Range("A:A:D:D")

Are you looking for:

Range("A:D")

Additionally you are trying to copy a large range into a smaller range. Can't do that either. The ranges have to be the same.

**Adam Brave** · 05-03-2012, 12:57 PM

Hmm I changed to the line bellow but it still doesn't work =\

Sheets("2012").Range(Cells(1, a), Cells(150, b)).Copy Destination:=Sheets(NameNewSheet).Range("A1:D150")

**StevenM** · 05-03-2012, 12:59 PM

My guess would be:

Sheets("2012").Range(Cells(1, a), Cells(150, b)).Copy Destination:=Sheets(NameNewSheet).Range("A1:D150")

Should be:

With Sheets("2012")
    .Range(.Cells(1, a), .Cells(150, b)).Copy Destination:=Sheets(NameNewSheet).Range("A1:D150")
End with

So that you have dots in front of Cells.

(Assuming that 'a' and 'b' are long variables, and you don't mean: "A" & "D".)

**Adam Brave** · 05-03-2012, 01:06 PM

It works

Tkz both

**abousetta** · 05-03-2012, 01:44 PM

If you are satisfied with the responses then please mark the thread as solved.

Help - error code

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Help - error code

Re: Help - error code

Re: Help - error code

Re: Help - error code

Re: Help - error code

Re: Help - error code

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions