Macro to delete 3 rows if macro is wrong?

[tonywatsonhelp]

Hi Everyone,

I'm looking fo a macro that in sheet "report" goes down column C
and finds each row that contain data in column C,
The looks to see if there is any data in columns D,E,F of that same row,

if there are great move on to the next if not delete the row and the two rows under it.

any ideas how this can be done?

Thanks

Tony

 

[My Aswer Is This]

Thank you and the answer is

Tony

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

 

[oldbrewer]

Title

Value1

Value2

Value3

What I need to happen

Magic Man

H17ty

2500p

Keep as is

Keep as is

Keep as is

Door Closer

Delete row because D E F are all empty

D

D

delete row because above was deleted

D

Delete row because above was deleted

D

Rubber Bucket

T56765

&yty

88iu

Keep

Keep

Keep

TV stand

p890

5664T

Keep

Keep

Keep

Door Handel 7

Delete

D

D

Delete

D

Delete

D

I have used helpers to mark rows for deletion

this is before macro runs

<colgroup><col><col><col><col span="3"><col><col span="3"><col><col><col><col></colgroup><tbody>
</tbody>

 

[oldbrewer]

Title

Value1

Value2

Value3

What I need to happen

Magic Man

H17ty

2500p

Keep as is

Keep as is

Keep as is

Rubber Bucket

T56765

&yty

88iu

Keep

Keep

Keep

TV stand

p890

5664T

Keep

Keep

Keep

I have used helpers to mark rows for deletion

this is after this macro runs

Sub Macro4()

'

' Macro4 Macro

' Macro recorded 26/03/2018 by bob

'

'

j = 1

10 j = j + 1

If j > 25 Then GoTo 100

If Cells(j, 10) = "D" Then Cells(j, 11) = "D": Cells(j + 1, 11) = "D": Cells(j + 2, 11) = "D": j = j + 2: GoTo 10

GoTo 10

100 For k = 25 To 2 Step -1

If Cells(k, 11) = "D" Then GoTo 50 Else GoTo 200

50 Rows(k).Select

Selection.Delete Shift:=xlUp

200 Next k

End Sub

<colgroup><col><col><col><col span="3"><col><col span="3"><col><col><col><col span="4"></colgroup><tbody>
</tbody>

 

[Rick Rothstein]

I think you may already have a working solution, but for the record, this is how I write the macro...

[table="width: 500"]
[tr]
	[td]Sub DeleteTitlesWithNoData()
  Dim LastRow As Long, Cell As Range
  LastRow = Cells(Rows.Count, "C").End(xlUp).Row
  Application.ScreenUpdating = False
  On Error GoTo NoTripleBlanks
  Range("C2:C" & LastRow) = Evaluate(Replace("IF(C2:C@="""","""",IF((D2:D@="""")+(E2:E@="""")+(F2:F@=""""),""#N/A"",C2:C@))", "@", LastRow))
  For Each Cell In Columns("C").SpecialCells(xlConstants, xlErrors)
    Cell.Resize(3).Value = "#N/A"
  Next
  Columns("C").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
NoTripleBlanks:
  Application.ScreenUpdating = True
End Sub[/td]
[/tr]
[/table]