Thread
:
Copy ranges in sets of 30 rows into separate worksheet tabs inworkbook
View Single Post
#
3
Posted to microsoft.public.excel.programming
Don Guillett
external usenet poster
Posts: 10,124
Copy ranges in sets of 30 rows into separate worksheet tabs in workbook
Sub copyblocks()
ms = 30
sh = 2
On Error Resume Next
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step ms
Cells(i, 1).Resize(ms, 6).Copy Sheets(sh).Cells(1, 1)
sh = sh + 1
Next i
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Financeguy" wrote in message
...
Hi All -
Im trying to copy a range (lets say A1:F1000) from a worksheet (say
Sheet1) in consecutive rows of 30 (so A1:F30, A31:F:60 and so on) to
separate worksheet tabs (Say Sheet 2, Sheet 3 and so on) in a single
workbook.
Manually copying and pasting each set of 30 rows of data within the
range is really too time consuming.
Request your help for some simple VBA code to perform this tedious
activity.
Thanks in advance.
V
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett