locked
Excluir Linha no Excel com Macro RRS feed

  • Pergunta

  • Bom Dia,

    Meu nome é Rafael e eu estou tentando eliminar algumas linhas no excel por meio de um macro.

    Já tentei inumeros macros mas nenhum funcionou.

    A tabela é a seguinte:

           A                       B               C           D

    1    data                coluna A     nome    coluna B

    2    01/01/2010           2          ABCB4        10

    3    01/01/2010           96        BVMF3         20

    4    01/01/2010           62        ELPL6          30

    5    01/01/2010           2          CTIP3         30

    6    01/01/2010           62         LIGT3         10

    7    01/01/2010           2          SLED4         10

    Nesta tabela eu quero que só fiquem as linhas cuja a coluna A apresenta valor 2, e a coluna B apresente valor 10. Consequenntemente,  todas as outras linhas serião excluidas.

    Muito Obrigado pela paciencia e atenção

    Rafael

     

     

     

     

     

    20090102 2 ABYA3 10 ABYARA
    20090102 96 ABYA3F 20 ABYARA
    20090102 2 ACGU3 10 GUARANI
    20090102 96 ACGU3F 20 GUARANI
    20090102 2 AEDU11 10 ANHANGUERA
    • Movido Rogerio Jerez segunda-feira, 21 de junho de 2010 20:54 Movido para o Fórum apropriado. (De:Conteúdo do site MSDN)
    segunda-feira, 21 de junho de 2010 19:00

Todas as Respostas

  • Rafael boa noite

    Tente com a macro a seguir.

     

     

    Sub Excluir()
    Dim i As Integer
    Dim par1 As Integer, par2 As Integer
    
    par1 = InputBox("Digite o Parametro para a coluna A", "Parametro", 2)
    par2 = InputBox("Digite o Parametro para a coluna B", "Parametro", 10)
    
    For i = 1 To Range("A1").End(xlDown).Row
     If Range("B" & i) <> par1 And Range("D" & i) <> par2 Then
      Range(i & ":" & i).Delete
      i = i - 1
     End If
    Next i
    End Sub

     


    Ela irá solicitar os parametros que deseja exibir.

    teste e qqer coisa fale.

     

    []´s


    Bruno Silva Leite Office Developer
    • Sugerido como Resposta Bruno S. Leite quarta-feira, 23 de junho de 2010 22:29
    terça-feira, 22 de junho de 2010 00:09
  • Acredito que essa seja a melhor resposta,

     

    Sub Excluir()
    Dim i As Integer
    Dim par1 As Integer, par2 As Integer

    par1 =  2
    par2 =  10

    U_L = ActiveSheet.Range("A" & Rows.Count).End(xlup).row

    For i = U_L To 2 step -1
     If Range("B" & i) <> par1 And Range("D" & i) <> par2 Then
      Range(i & ":" & i).Delete
     End If
    Next
    End Sub

     

    Abraços,


    Baldini Fabio
    • Sugerido como Resposta Baldini quarta-feira, 23 de junho de 2010 03:18
    quarta-feira, 23 de junho de 2010 03:18