macro help!!

[seriouslystuck]

Hi all

I need some help. Im trying to write a macro to clean up data in excel. What I want to do is if A1.value is =>D1 and =<C1 and H1.value is 0 the delete the row. I can write the loop to cycle through the rows but dont know how to write the rest.

Any help would be great

Thanks

 

[gaj104]

What I want to do is if A1.value is =>D1 and =

Did you miss the rest of the post there? That statement is fairly meaningless.

 

[seriouslystuck]

Sorry about that. I ment.

If A1.value is =>B1 and =<C1 and E1.value is "0" then delete the row

Thanks

 

[Hermanito]

Try a space after the < symbol, otherwise it gets treated as an invalid HTML-tag and gets stripped out

 

[seriouslystuck]

Thanks

If A1.value = > B1 and = < C1 and E1.value is "0" then delete the row

 

[Hermanito]

For what range of rows do you want to run this check? Or is this variable and does the code need to find the last row itself?

 

[seriouslystuck]

Hi

Thanks for the reply

I need the loop to find the last row

 

[Hermanito]

Try this:

Public Sub RemoveRows()
    Dim LastRow As Long
    Dim RowCounter As Long
    LastRow = Me.Cells(Me.Rows.Count, 1).End(xlUp).Row
    RowCounter = LastRow
    While RowCounter > 0
        If Me.Cells(RowCounter, 1).Value >= Me.Cells(RowCounter, 2).Value And _
            Me.Cells(RowCounter, 1).Value <= Me.Cells(RowCounter, 3).Value And _
            Me.Cells(RowCounter, 5).Value = "0" Then
            Me.Rows(RowCounter).Delete
        Else
            RowCounter = RowCounter - 1
        End If
    Wend
End Sub

You need to put that code in the worksheet code module where you want to run it. Also, use with care on a BACKUP of your data, I haven't tested it...