locked
Excluir registros com criterio RRS feed

  • Discussão Geral

  • Olá,

    Estou querendo excluir registros, percorrendo todas as linhas da planilha, com base nos seguintes critérios :
    1)mesma data;
    2) mesmo nome;
    3) sinais diferentes

    Quando satisfeitos esses critérios, deve-se excluir a linha, tanto para o registro encontrado como também o registro original. Tentei montar o seguinte código que lógico não funciona :)

    Sub testeexcluir()
    
    Set testalinha = Intersect(Range("A:C"), ActiveSheet.UsedRange)
    ultimalinha = testalinha.Cells(testalinha.Cells.Count).Row
    primeiralinha = testalinha.Cells(1).Row
    
    Cells.Find(What:="data", After:=ActiveCell).Select
    Application.Goto Reference:="R[1]C"
    ActiveCell.Name = "data"
    Application.Goto Reference:="data"
    Data = ActiveCell.Value
    
    Cells.Find(What:="nome", After:=ActiveCell).Select
    Application.Goto Reference:="R[1]C"
    ActiveCell.Name = "nome"
    Application.Goto Reference:="nome"
    Nome = ActiveCell.Value
    
    Cells.Find(What:="sinal", After:=ActiveCell).Select
    Application.Goto Reference:="R[1]C"
    ActiveCell.Name = "sinal"
    Application.Goto Reference:="sinal"
    Sinal = ActiveCell.Value
    
    
    For i = ultimalinha To primeiralinha Step -1
    
    If Cells(i, 1).Value = Data And Cells(i, 2).Value = Nome And Cells(i, 3) <> Sinal Then
      Rows(i).Delete
    
    End If
    Next
    End Sub
    
    

    Se alguém tiver alguma dica, agradeço!

    terça-feira, 5 de abril de 2011 20:38