-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Copy certain row to new sheet
- Thread starter miracleyy
- Start date
sorry, i cannot download the HTML Maker
my sheet is like that (on 1 column)
Order No:
1
2
3
Order No.
1
2
3
4
5
Order No.
1
2
Order No.
1
2
3
4
5
6
and i would like to cut each order no. to a new sheet.
Thank you!!!
Upvote
0
Michael M
Well-known Member
- Joined
- Oct 27, 2005
- Messages
- 21,834
- Office Version
- 365
- 2019
- 2013
- 2007
- Platform
- Windows
MAybe this
Code:
Sub MM1()
Dim lr As Long, r As Long, x As Long, ns As Worksheet
Set ns = Sheets("Sheet1")
lr = ns.Cells(Rows.Count, "A").End(xlUp).Row
x = 0
For r = 2 To lr
If ns.Range("A" & r).Value <> "" Then x = x + 1
If ns.Range("A" & r).Value = "" Then
Sheets.Add After:=Sheets(Worksheets.Count)
ns.Rows(r - x & ":" & r).Copy
ActiveSheet.Paste
x = 0
End If
Next r
End Sub
Upvote
0
miracleyy,
1. What version of Excel and Windows are you using?
2. Are you using a PC or a Mac?
So that we can get it right this next time:
How about posting your workbook/worksheets:
1. With the raw data in its actual worksheet name
2. And, the resulting worksheets manually formatted by you for the results you are looking for.
You can upload your workbook to Box Net,
sensitive data changed
mark the workbook for sharing
and provide us with a link to your workbook.
1. What version of Excel and Windows are you using?
2. Are you using a PC or a Mac?
So that we can get it right this next time:
How about posting your workbook/worksheets:
1. With the raw data in its actual worksheet name
2. And, the resulting worksheets manually formatted by you for the results you are looking for.
You can upload your workbook to Box Net,
sensitive data changed
mark the workbook for sharing
and provide us with a link to your workbook.
Last edited:
Upvote
0
Upvote
0
