Sub DeleteThings() Dim lr As Long Dim c As Range lr = Range("H" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False For Each c In Range("J2:J" & lr) If c.Value = "0" Then c.Offset(, -2).ClearContents End If Next c Application.ScreenUpdating = True End Sub
Sub DeleteThings2() Dim lr As Long Application.ScreenUpdating = False Range("J1", Range("J" & Rows.Count).End(xlUp)).AutoFilter 1, 0, , , 7 lr = Range("H" & Rows.Count).End(xlUp).Row If lr > 1 Then Range("H2", Range("H" & Rows.Count).End(xlUp)).ClearContents End If [J1].AutoFilter Application.ScreenUpdating = True End Sub
Sub DeleteThings3() Application.ScreenUpdating = False With Sheet1.Range("J1", Range("J" & Rows.Count).End(xlUp)) .AutoFilter 1, 0 .Offset(1, -2).ClearContents .AutoFilter End With Application.ScreenUpdating = True End Sub
DON'T MISS
all of them works now my problem is what to use lol