A sugestão do Caio é muito boa... e seria necessário apenas procurar "Diferente" numa coluna.
De qualquer forma, por exemplo, no VBAProject, em EstaPasta_de_trabalho:
Private Sub Workbook_BeforeClose(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 : 04/10/2010 3:41 pm