Home Excel - Dicas Microsoft Excel VBA Excel VBA - Duplicados Excel planiha vba duplicados elimina ou insere cores numeros duplicados

Excel planiha vba duplicados elimina ou insere cores numeros duplicados

E-mail Imprimir PDF

Saberexcel - o Site das Macros

Essa macro do Aplicativo Microsoft Excel VBA, deleta dados duplicados em determinada região, voce poderá selecionar manualmente a região que deseja examinar e deletar todos os dados duplicados, da também para verificar os dados duplicados e não duplicados, só adptar código na macro, observe as cores do interior da célula, as que a condição if for Verdadeira e ou falsa.

Sub Duplicados_ou_nao_Duplicados()
Dim sbColecao As New Collection, Cell As Range, sbRegiao As Range
If [M12].Value = "Dados duplicados deletados" Then
MsgBox ("Dados duplicados já deletados, insira novamente novos dados"), vbCritical, "Saberexcel - site das Macros"
Exit Sub
End If

On Error Resume Next
Set sbRegiao = Application.InputBox("Selecione área [range a examinar]", "Saberexcel - site das macros", Type:=8)
If IsEmpty(sbRegiao) Then Exit Sub

For Each Cell In sbRegiao
If Cell.Value <> "" Then
sbColecao.Add Cell.Value, CStr(Cell.Value)
If Err <> 0 Then
Err.Clear
Cell.ClearContents
'Cell.Interior.ColorIndex = 43
Else
'Cell.ClearContents
Cell.Interior.ColorIndex = 6
End If
End If
Next Cell
[M12].Value = "Dados duplicados deletados"
End Sub

Sub copiar_para_teste()
Sheets("Plan2").Select
Range("A1:J10").Select
Selection.Copy
Sheets("Plan1").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
[M12].Value = "Novos dados inseridos para teste"
End Sub



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





   
Baixe o exemplo de planilha com a macro acima
Excel planilha vba duplicados elimina ou insere cores numeros duplicados (20.68 kB)
 

Última atualização em Sáb, 13 de Agosto de 2011 18:34  

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_counterHoje324
mod_vvisit_counterOntem4536
mod_vvisit_counterEsta Semana324
mod_vvisit_counterSemana passada34300
mod_vvisit_counterEsse mês48353
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10471182
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