View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
K[_2_] K[_2_] is offline
external usenet poster
 
Posts: 557
Default MERGE ROW CELLS BY MACRO

Hi i have this macro (please see below)

Sub InsertIt()
Dim LastRow As Long
Dim StartRow As Long
StartRow = Cells(Rows.Count, 1).End(xlUp).Row - 1
Cells(StartRow + 1, 1).Resize(6, 1).EntireRow.Insert
Cells(StartRow + 1, 9).Resize(6, 6).Merge
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
With Range(Cells(StartRow, 1), Cells(LastRow, 1))
..DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Trend:=False
End With
Application.ScreenUpdating = True

End Sub

This macro basically insert 6 rows and i wanted to merge each row
cells (the one been inserted
by macro) from coloumn "I" to "N". one of online friend send me this
line to insert in macro to merge cells.
Cells(StartRow + 1, 9).Resize(6, 6).Merge
by putting this line in macro works fine but instead of merging each
row from coloumn "I" to "N" it merge 6 rows and make one big cell. i
want those rows (the one been inserted by macro) to merge each
saperatly from coloumn "I" to "N". Please any body can help as i need
this for my project. Thanks.