delete rows if there are "no data"

[jaik22]

I would like to write a vba code that if find a row contains "No Data" then delete seven rows to up.

[TABLE="width: 516"]
<colgroup><col span="7"><col></colgroup><tbody>[TR]
[TD]RSV[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]134[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]ATN[/TD]
[TD]AT[/TD]
[TD]OT[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Close[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Name[/TD]
[TD]NA[/TD]
[TD]DT[/TD]
[TD]CRA[/TD]
[TD]ADJC[/TD]
[TD] ADJ[/TD]
[TD]NA[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 3"]No Data Found for selected [/TD]
[/TR]
</tbody>[/TABLE]

So sample data is like that, and I want macro to delete seven rows from No Data row to RSV row.

Is there any way to make this kind of macro, to delete all fields having No Data?

Thank you!

 

[Rhodie72]

I would like to write a vba code that if find a row contains "No Data" then delete seven rows to up.

[TABLE="class: grid, width: 80%, align: center"]
<tbody>[TR]
[TD]RSV
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]134[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]ATN[/TD]
[TD]AT[/TD]
[TD]OT[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Close[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Name[/TD]
[TD]NA[/TD]
[TD]DT[/TD]
[TD]CRA[/TD]
[TD]ADJC[/TD]
[TD] ADJ[/TD]
[TD]NA[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="colspan: 3"]No Data Found for selected[/TD]
[/TR]
</tbody>[/TABLE]

So sample data is like that, and I want macro to delete seven rows from No Data row to RSV row.

Is there any way to make this kind of macro, to delete all fields having No Data?

Thank you!

There is a way. Is there a maximum width to the number of columns?

 

[jaik22]

for this workbook, i have 30661 rows, but number of rows are different if I open up the other workbook.

Thank you so much for your support!

 

[Rhodie72]

for this workbook, i have 30661 rows, but number of rows are different...

That's fair enough, but what about columns, as asked in my previous post?

In your example there are only 8 columns which means I can shorten the search time down greatly. If there are 30,000+ columns then it will take longer.