Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA.

Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), compara dados em intervalo de células, se não for ou não idênticos, retorna uma mensagem, VERDADEIRO OU FALSO

Option Explicit
Sub Verifica_se_intervalos_identicos()
Dim a, b As Variant, c As Boolean, i As Long, j As Long, X As String
X = "Há dados diferentes"
a = Range("A1:A10").Value
b = Range("B1:B10").Value
c = True

For i = LBound(a, 2) To UBound(b, 2)
For j = LBound(a, 1) To UBound(a, 1)
If Not a(j, i) = b(j, i) Then
c = False: Exit For
End If
Next j
If Not c Then Exit For
Next i

If c = False Then
MsgBox "Dados idênticos? : [ " & c & " ] " & X, vbCritical, "Saberexcel"
Else
MsgBox "Dados idênticos? : [ " & c & " ]", vbInformation, "Saberexcel"
End If

If Application.CountIf([a1:a10], 0) >= 1 Then MsgBox "Intervalo col(A) contém zero"
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


´

Publicidade
Compre com segurança, garantia e ótimos preços

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 0 '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.