| Home |
| Search |
| Today's Posts |
|
#1
|
|||
|
|||
SPACING
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 |
|
#2
|
|||
|
|||
|
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 |
|
#3
|
|||
|
|||
|
"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 |
|
#4
|
|||
|
|||
|
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 |
|
#5
|
|||
|
|||
|
"Bob Phillips" wrote in message ...
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 Hi Bob, I want to know that how we can implement it step by step.If possible if you can illustrate it with an example. Thanks & Best Regards Rajeev |
|
#6
|
|||
|
|||
|
I am confused as to why you want an example, it addresses the question you
asked! Just slap it into a standard code module (Alt-F11, menu InsertModule) and run it. -- HTH RP (remove nothere from the email address if mailing direct) "RAJEEV CHADHA" wrote in message om... "Bob Phillips" wrote in message ... 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 Hi Bob, I want to know that how we can implement it step by step.If possible if you can illustrate it with an example. Thanks & Best Regards Rajeev |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Does font affect indent spacing? | Excel Worksheet Functions | |||
| how do I eliminate proportional spacing in Excel spreadsheets? | Excel Discussion (Misc queries) | |||
| Bulleting text and spacing down a line in Excel | Excel Discussion (Misc queries) | |||
| Grid lines spacing | Excel Discussion (Misc queries) | |||
| How can I change typesetting (spacing, etc.) of bar chart axis lab | Charts and Charting in Excel | |||
Linear Mode
