Home Excel - Dicas Microsoft Excel VBA Excel VBA - Duplicados Excel vba deletar linhas duplicados criterio

Excel vba deletar linhas duplicados criterio

E-mail Imprimir PDF

Saberexcel - o site de quem precisa aprender macros microsoft excel vba

Esse macro do Aplicativo Microsoftexcel Excel VBA, com auxilio de uma inputbox para o critério de deleção de linhas preserva a linha com ítem escolhido ou seja preserva valores únicos ou ao contrário deleta os únicos e preserva os duplicados, pois a deleção de dá pelo critério do nome contido na fórmula na coluna (C)  - 'Único" ou "Duplicado". no final da página há um link para baixar o exemplo de planilha contendo o macro abaixo.
Espero que o exemplo possa ajudá-los.
'- - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - -
A Fórmula usada para retornar o critério dos duplicados é:
'=SE(CONT.SE($A$2:B2;B2)>1;"Duplicado";"Único")
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub Loop_for_next_preservar_palavra_exluir_linha()
vCriterio = InputBox("Digite a palavra que desejar preservar:", "Escola Saberexcel VBA Estudos®", "Único")
If vCriterio = Cancel Then 'caso o usuário resolva cancelar a operação para nao ocorrer erro.
   Exit Sub
End If

If CStr(vCriterio) <> "Único" And CStr(vCriterio) <> "Duplicado" Then
   MsgBox ("valores não existente, digite novamente")
   vCriterio = InputBox("Digite a palavra que deseja preservar:", "Escola Saberexcel VBA Estudos®", "Único")
   If vCriterio = Cancel Then'caso o usuário resolva cancelar a operação para nao ocorrer erro.
      Exit Sub
   End If
End If

For i = ActiveSheet.Cells(65536, 1).End(xlUp).Row To 2 Step -1
     If Cells(i, 3).Value <> vCriterio Then
        Cells(i, 3).EntireRow.Delete Shift:=xlUp
     End If
Next i

MsgBox ("Linhas contendo dados [ ") & vCriterio & " ] foram PRESERVADAS!!!", _
         vbInformation, "Saberexcel - o site das macros"
End Sub

Sub copiar_teste()
[a].Copy [b]     'aqui renomeiei a área 'a' (Plan(Auxiliar)(A1:D21)) a ser copiada e célula(A1) como [b] para receber os dados 'a' 
End Sub
' - - - - - - - - - - - - - - - - - - - - - - -
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos
da Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




  Baixe o exemplo de planilha contendo os macros acima:
Excel vba deletar linhas duplicados criterio (88.61 KB)

Última atualização em Sáb, 19 de Novembro de 2011 11:16  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje1721
mod_vvisit_counterOntem5672
mod_vvisit_counterEsta Semana11852
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês25581
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10448410
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA