Notifications
Clear all

Comparar colunas

3 Posts
1 Usuários
0 Reactions
1,352 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia, galera
Vamos supor que eu tenha 2 colunas ( A e B )
Todos os valores em A são iguais aos valores em B.
Gostaria que uma macro verificasse se o usuário digitou valor diferentes em alguma das colunas

Exemplo:
A B
1 AAA AAA
2 BBB BBB
3 CCC DDD
No caso acima a macro verá que B3 é diferente do A3 e apresentará uma MsgBox
Encontrei a macro abaixo, porém ela só mostra o erro se o usuário salvar a planilha
Sou leiga em VBA, portando conto com a ajuda de todos

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

i = 2
j = Sheets("Plan1").Range("A65536").End(xlUp).Row

Do While i <= j

If Sheets("Plan1").Cells(i, 1) = Sheets("Plan1").Cells(i, 2) Then
i = i + 1
Else
MsgBox ("Erro na linha " & i)
Cancel = True
Exit Sub
End If

Loop

End Sub

 
Postado : 03/03/2011 7:41 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

É só você renomear a macro...
Mude de "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)"
Para
Sub Verifica_erros(), por exemplo.
Neste caso você vai ter que executar a macro você mesma, ou atribuí-la a algum botão.

Atenciosamente,
Gustavo

 
Postado : 04/03/2011 10:41 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Gustavo, muito obrigada
era isso mesmo que eu precisava

att.
Paula

 
Postado : 04/03/2011 1:09 pm