Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cut bottom 300 rows to next sheet & repeat
Hi Excel Experts, Sheet "Dum" A, B, C by 1200 rows. Sheet "Mud" blank. Trying to cut the bottom 300 rows of A, B, C from "Dum" to A1, B1, C1 in "Mud". Next bottom 300 from "Dum" to D1, E1, F1 in "Mud" & repeat for a total of 5 times, hence the For i = 1 to 5 - Next. I get the first bottom 300 from "Dum" to "Mud" correctly and then its 'game over'. If it does one, why not 5? Option Explicit Sub ThreeHund() Dim iColumn As Integer Dim lLast As Long Dim i As Long, j As Long With ThisWorkbook.Worksheets("Dum") For iColumn = 1 To 3 lLast = Application.Max(lLast, Cells(Rows.Count, iColumn) _ .End(xlUp).Row) Next iColumn j = 0 For i = 1 To 5 If lLast < 300 Then MsgBox "Less than 300 rows", vbOKOnly Exit Sub Else 'MsgBox j .Range("A" & lLast - 299 & ":C" & lLast).Cut Destination:= _ ThisWorkbook.Worksheets("Mud").Range("A1") _ .End(xlUp).Offset(0, j) End If j = j + 3 Next End With End Sub Thanks, Howard |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
rows to repeat at 'Bottom' | Excel Discussion (Misc queries) | |||
Rows to Repeat at bottom | Excel Worksheet Functions | |||
Rows to repeat at BOTTOM. | Setting up and Configuration of Excel | |||
How do I repeat rows on the bottom of each sheet in excel? | Excel Worksheet Functions | |||
NEED TO REPEAT ROWS AT THE BOTTOM OF EXCEL SPREAD SHEET | Excel Programming |