Macro to delete rows based on a condition

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am trying to write a macro that will delete rows from a spreadsheet based
on a condition. I pull information from another program into excel for
budget purposes and it throws the company names in the header in column form,
so based on how many companies I pull in the number of rows that will need to
be deleted will be changing. I have text that starts after the companies
names (Trial Balance) and I want this to always start on A7. My question is
how do I tell excel to look for the word Trial Balance in Column A and then
delete everything that comes before it? Any help is greatly appreciated.
 
This sub looks for the words Trial Balance in column A. It will delete all
rows above the found row:

Sub zero()
Set r = ActiveSheet.UsedRange
nLastRow = r.Rows.Count + r.Row - 1
killer = 0

For i = nLastRow To 1 Step -1
If killer = 1 Then
Cells(i, 1).EntireRow.Delete
End If
If Cells(i, 1).Value = "Trial Balance" Then
killer = 1
End If
Next
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Conditional formatting on a dynamic range - workaround 1
Add a new row in Named Table (Table1) and add data from txtboxes into last empty cells based on header named of the Table1 0
del certain rows based on word search 2
Multiple Conditions 2
Hide columns based on row values 2
Subtracting based on 2 conditions 3
Deleting Rows based on a Value 1
Deleting Rows on condition 0

Back
Top