Thread: SPACING
View Single Post
  #4   Report Post  
Bob Phillips
 
Posts: n/a
Default

What do you want clarified, how it works or how to implement it?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"RAJEEV CHADHA" wrote in message
om...
"Bob Phillips" wrote in message

...
Hi Rajeev,

You will need code. Here is some

Sub Test()
Dim iLastRow As Long
Dim i As Long

With Worksheets("Sheet2")
ActiveSheet.Cells.Copy Destination:=.Cells
.Columns("A:D").Sort key1:=.Range("D2"), header:=xlYes
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 2 Step -1
.Cells(i + 1, "A").Resize(5).EntireRow.Insert
Next i
End With

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"RAJEEV CHADHA" wrote in message
om...
Hello,
I am working on stock valuation where i have raw data in one sheet say
In sheet 1 i have the following data

PART NO. DESCRIPTION COST DATE OF PURCHASE
109118 ............ 27.05.03
1519123 27.05.03
11256 27.05.03

109118 28.05.03
1122 28.05.03

& SO ON
In second sheet i have to sort data in the descending order of the
purchase & after that i have to give a gap of about 5 blank rows which
i have to do manually.This consumes a lot of time taking into
consideration inventory of about 4000 items.How can i do it by using a
formula.
Hope somebody can help me
Thanks you in advance.

Regards
Rajeev Chadha




Hi Bob
Its very difficult to understand.Will you please clarify it.


Regards
Rajeev