Solved: Copy between sheets

**Dowsey1977** · 06-01-2006, 05:04 AM

Hi,I am trying to copy information from one worksheet to another, and the code I would normally use doesn't seem to be working. I've broken the code down to see where it is going wrong, and I'm down to the bare minimum. This is how my code looks:[vba]Sub Transfer()Sheets("FundsOutList").SelectRange("A30").End(xlUp).Offset(1, 0).SelectEnd Sub[/vba]
But when I run the macro a messagebox appears that just says '400'!!Any ideas what's going on?

Edit by Lucas: I added vba tags to your code for easier reading

**OBP** · 06-01-2006, 05:11 AM

Hi, it is difficullt to ascertain what is wrong, can you post a copy of your Workbook, with some dummy data if necessary so we can see what is going wrong?

**Dowsey1977** · 06-01-2006, 05:22 AM

For some reason what I assume is the attach file button isn't working! Can't even press it

**OBP** · 06-01-2006, 05:29 AM

At the bottom left corner of this page what does it say your posting rules are?
Do you want to email me a copy, if so I will send my email address in a private mail.

**Dowsey1977** · 06-01-2006, 05:31 AM

You may post new threadsYou may post repliesYou may post attachmentsYou may edit your postsvB code is OnSmilies are On[IMG] code is OnHTML code is Off

**OBP** · 06-01-2006, 05:33 AM

That says you shouldn't have a problem then, very odd.
What about emailing?

**lucas** · 06-01-2006, 05:33 AM

Click on "Post Reply" on the left side of the last post....after typing your post scroll the page down and look for the button that says "Manage Attachments"

**Dowsey1977** · 06-01-2006, 05:38 AM

Nope...there is nothing that says "Manage Attachments" after clicking Post Reply.Under additional options it has a section just called "Attach Files", but only says the valid file extensions.I can email though. Tried doing a PM, but couldn't attach anything there either.

**OBP** · 06-01-2006, 05:43 AM

Directly under where you write your post there is a "Go Advanced" button, did you click that?

**Dowsey1977** · 06-01-2006, 05:47 AM

Yep...still nothing

**OBP** · 06-01-2006, 05:48 AM

OK, I will private mail you.

**lucas** · 06-01-2006, 05:52 AM

If you can get with OBP and email it to him, maybe he can post it for you and I will bring your problem to the attention of an admin and see if your permissions are set wrong......

**Dowsey1977** · 06-01-2006, 05:52 AM

Great...thanks all! I have just emailed it to OBP

**OBP** · 06-01-2006, 06:01 AM

Ok, the first thing is that you do not have any error handling routine to tell you what the error is. I will dig a bit deeper and post it back on here

**Dowsey1977** · 06-01-2006, 06:03 AM

Excellent, thanks

**OBP** · 06-01-2006, 06:19 AM

The failure is in trying to select the various ranges, the VBA does not like the way that you are trying to do it. I think I will have to break down your current range statements to see what is triggering the error.

**OBP** · 06-01-2006, 06:25 AM

Right in the "Test" macro you are not selecting the "Lists" sheets before trying to select the range. Use this
Sheets("Lists").Select
Range("A65000").End(xlUp).Select
Range(Selection, Selection.End(xlUp)).Select

**Dowsey1977** · 06-01-2006, 06:26 AM

I tried running just 1 line of code on the "FundsOutList" sheet that said Range("A30").Select and it didn't like it. Try running it on the "FundsOut" sheet and it works fine

**Dowsey1977** · 06-01-2006, 06:28 AM

Sorry...I am running the "Transfer" macro which is what is linked to the button on the "FundsOut" sheet.

**OBP** · 06-01-2006, 06:30 AM

Same on the Named range macro.

Thread: Solved: Copy between sheets

Thread Tools

Display

Solved: Copy between sheets

Posting Permissions