Home Excel - Downloads / Areas Restritas Excel VBA - Duplicados

Excel VBA - Duplicados

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    vba duplicados formata duplicados vermelho colunaA vba duplicados formata duplicados vermelho colunaA

    popular!
    Adicionado em: 21/11/2010
    Modificado em: 21/11/2010
    Tamanho: Vazio
    Downloads: 786

    Essa macro do Aplicativo Microsoff Excel VBA, verifica duplicados digitados na coluna(A) e insere um formatação nos duplicados, na cor vermelho.

    Sub Verificando_duplicados()

    Dim vLoop As Integer
    Dim vTestandoLoop As Integer
    Dim vLimparRange As String

    Dim vLinhas As Integer
    Dim vRange As String

    'Valores da coluna(A)
    Dim iValorDigitado As String
    Dim vTestandoValor As String

    'Valores da Coluna(B)
    Dim iValorDigitadoB As String
    Dim vTesteValorB As String

    'testando as primeiras 200 linhas da folha de planilha para valores unicos
    vLinhas = 200
    vLoop = 2

    'limpando os dados
    vLimparRange = "A2:B" & vLinhas
    Range(vLimparRange).Interior.ColorIndex = xlNone

    'checando as primeiras 200 linhas da folha de planilha
    While vLoop <= vLinhas
    iValorDigitado = "A" & CStr(vLoop)
    iValorDigitadoB = "B" & CStr(vLoop)

    If Len(Range(iValorDigitado).Value) > 0 Then

    'testando valores únicos
    vTestandoLoop = 2
    While vTestandoLoop <= vLinhas
    If vLoop <> vTestandoLoop Then
    vTestandoValor = "A" & CStr(vTestandoLoop)
    vTesteValorB = "B" & CStr(vTestandoLoop)

    'para valores duplicados em determinadas células
    If (Range(iValorDigitado).Value = Range(vTestandoValor).Value) And (Range(iValorDigitadoB).Value = Range(vTesteValorB).Value) Then

    'Estabelecer a cor de fundo em vermelho(3) para os dados duplicados coluna(A)
    Range(iValorDigitado).Interior.ColorIndex = 3
    Range(vTestandoValor).Interior.ColorIndex = 3

    'determinando a cor de fundo vermelho(3) para os dados duplicados na coluna(B)
    Range(iValorDigitadoB).Interior.ColorIndex = 3
    Range(vTesteValorB).Interior.ColorIndex = 3

    End If

    End If

    vTestandoLoop = vTestandoLoop + 1
    Wend

    End If

    vLoop = vLoop + 1
    Wend

    End Sub

    'retirando os formatos para realização do teste

    Sub tirar_format()

    Range("A2:B1288").Select
    Selection.Interior.ColorIndex = 2
    Range("C1").Select
    End Sub

    'Esta macro abre a paleta de cores
    Sub Abre_Paleta_Cores()
    a = Application.Dialogs(xlDialogEditColor).Show(1, 0, 0, 0)
    End Sub

    Aprenda Aplicativo Microsoff Excel VBA - SaberExcel



    vba duplicados localiza acionando checkboxes vba duplicados localiza acionando checkboxes

    popular!
    Adicionado em: 21/11/2010
    Modificado em: 21/11/2010
    Tamanho: Vazio
    Downloads: 729

    Estes exemplo de FC(Formatação Condicional) do Aplicativo Microsoft Excel, usando fórmulas como Formatação condicional e alguns CheckBoxes de acionando os CheckBoxes localiza os duplicados em cada coluna, através de: Formatação Condicional >> Fórmulas >> e Macros

    Seleciona celulas ir >> Formatar >Formatação Condicional e ver o que foi implantado
    Observe que as caixas de Seleção (CheckBox) estão diretamente ligada a uma célula (nomeada)
    Por exemplo Caixa de Seleção1 = ligada à célula(A1)
    Por exemplo Caixa de Seleção2 =DupeLink(célula nomeada) = $I$1
    Por exemplo Caixa de Seleção1 =$I$1
    Observe os nomes dos ranges para entender melhor como foi feito esta planilha,
    poderá lhe muito útil em suas aplicações

     

    A coluna(A) tem essa formula na Formatação condiconal
    =E($A3>=FirstNum;$A3<=SecondNum;CheckBoxLink) 'Células nomeadas


    A coluna(F) tem essa formula na Formatação condiconal
    =E(CONT.SE($F$3:$F$100;$F3)>1;DupeLink;$F3<>"") 'Células nomeadas

    coluna(H) - tem essa fórmula na formatação condicional
    =E(CONT.SE($H3:$H$100;$H3)>1;CONT.SE($H$3:$H3;$H3)=1;DupeLink2;$H3<>"") 'Células nomeadas




    Aplicativo Microsoft Excel VBA - SaberExcel - o site das macros



    vba duplicados procedimentos e formulas retornam duplicados vba duplicados procedimentos e formulas retornam duplicados

    popular!
    Adicionado em: 21/11/2010
    Modificado em: 21/11/2010
    Tamanho: Vazio
    Downloads: 908

    Esses procedimentos e fórmulas do Aplicativo Microsoft Excel VBA,usando o Evento Worksheet_Change, retorna um determinado valor duplicado digitado na coluna(A) da folha de planilha, também contém exemplo na planilha do uso de fórmulas para formatação de dados duplicados. A fórmula é essa: '=SE(CONT.SE($C$9:$C$16;C9)>1;"< DUPLICADOS!";"") . baixe o exemplo de planilha no final da página.

    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim vLinha, vLinhaFinal As Integer ' Declara nLinha com Inteiro
    If ActiveCell.Column = 1 Then ' só funciona na coluna 1
    vLinhaFinal = 1 ' Define qual é linha onde inicia-se os dados para achar i final da lista

    Do While Not IsEmpty(Cells(vLinhaFinal, 1)) ' Faça enquanto não for vazia as células de valores informado
    vLinhaFinal = vLinhaFinal + 1 ' Incrementa uma linha para baixo
    Loop ' Faz o Loop

    vLinha = 1 'Define qual é linha que inicia-se os dados para comparação
    Do While vLinha <= vLinhaFinal - 2 ' Faça enquanto conter valores informado
    If Cells(vLinhaFinal - 1, 1).Value = Cells(vLinha, 1).Value Then ' Caso o último valores informado for igual ao valores em comparação então...
    MsgBox "Valores duplicado", vbCritical, "Cadastro valores !" 'Exibe uma mensagem
    Cells(vLinhaFinal - 1, 1).Activate 'Ativa o valores em duplicidade
    Cells(vLinhaFinal - 1, 1).Interior.ColorIndex = 4 ' Formata o interior da célula em verde
    Exit Sub ' Finaliza Código
    Else ' Senão
    vLinha = vLinha + 1 ' Vai para o próximo valores da lista
    End If ' Finaliza IF
    Loop ' Faz o Ciclo
    Cells(vLinha + 1, 1).Activate ' Não achando duplicidade, ativa a próxima célula
    If vLinhaFinal > 1 Then Cells(vLinhaFinal - 1, 1).Interior.ColorIndex = xlNone ' Retira o formato do interior da célula em verde, caso contiver
    If vLinhaFinal > 1 Then Cells(vLinhaFinal, 1).Interior.ColorIndex = xlNone ' Retira o formato do interior da célula em verde, caso contiver
    End If
    End Sub ' Encerra o código


    Aprenda Microsoft Excel VBA - SaberExcel


    vba duplicados validacao dados impede digitacao vba duplicados validacao dados impede digitacao

    popular!
    Adicionado em: 21/11/2010
    Modificado em: 21/11/2010
    Tamanho: Vazio
    Downloads: 1570

    Saberexcel - o site das macros
    Essa macro do Aplicativo Microsoft Excel VBA, contém uma macro que impede o usuário de digitar dados duplicados, repetidos.
    Observe que a interdição é partir da Validação de Dados do próprio Aplicativo Microsoft Excel VBA, através do Visual Basic Application

    Sub duplicados_validacao_dados()
    ''With Range("G1").Validation
    With Range("A1:H10").Validation
    .Delete
    .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="''''=CONT.SE($A$1:$H$10;A1)=1"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = "Numero Duplicado!"
    .InputMessage = ""
    .ErrorMessage = "Este número ja foi digitado!"
    .ShowInput = True
    .ShowError = True
    End With
    Range("I1").Select
    End Sub

     

    Aprenda Aplicativo Microsoft Excel VBA -Saberexcel




    Página 2 de 2

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    Google Associados

    Depoimentos

    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