delete the non blank rows depending on Column

  • Thread starter Thread starter Harn88
  • Start date Start date
H

Harn88

Hello

I need some help with this please. I would like to create a Marco that will
help me delete the non blank rows depending on Column C. For example, a Marco
will delete everything except Row 2 Column C and Row 4 Column C. Since Column
C for those 2 rows is blank it will not delete.

A B C
1 meeting Yes 20
2 meeting Yes
3 meeting Yes 10
4 meeting Yes
5 meeting Yes 100

So after the Macro, it should look something like this

A B C
1 meeting Yes
2 meeting Yes

Thank you very much

Harn
 
Hi,

Right click your sheet tab, view code and paste this in and run it.

Sub stance()
Dim MyRange As Range
Dim DelRange As Range
Lastrow = Cells(Cells.Rows.Count, "C").End(xlUp).Row
Set MyRange = Range("C1:C" & Lastrow)
For Each C In MyRange
If Not IsEmpty(C) Then
If DelRange Is Nothing Then
Set DelRange = C.EntireRow
Else
Set DelRange = Union(DelRange, C.EntireRow)
End If
End If
Next
DelRange.delete
End Sub


Mike
 
Back
Top