Insert Blank Row

V

Vlad999

Is there a formula that will let you insert a blank row or skip n rows?
I know it can be done in VBA but i suck at vba so i dont want to go
down that path.
 
D

Don Guillett

formulas can't do that. Only return values, etc
try recording a macro. You'll like it.
 
V

Vlad999

How about skipping rows?

What I have is a number of tables that i need to transfer from my main
sheet to sheet 2 where the tables will be nicely formatted. My tables
contain

BRAND NAME
description 1
description 2
description 3
Total
Blank row
BRAND NAME
description 1
description 2
description 3
Total
Blank row....etc

I am using this formula to to transdre values in column A and excluding
the total at the bottom of each table.

=IF(AND($J3="Brand",I3="Y"),A3,IF(AND($J3="Data",I3="Y"),PROPER(A3),IF($J3="Total","","")))

and this formula to enter the numeric values to the right of column a
fields

=IF(AND($J2="Data",$I2="Y"),B2,IF($J2="Total","",IF(B2="","","")))

Column J identifies what type of data in contained in the row either
Brand, Total or Data

Column I is used by the user to enter a "Y" indicating that that data
is to be transfered to sheet 2

Now what i need is a means of detecting blank rows in range A:H if all
cells are empty then i want to so to the next formatted table in in
sheet 2

I realise that this is a REALLY long way to do something that could be
easily don in VBA but I dont yet have the skills to do it in VBA.


When i get this working I plan to use a VBA code i found on the net to
delete blank rows to make my tables nice an neat. Im also going to
regord a macro to reste the blank tables (for each formatted table I
have allowed 20 rows for data to be entered).
 
D

Don Guillett

With the info given I can't quite figure out what you are doing but here is
a simple macro that will delete all the blank rows in col A

Sub RowBeGone()
Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

another
Sub RowBeGone1()
'When you delete rows, do it from the bottom up
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If Cells(i, 1).Value = "" Then Rows(i).Delete
Next
Application.ScreenUpdating = True
End Sub
 
Top