Excel planilha vba compara dados intervalo celulas

Sáb, 21 de Maio de 2011 10:07 Expedito Marcondes
Imprimir

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


´

  Baixe o exemplo de planilha contendo a macro acima
Excel planilha vba compara dados intervalo celulas (67.84 KB)



Publicidade
Compre com segurança, garantia e ótimos preços
Eletrônicos - Submarino.com.br

Tags:
Última atualização em Qua, 10 de Agosto de 2011 08:22