Auto Delete Data

tlc53

Active Member
Joined
Jul 26, 2018
Messages
399
Hi,

I have a very large amount of data that I would like to tidy up using a macro. I've sorted the data by the relevant columns and now I have rubbish data at the end, which I would like deleted.

Column A has a Ticket Number. Once column A stops having a ticket number, any data contained under columns A:K needs to be deleted.

In this particular case (and it will change depending on the months data) Cell A11721 is the last cell with a ticket number, so (in this case) all data contained in the next 24,104 rows, so A11722 : K35825 needs to be cleared or deleted.

I don't expect my data to exceed 50,000 rows so on that basis I tried the following VBA code..

Code:
Sub DeleteBlankRows()
   Dim Cl As Range
   For Each Cl In Sheet1.Range("A2:A50000")
     Cl.EntireRow.Delete = IIf(Cl = 0, True, False)
   Next Cl
End Sub

However, it's not working and reporting error "Object Required". I'm not sure if this is the best way to do it though.

Any ideas please?
 

Excel Facts

How to calculate loan payments in Excel?
Use the PMT function: =PMT(5%/12,60,-25000) is for a $25,000 loan, 5% annual interest, 60 month loan.
Hello tlc,

Are you saying that all rows (from Column A to Column Whatever) below row 11721 are blank or displaying a zero(0) as the result of a formula calculation?

Cheerio,
vcoolio.
 
Upvote 0
Once column A stops having a ticket number, ...
I'm assuming that means column A cells from then on are blank. If so, try this with a copy of your data.

Code:
Sub Delete_Blank_Rows_using_Col_A()
  Dim lr As Long, lrA As Long
  
  lr = Range("B:K").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
  lrA = Range("A" & Rows.Count).End(xlUp).Row
  If lr > lrA Then Rows(lrA + 1).Resize(lr - lrA).Delete
End Sub
 
Upvote 0
Thank you! After column A stops having a ticket number the majority are then blank, however not all. There are some text headings that need to be deleted further down.

I tried your vba code, thank you Peter, but it didn't do anything. It didn't bounce back any errors either.

I have now gone down the route of using Advanced Filter which looks like it's going to do what I need!

Thank you for your help.
 
Upvote 0
Thank you! After column A stops having a ticket number the majority are then blank, however not all.
Is the cell after the last ticket number always blank? If not how do you tell where the ticket numbers end? Do the ticket numbers have a particular format? (eg are they simply numerical and the other stuff in column A is not, or perhaps the ticket numbers all start with something like "Tkt..." and the stuff you want to get rid of does not?)
A small set of dummy sample data using one of the methods linked from my signature block below would also be very helpful.
 
Last edited:
Upvote 0
Yes, the cell after the last ticket number is always blank and then approximately the next 300 rows before text shows up. This will always be the case.
When I try running your code the screen doesn't flicker nor does anything change. For this reason, I don't think it's running.
 
Upvote 0
For this reason, I don't think it's running.
I think it did run but in my earlier post I made an assumption ..

Once column A stops having a ticket number, ...
I'm assuming that means column A cells from then on are blank.
It turns out that assumption was incorrect, hence the code did not do what you expected. :)

Try this version instead. This time I am relying on
a. Your assertion that the cell after the last ticket number is empty, and
b. My own assumption that there are no blank cells in column A in among the ticket numbers.

Code:
Sub Delete_Blank_Rows_using_Col_A_v2()
  Dim lrTkt As Long, lrA As Long
  
  lrTkt = Range("A1").End(xlDown).Row
  lrA = Range("A" & Rows.Count).End(xlUp).Row
  If lrA > lrTkt Then Rows(lrTkt + 1).Resize(lrA - lrTkt).Delete
End Sub
 
Upvote 0
Originally I had thought every line in column A was blank after the ticket number stopped but it was only on closer inspection, I noticed that was not the case. Sorry for not checking and being precise to begin with. Your assumption b) is also correct :)
Thank you very much for the new code. It works perfectly and is brilliant. Thank you!
 
Upvote 0
Hi again Peter.
I'm now applying this macro to the big scheme of things however, it's not quite behaving as I would like.
It deletes everything from the last ticket number apart from there's one row it just won't delete. It doesn't matter how many times I run it, it does not want to delete that line/those figures.
I'm attaching a copy of the file, so you can see what I mean. It's the 2x $2,469.95 figures on row 6 which won't go away (I've cut out the bulk of the data for this test purpose). Any idea why it might be doing that? Thank you.

https://www.dropbox.com/s/dpx44zs4ex61lt5/Delete Blank Lines - Ticket Macro.xlsm?dl=0
 
Upvote 0

Forum statistics

Threads
1,213,497
Messages
6,113,998
Members
448,541
Latest member
iparraguirre89

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top