Copy range max 10 rows

[mdek]

Hi,

Is there a way to copy the Range B8::E8, B9::E9 etc to a new sheet MAX 10 rows, the next 10 rows has to be copied a another new sheet. It can be 8 rows but also 18 rows in the data, if 18 rows then 10 rows to new sheet a and 8 rows new sheet b??

This with a macro

Please Login or Register  to view this content.

[mehmetcik]

You should have posted an example spreadsheet.

Please Login or Register  to view this content.

[protonLeah]

(How to) Upload a Workbook directly to the Forum
(please do not post pictures or links to worksheets)

• Click Advanced (next to quick post),
• Scroll down until you see "Manage Attachments",
• Click that then select "add files" (top right corner).
• Click "Select Files" find your file, click "open" click "upload"
• Once the upload is completed the file name will appear below the input boxes in this window.
• Click "Done" at bottom right to close the Attachment Manager.
• Click "Submit Reply"

Note: Please do not attach password protected workbooks/worksheets
Ensure to disable any Workbook Open/Autorun macros before attaching!

[xladept]

Here's a quickie:

Please Login or Register  to view this content.

[mdek]

Thank you for your help.
I wasnot clear with my question, updated the excel.

Sheet1 = data, sheet 2,3,4 is how it should be.

In this case
26 rows so on sheet 2: 10 rows, sheet 3 10 rows and sheet 4 6 rows.


I cannt get the codes right???

[mdek]

You should have posted an example spreadsheet.

Please Login or Register  to view this content.

tryping to adjust the code to my wishes but cannot seem the get it ..

[xladept]

It's the same quickie:

Please Login or Register  to view this content.

[mdek]

Thanks works good

[xladept]

The same sheet?

[mdek]

It's the same quickie:

Please Login or Register  to view this content.

Yes the resultas in the same newsheet
First 10 rows start at B8
Next 10 rows start at B55
etc

Thanks in advance!

[xladept]

Try this:

Please Login or Register  to view this content.

[mdek]

Thanks works fine... last question, i want to write it in a excisting sheet, but comde backwith error xlByRows, xlPrevious).Row.

I used Worksheet("blad3")

[xladept]

Try it again, after renaming "NewSheet".

[mdek]

Yeah that works, but i want to try to use a existing worksheet in stead of new

[xladept]

Please Login or Register  to view this content.

[mdek]

i tried that but get error at row Rows.Find..

I will renew the code

[xladept]

Hi mdek,

Thanks for the rep!

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.