Compare Column H and Column I

[leonardo1234]

Compare Column H and Column I , if the value is more than double to each other then fine and if not then delete the row
I am pasting the result in sheet3 but I want the result in same sheet

[HansV]

Here is another variation on Rudi's macro:

Code: Select all

Sub Delete_NotDouble()
    Application.ScreenUpdating = False
    Range("A1").EntireColumn.Insert
    Range("A1").CurrentRegion.Columns(1).FormulaR1C1 = "=RC[9]<=2*RC[8]"
    Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:="TRUE"
    With ActiveSheet.AutoFilter.Range
        On Error Resume Next
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        On Error GoTo 0
    End With
    ActiveSheet.AutoFilterMode = False
    Range("A1").EntireColumn.Delete
    Application.ScreenUpdating = True
End Sub

[leonardo1234]

Thnx HansV Sir for giving ur precious time and great support to this post
Problem Solved