Delete Tab(s) If Specific Rows Are Blank

Jan 31, 2008

A macro that will delete a tab or tabs in a file if and only if rows 11, 13, 23 & 25 are completely blank within that tab?
So basically ALL rows would need to be blank, if there is any data within any of those rows, then tab should NOT be deleted.

View 9 Replies


ADVERTISEMENT

Delete Rows With Blank Cells In A Specific Range

Feb 23, 2010

I need a VBA to delete rows with blank cells within columns F - AZ
Columns A - E contain headers but also need to be deleted if cells in columns F -AZ are blank.

View 9 Replies View Related

VBA - Delete Row Where Specific Cell Is Blank

Aug 30, 2012

I have written such loop which I want to delete entire row when a given cell is empty:

Code:
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For Counter = lastrow To 2 Step -1
If Cells(Counter, 6).Value = "" Then
Selection.Rows(Counter).EntireRow.Delete
End If
Next

It works not the way I want. It has ommited some blank rows and also removes 5th row everytime I run it.

View 3 Replies View Related

Delete Rows With Specific Characters In A Specific Column

Dec 10, 2007

Currently I am using the Kickbutt VBA Find Function of Aaron, but I would like to have something that works more efficiently. What I currently do is (assuming all possible values for Column J are A - F):

Find_Range("A", Columns("J"), MatchCase:=True).EntireRow.Delete
Find_Range("B", Columns("J"), MatchCase:=True).EntireRow.Delete
Find_Range("C", Columns("J"), MatchCase:=True).EntireRow.Delete
Find_Range("D", Columns("J"), MatchCase:=True).EntireRow.Delete
Find_Range("E", Columns("J"), MatchCase:=True).EntireRow.Delete

although I just want some code that says: delete all rows except those that have "F" as content in Column J. I already tried something like:

Range("1:65536").Select
For Each cl In Range("J:J")
If cl.Text = "A" Or cl.Text = "B" Or cl.Text = "C" Or cl.Text = "D" Or cl.Text = "E" Then
Rows(cl.Row).Delete
End If
Next

but it also takes much to long. The major problem I think, is that the number of records is variable so I search the entire worksheet...

View 5 Replies View Related

Delete Blank Rows (formula Not Deleting All Rows)

Sep 30, 2008

I have the following codes to delete all blank rows in column A

Dim lastrow As Long
lastrow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
MsgBox lastrow

With Sheet1
For t = 1 To lastrow
If Cells(t, 1) = "" Then
Rows(t).Delete
End If
Next t
End With

End Sub

Although it is working , it is not deleting all the blank rows at once, I have to keep pressing on the macro button running the macro several times, until all blank rows are completely deleted.

View 9 Replies View Related

Delete Blank Rows & Rows Below Meeting Condition

Jun 21, 2008

I have an imported report in a spreadsheet. It imports to three columns. I need to check each row in column A for three seperate criteria and delete the rows I don't need. I need to delete blank rows and check next row for page header info. Delete these and next rows to next blank cell. Check next row for page header and not delete if not page header. Several rows down will be a cell with 23 blank spaces before the word Reg: and sometimes other words past this but always this first. This row is to be kept. I looked at the FAQ's example of Deleting but I don't think it will work. I also need to put a key word in column A at a point where I want to stop. This report is a couple thousand rows long so a VBA procedure would really save time. I have a procedure I use to check for two zero's in two cells that hide these rows but I couldn't modify it to work on this report.

View 9 Replies View Related

How To Delete About 86k Blank Rows

Jun 17, 2014

I have been trying to delete about 86k rows in my table in a worksheet. It has been over 5 hours now and it is still running to delete. any better solution? or how long do i need to wait for the system to finish its work?

View 1 Replies View Related

Only Delete Rows When Whole Row Is Blank

Jan 19, 2012

I have a real problem with a file I'm working on. It has invoice numbers in one column, followed by payment milestones. In the row underneath, there is an 'x' to mark if payment was made in a particular zone, e.g.:

6010136113221/06/201005/07/201022/07/201016/09/2010XXX6010136113313/07/201030/07/201013/08/201014/10/2010XXX

