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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 03/03/2011 7:41 am