Macro to copy values to worksheets based on value

[cjlaing]

Hi

I am looking to write a macro where it takes the information from the 1st sheet and copies it out to the appropriate worksheets when I run the macro. I am looking to move them out into worksheets named after contract numbers 8060, 8290, 8483 as examples. There will be a column in the front sheet that states the contract.

Any help would be much appreciated.

Thanks

CJ

 

[dmt32]

I had changed it but I had put 6 rather than 5.

The only other thing that isn't working is it isn't copying column A. I tried tweaking the line of code I thought was required to change but that seemed to cause it to copy all the rows into each sheet and still not copy column A.

always the risk when you start modifying code - code should copy from the header row Column A to however many columns in the header row.

Did code copy ok when used in it's original form?

Dave

 

[cjlaing]

always the risk when you start modifying code - code should copy from the header row Column A to however many columns in the header row.

Did code copy ok when used in it's original form?

Dave

All I had done was move where I saw cells defined as being column B rather than column A, as I assumed one of those was likely the issue. It has never copied column A. It is back to its original form, with the exception of the change made earlier.

 

[dmt32]

All I had done was move where I saw cells defined as being column B rather than column A, as I assumed one of those was likely the issue. It has never copied column A. It is back to its original form, with the exception of the change made earlier.

would be helpful if could see your data - are you able to place copy of your workbook with sample data in a dropbox?

Dave

 

[cjlaing]

would be helpful if could see your data - are you able to place copy of your workbook with sample data in a dropbox?

Dave

Dropbox - sub.xlsx

Hope that works.

 

[dmt32]

You did not include the macros but no worries problem should be easy to solve - you have not given column A a Field heading - Add a name & see if values copy across.

Dave.

 

[cjlaing]

You did not include the macros but no worries problem should be easy to solve - you have not given column A a Field heading - Add a name & see if values copy across.

Dave.

Ah of course! Thanks for all your help with that Dave!

One last thing... where on the code is it defining where the values are being placed in the new sheets? I wouldn't mind them being further down than A1.

 

[dmt32]

Ah of course! Thanks for all your help with that Dave!

One last thing... where on the code is it defining where the values are being placed in the new sheets? I wouldn't mind them being further down than A1.

No worries - glad we got there.

Change destination cell address shown in RED to place where required.

CopyToRange:=wsNew.Range("A1")

Dave

 

[cjlaing]

No worries - glad we got there.

Change destination cell address shown in RED to place where required.

CopyToRange:=wsNew.Range("A1")

Dave

I changed to A3 but it now comes up with "Object variable or With block variable not set".

EDIT: Sorry no - I was at the wrong bit!

 

[dmt32]

I changed to A3 but it now comes up with "Object variable or With block variable not set".

EDIT: Sorry no - I was at the wrong bit!

do you have it working now - if not, post changes you made?

Dave

 

[cjlaing]

do you have it working now - if not, post changes you made?

Dave

It is working yeah. Thanks a lot!