Home Excel - Dicas Microsoft Excel VBA Excel VBA - Compara Excel planilha vba compara dados duas colunas cores

Excel planilha vba compara dados duas colunas cores

E-mail Imprimir PDF

Excel vba compara copia nao duplicados ordrna lista nao comuns

Escola Saberexcel VBA Estudos e Treinamentos com Macros Fórmulas e Funções

O CRITÉRIO USADO É O NÚMERO 1  'UM'
O macro verifica  as quatro colunas como você pode  observar,por exemplo verifica se existe o número (1) , poderia ser qualquer número ou palavra.
Um contador com a instrução (For ..Next) entra na coluna(B) verifica se existe o número (1), desloca uma coluna à direita e insere a cor vermelho se o valor for igual a 1 também. na realização do teste o que for diferente de (1) não será verificado e  não será inserido a formatação vermelho.

Se voce é aprendiz de VBA ou está iniciando, depois de dominar bem todo vocabulário do vb, as propriedades  dos objetos e  com seus métodos e eventos,  é de extrema importância aprender  tudo sobre as instruções  LOOP  (\While...Wend \Do...While...Loop \Do...Loop...While\ Do...until..Loop \ Do...Loop...unti l \ For...Next \For...Each...next )  e também sobre a propriedade DESLOC(offset)  e finalmente  praticar bastante, pois não há outro caminho para o aprendizado a não ser  centenas e até milhares de horas praticando com macros  e observando resultados, pois qualquer linguagem de programação é um universidade de dados, cálculos e lógica.

Aprender a programar e desenvolver é algo fascinante,  nosso objetivo é  oferecer aos nossos alunos material didático para prática  com excelente qualidade e baixo custo. Ser um programado/desenvolvedor  precisa  de esforço, tenacidade, criatividade, atenção  e muita determinação, a lógica vai acontecendo com a prática.

Desejo-lhes todo o bem
Fique com Deus,  paz, saúde, hamonia e alegria de viver.
Expedito Marcondes
Escola Saberexcel VBA Estudos® - Treinamento com Macros, Fórmulas e Funções

Laila , minha aluna querida.
veja bem ao inserir cores, poderiamos fazer mil ações.
deletar planilha, deletar células, deletar linhas, deletar colunas, inserir, copiar, apagar, substituir, deslocar, formatar, adicionar, somar, dividir, et.......
é só usar a criatividade, veja que nesse momento, voce poderá relacionar uma lista enorme de ações que poderiamos fazer ao retornar critério "(true= verdadeiro)" a ação instrução loop. não é mesmo? Fique com Deus. Expedito Marcondes

Sub Inserir_cores_celula_determinada()
    Dim vContador       As Long
    Dim UltimaLinha     As Long
    Dim vPrimeiraLinha  As Long
    Dim UltimaColuna    As Long
    Dim vPrimeiraColuna As Long
    Dim vArea           As Long
   
   
    [B2:E22].ClearFormats  'limpando os formatos para o procedimento entrar com novas formatações.
    'formatando a area depois do clearformats
    [B2:E22].Borders.LineStyle = xlHairline 'xlThick
    [B2:E22].Font.Size = 8
    [B2:E22].Font.Name = "Consolas"
    [B2:C22].Interior.ColorIndex = 35
    [D2:E22].Interior.ColorIndex = 36
   
    'localizando linhas e colunas
    UltimaLinha = Range("A1000000").End(xlUp).Row       'Procura pela última linha
    UltimaColuna = Range("XFD4").End(xlToLeft).Column   'determina última coluna utilizada
    vContador = 0          'Contador linhas
    vPrimeiraLinha = 4     'Primeira linha dados desejado

   'instrução For Next com Select Case para identificar as células com o critério desejado (neste caso o número.1)
    For vArea = vPrimeiraLinha To UltimaLinha
          For vPrimeiraColuna = 3 To UltimaColuna Step 2    'escolha proxima D coluna
          
               Select Case Cells(vArea, vPrimeiraColuna - 1).Value  'verifica a entrada da coluna anterior
                   Case 1
                        If Cells(vArea, vPrimeiraColuna).Value = 1 Then  'verifica se o valor é igual a 1
                           Cells(vArea, vPrimeiraColuna).Interior.Color = RGB(254, 0, 0) 'define a cor do interior da célula localizada
                           vContador = vContador + 1    'incrementa o contador da célula encontrada
                        End If
                   Case      'caso for zero não faça nada (end select)
            End Select

         Next vPrimeiraColuna
      
    Next vArea
   
    MsgBox "verificação concluida colorida " & vContador & " casos ", vbInformation, "Escola Saberexcel VBA Estudos®"
    [G7].Value = "Foram verificados [  " & vContador & " ] casos em que ocorreram o critério(1) e correspondencia"
End Sub

'retorna o número da ultima coluna usada
'observe que usei esse código no macro acima para identificar a coluna desejada,
'não deixe de ver nosso trabalho sobre a propriedade desloc(offset (linhas, células e colunas))
Sub treinamento_saberexcel_ultima_coluna()
 UltimaColuna = Range("XFD4").End(xlToLeft).Column
 MsgBox UltimaColuna
End Sub

'macro apenas para treinamento localiza ultima linha também usada também no macro acima
'não deixe de ver nosso trabalho sobre a propriedade desloc(offset (linhas, células e colunas))

Sub treinamento_saberexcel_ultima_linha()
 UltimaLinha = Range("A1000000").End(xlUp).Row
 MsgBox UltimaLinha
End Sub

'macro apenas para treinamento insere bordas, usada também no macro acima
Sub treina_saberexcel_bordas()
Range("A1:G17").Borders.LineStyle = xlThick 'xlContinuous
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 os macros acima:
Excel planilha vba compara dados duas coluna cores (90.81 KB)

Última atualização em Seg, 24 de Setembro de 2012 16:27  

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_counterHoje4343
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana29003
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês42732
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10465561
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