delete the non blank rows depending on Column
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
"Harn88" wrote:
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
|