Cole e adapte o código no Evento da Planilha que você quer (onde está o '10' você coloca o valor da sua matriz
Private Sub Worksheet_Change(ByVal Target As Range)
Dim celula As String
celula = ActiveCell.Address
If ActiveCell.Value <> 10 Then
MsgBox "Errado"
Range(celula).Activate
End If
End Sub
Se não souber faça o seguinte
Pressione Alt + F11
Vai aparecer a seguinte janela:
Escolha a Planilha onde serão inseridos os dados e Clique duas vezes
Aparecerá uma janela mais ou menos assim:
Cole o seu código adaptado e Salve sua planilha como "Planilha Habilitada Para Macro"
"Nisto se manifestou o amor de Deus em nós: em haver Deus enviado o seu Filho unigênito ao mundo, para vivermos por meio dEle" 1 Jo 4-9
Postado : 29/05/2013 7:04 am