The problem is that there are two rows with data, a blank row, then another two rows with data. I have thousands of rows and need a quick-fix to delete the blanks.

View 1 Replies View Related

VBA To Delete Blank Rows

Feb 23, 2013

a VBA code to delete blank rows.

The current worksheet has data which is retrieved from other worksheets.

For example:

Current worksheet A1= Sheet1!A1
Current worksheet A10= Sheet2!A1
Current worksheet A20= Sheet13!A1

The range of this current worksheet is A1:F1287 and inbetween there are blank rows. The cells in the current worksheet are not technically blank, because each cell (A1:F1287) retrieves the information from the respective worksheet.

I would like to know of a VBA code to delete a whole blank row/-s (all columns of this row is blank) inbetween the range. Therefore, if there is a whole blank row, this row to be deleted and to go to the next row that shows information . In other words, instead of me manually searching and deleting whole empty rows; a VBA code for this task.

View 9 Replies View Related

Too Many Blank Rows To Delete

May 9, 2007

modified my code to have the data continue to the next row where it left off before jump to other sheets. The code below creates too many blank rows of all sheets (9213, 9316, 9501 and 9601).

After the code stops execute, I have to delete all the blank rows. This takes too long, approximately 5 minutes for each sheet...

View 9 Replies View Related

Delete Blank Rows ..

Apr 24, 2009

I am trying to write a macro that will check from 1 to 143 columns..and if all the columns are empty then it has to delete that entire line. Totals rows are over 35000. I am using excel 2007. I have written the below code. Could someone pl help me in enhancing this.. or a better way as this is taking about an hour to complete.

Sub Costa()
Dim i As Long
Dim j As Integer
j = 2
For i = 2 To 37735
loop1: For j = j To 143
If Cells(i, j) = "" Then
j = j + 1
GoTo loop1
Cells(i, j).EntireRow.Delete
Else
j = 2
GoTo loop3
End If
Next j
Cells(i, j).EntireRow.Delete
loop3: Next i
End Sub

View 9 Replies View Related

Delete Rows With Specific Value

Jul 27, 2012

I created the following macro to remove all rows that contain the value 'Shutdown" in column F

Code:

Sub DeleteUniqueValues()
Dim LR As Long, i As Long
LR = Range("F" & Rows.Count).End(xlUp).Row
For i = LR To 3 Step -1
With Range("F" & i)
If WorksheetFunction.CountIf(Columns("F"), .Value) = Shutdown Then .EntireRow.Delete
End With
Next i
End Sub

The macro runs without error, but when I checked the spreadsheet, rows matching this criteria were not deleted.

View 4 Replies View Related

Delete Specific Rows

Sep 13, 2007

is there a code to chose certain rows using there numbers (Row number 3 to row number 9) to be deleted? yes, there is a code to delete the selected rows, but what i am after is a code to chose rows by thier numbers like delete from row3 to row9?

View 7 Replies View Related

Insert Blank Rows Indicated At Specific Points

Oct 17, 2009

I want to insert blanks rows above rows that have the number 1 inserted in column C.

I about 60,000 rows in all, doing it manually takes forever because I have to keep waiting for Excel to push the rows down every time I insert a new row.

Is there an efficient way to grab all the rows with a 1 in column C and insert rows in one swoop? If not, I will settle for any way other than manually.

View 9 Replies View Related

How To Merge Two Rows If Specific Cell Is Blank

Apr 4, 2012

I'm trying to figure out the if conditions for this relatively simple problem. Basically, this is an import from a word document where the table strays onto a new page. I want to try and repair this with a bit of VBA.

This is what it looks like:

1: cell 1 |the content should all be in this cell
2: |but the import sometimes splits it into two
3: cell 2 |

Basically if and only if cell Ax is blank (in this example A2), then I want the rows to merge each cell and repair the table.

View 1 Replies View Related

How To Detect Blank Rows And Then Delete

Apr 18, 2013

I need to detect blank rows and then delete them but for the formula not be be affected

In the example attached there are 4 components but i may only need to use 3 so row 4 would be blank

i need to find the blank rows and delete them and for the formula in cells G12:H14 to be update as necessary

