Detalhes de Excel planilha vba compara dados intervalo celulas

PropriedadeValor
Nome:Excel planilha vba compara dados intervalo celulas
Descricao:

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
Eletrônicos - Submarino.com.br

Nome do arquivo:Excel planilha vba compara dados intervalo celulas.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:SaberExcel
Criado em: 21/05/2011 10:20
Visitas:Todos
Responsavel:Autor
Acessos:1371 Acessos
Atualizado em: 21/05/2011 10:22
Site: