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
|