excluir linha com critérios

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target.Value = "cumpriu" Then Rows(Target.Row).Delete

End Sub

osvaldomp disse:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target.Value = "cumpriu" Then Rows(Target.Row).Delete

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)



  On Error Resume Next



  If Not Intersect(Target, Range("E:E&quot) Is Nothing Then



  Range("E1&quot.Sort Key1:=Range("E2&quot, _



  Order1:=xlAscending, Header:=xlYes, _



  OrderCustom:=1, MatchCase:=False, _



  Orientation:=xlTopToBottom



  End If



End Sub

Public Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target.Value = "cumpriu" Then Rows(Target.Row).Delete

End Sub

antonio_moura5 disse:

... tipo se eu colocar cumpriu na coluna g a linha que eu colocar ela apagar , pois fiz um comando de classificaçao automática na coluna f ,ai quando eu junto os dois comandos o comando de cumpriu so funciona na coluna f ( a mesma da classificaçao)

    Public Sub Worksheet_Change(ByVal Target As Range)

     If Target.Count > 1 Then Exit Sub

      If Target.Column = 7 And Target.Value = "cumpriu" Then

       Rows(Target.Row).Delete

      ElseIf Target.Column = 5 Then

       Range("E1&quot.Sort Key1:=Range("E2&quot, Order1:=xlAscending, Header:=xlYes, _

        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

      End If

    End Sub