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

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

Parabéns pelos produtos didáticos, gostei muito do curso completo ms excel vba, hoje estou praticando com macros, aprendi muito. Obrigado. Osvaldo São Paulo....

Osvaldo Oliveira
16 November 2011
Quero parabenizá-los pelo excelente trabalho, estou muito satisfeito com aquisição do DVD das Planilhas exemplo e a Coleção de Macros que é riquissíma....

Marcos Antonio G. Alves - Curitiba(PR)
04 November 2010

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