Home Excel - Dicas Microsoft Excel VBA Excel VBA - Duplicados Excel planilha vba funcao retorna valores unicos

Excel planilha vba funcao retorna valores unicos

E-mail Imprimir PDF

Escola Saberexcel VBA Estudos - o site de quem precisa aprender Macros ms Excel VBA

Esses macro e Função do aplicativo Microsoft Excel VBA(Visual Basic Application), retorna os o total de ítens ou nomes não duplicados, em determinada coluna. Observe que a título didático usei também o VBA(Visual Basic Application) para chamar a função e retornar o valor (totalizando os nomes não duplicados) em mensagem e também direcionado para célula B1 na folha de planilha principal.
Espero que o exemplo possa lhe ser útil. também inserí umas variáveis Constante com finalidade didática.
Fique com Deus, Expedito Marcondes.


Const a = "Escola Saberexcel VBA Estudos®"
Const s = vbInformation

Function ContarValorUnico(Intervalo As Range)
 Dim iValoresUnicos As New Collection
 On Error Resume Next
 
 For Each vCelulas In Intervalo
     iValoresUnicos.Add vCelulas.Value, CStr(vCelulas.Value)
 Next vCelulas
 
 
 On Error GoTo 0
 ContarValorUnico = iValoresUnicos.Count
End Function

'observem que o endereço do intervalo (Range()) área é expandido pela variável (x)
'------
Sub md_chamar_funcao()
Dim X As Integer
 X = Saber1.Range("A" & Application.Rows.Count).End(xlUp).Row
 
[b1] = ContarValorUnico(Range("a1" & ":A" & CStr(X)))
MsgBox "Existem [ " & ContarValorUnico(Range("a1" & ":A" & CStr(X))) & " ] Valores não duplicados ", s, 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 Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



  Baixe o exemplo de planilha contendo a função e os macros acima:
Excel planilha vba funcao retorna valores unicos (85.87 KB)

Última atualização em Ter, 27 de Dezembro de 2011 17:47  

Comentários  

 
# Ivanise 22/10/2014 09:33
Obrigada pela oportunidade de aprender um pouco mais de VB.
À partir do seu modelo, consegui implementar o que queria.
A grande maravilha desse novo mundo é a colaboração!
Responder | Responder com citação | Citação
 
 
# Expedito Marcondes.. 22/10/2014 11:44
Prezada Ivanise,
Agradeço imensamente pela seu comentário,
o aprendizado é união de necessidade, interesse, vontade,
persistência, etc..., assim podemos aprender qualquer coisa.
Fique com Deus,
Expedito Marcondes.
Responder | Responder com citação | Citação
 

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_counterHoje1606
mod_vvisit_counterOntem5672
mod_vvisit_counterEsta Semana11737
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês25466
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10448295
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