at the moment if i delete the rows i get a REF# in place of the cell which has been deleted

i have tried this on a simple formula and when you delete a row the formula changes as required

View 5 Replies View Related

VBA Delete Blank Rows Within Range

Jun 23, 2014

I've got a code that generates some worksheets in a fairly large workbook. The code is run monthly and replaces the already existing worksheets.

The problem is that each newly generated worksheets contains more than 1 million rows, which means that the size of each worksheet is around 5MB.

I need a code which allows me to delete all blank rows starting with row 1000 in those worksheets.

View 14 Replies View Related

Delete Blank Rows With Autofilter?

Jan 14, 2012

I have created a file where I use the Subtotal function. Once I collapse the information to only give me the Total, I would like to copy the Total rows into another worksheet. However, when I do this I get blank lines in between. I am trying to find a way to delete the blank rows in between the Total rows I need. Is there a way to do this with the auto filter function?

View 1 Replies View Related

Macro To Delete Blank Rows

Nov 13, 2012

I would like VBA code to delete all rows where there are blanks in Col B

View 2 Replies View Related

VBA Find Blank Row And Then Delete 15 Rows Down?

Sep 11, 2013

I need to loop through data when it finds a blank it need to delete that row and 15 rows down and loop through whole data set find blank row and delete 15 rows down.

It's been years since I did any VBA, and I forgot. Do I need to use offset to acheive this task?

View 6 Replies View Related

Macro To Delete Blank Rows

Dec 13, 2007

I need to write a macro that will successfully delete blank rows. I also need to write a macro that will successfully delete duplicates. The duplicates are numbers and they do constantly change.

View 9 Replies View Related

Macro To Delete Blank Rows ...

Jun 12, 2008

I need a macro to delete blank rows from row 2, but excluding the last 4 rows where there is blank rows between the data

See example below where the rows containing blank cells after #2 in column A must not be deleted ...

View 9 Replies View Related

Delete Rows If Data Is Blank

Nov 11, 2008

I have a spreadsheet that has 4 columns and column D has some blanks randomly down the sheet. How can I delete any and all rows that have a blank in column D?

View 9 Replies View Related

Code Won't Delete All Blank Rows

Sep 25, 2009

When I tried this code on excel at home it worked, but now i'm at work and it dosen't delete any rows at all!

Here's the ....

View 9 Replies View Related

Delete Off All Blank Rows In A Spreadsheet

Jul 20, 2006

How can I delete all blank rows in a spreadsheet without sorting the data as I want it to be in the exact order it is in.

View 5 Replies View Related

Delete Rows Where 2 Cells In Same Row Is Blank

Oct 18, 2006

I want to compare the data in column B and C of Row 2 through X (X being up to 20,000), and if BOTH B and C are blank, delete the entire row.

View 4 Replies View Related

Delete Rows With Blank Cells

Jan 8, 2007

I need a Macro that will delete rows within a specific range that contain blank cells or preferably delete the rows where the first cell in the row contains a blank cell.

View 9 Replies View Related

Delete Rows With Some Blank Cells

Jan 17, 2007

I went to the Macros page and pulled this macro to remove rows if they have blank cells:

Sub DeleteBlankRows2()
'Deletes the entire row within the selection if _
some of the cells WITHIN THE SELECTION contain no data.
On Error Resume Next
Selection.EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
On Error Goto 0
End Sub

I ran this and nothing happened. Does anyone have a fix or perhaps a better way to make this happen?

View 2 Replies View Related

Delete Rows If Corresponding Column Is Blank

Jun 15, 2007

I am trying to delete rows that do not have values in column B. This is a quote form that takes up over 1000 rows but not all are needed (ie lines that do not have any value in B "qty"). Is there a way do have excel delete these without doing it manually?

View 3 Replies View Related

Identify Which Rows Have Blank Values In Specific Columns?

Feb 19, 2013

I have a spreadsheet with columns and columns of data. What I'd like to do is identify which rows have blank/no data in all specified columns (H, K, O, S, U, W, and Y).

To clarify, I need to identify each row where all of these columns are blank (as opposed to each row where at least 1 column is blank).

View 3 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved