Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert Row when data is different
I have a range of @ 8000 rows. This range contains data for differen
customers. Each customer can and will appear on more than one row. What i want is to insert 6 blank rows when a new customer begins. Hope this makes sense! Please help!! Thanks. Tiffan -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert Row when data is different
Tiffany
Sub InsertRow_At_Change() Dim i As Long With Application .Calculation = xlManual .ScreenUpdating = False End With For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 If Cells(i - 1, 1) < Cells(i, 1) Then _ Cells(i, 1).Resize(6, 1).EntireRow.Insert Next i With Application .Calculation = xlAutomatic .ScreenUpdating = True End With End Sub Gord Dibben Excel MVP On Fri, 20 Aug 2004 15:02:34 -0500, tratliff wrote: I have a range of @ 8000 rows. This range contains data for different customers. Each customer can and will appear on more than one row. What i want is to insert 6 blank rows when a new customer begins. Hope this makes sense! Please help!! Thanks. Tiffany --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I insert a row after every row of data in XL? | Excel Discussion (Misc queries) | |||
Data Validation - Insert Row | Excel Worksheet Functions | |||
MULTIPLE DATA - How to insert new data into existing data.... | Excel Discussion (Misc queries) | |||
insert data | Excel Worksheet Functions | |||
Import Data: on insert, shift data down and not right | Excel Discussion (Misc queries) |