Hello All,
How I can select a certain number of rows in same ws then copy/paste/save as new wb?
Let says: row 1:1 is header
data from A2:Z100
I want to select "A1:Z10" then copy/paste ===> save as newFname1
Then select "A11:Z20" then copy/paste ===> save as newFname2 (this should also select the header as well)
do until to last row.
Regards,
tt3
Last edited by tuongtu3; 10-20-2013 at 06:09 PM. Reason: Solved
Hello All:
I tried the below code but if there's any better code I would appreciate for your help:
Regards,
Sub SelectCertainRows_C/P() Dim ws1 As Worksheet, ws2 As Worksheet Set ws1 = Worksheets("Sheet1") Set ws2 = Worksheets("Sheet2") Dim Lr1 As Long, Lr2 As Long Lr1 = ws1.Range("A" & Range("A" & Rows.Count).End(xlUp).Row) Lr2 = ws2.Range("A" & Range("A" & Rows.Count).End(xlUp).Row) Do Until ws1.Range("A2").Value = "" ws1.Range("A1:P1").Copy Destination:=ws2.Range("A1") 'Header ws1.Range("A2:P3").Copy Destination:=ws2.Range("A2") ws1.Range("A2:P3").Delete Shift:=xlUp ws2.Activate Call Macro: SaveWSAsNewWB ws1.Activate Loop End Sub
tt3
Hi, tt3,
based on your first post maybe
Ciao,Sub EF961744() Dim lngCounter As Long Dim lngLast As Long Dim lngNewNr As Long Const clngROW_NUMBER As Long = 10 Do While Range("A2").Value <> "" lngNewNr = lngNewNr + 1 Range("A1:Z" & clngROW_NUMBER).Copy Workbooks.Add ActiveSheet.Range("A1").PasteSpecial xlPasteValues ActiveWorkbook.SaveAs "C:\temp\FName " & lngNewNr & ".xlsx", FileFormat:=51 ActiveWorkbook.Close False Range("A2:Z" & clngROW_NUMBER).Delete xlShiftUp Loop End Sub
Holger
Use Code-Tags for showing your code: [code] Your Code here [/code]
Please mark your question Solved if there has been offered a solution that works fine for you
Hi HaHoBe,
That's perfect. Thank you very much for your time and help.
Regards,
tt3
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks