Pessoal,
Boa noite,
Gostaria do auxilio de vcs se possível, pretendo comparar o valor de retorno de um ActiveCell.Address com a referência de uma célula, ex: A1, não dá erro, porém nunca da certo, segue abaixo o código:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vlr_cel_atual As String
vlr_cel_atual = ActiveCell.Address
On Error Resume Next
If vlr_cel_atual = "$B$12" Or vlr_cel_atual = "$D$12" Or vlr_cel_atual = "$F$12" Or vlr_cel_atual = "$H$12" Or vlr_cel_atual = "$J$12" Or vlr_cel_atual = "$L$12" Or vlr_cel_atual = "$N$12" Or vlr_cel_atual = "$J$12" Or vlr_cel_atual = "$L$12" Or vlr_cel_atual = "$N$12" Or vlr_cel_atual = "$B$16" Or vlr_cel_atual = "$D$16" Or vlr_cel_atual = "$F$16" Or vlr_cel_atual = "$H$16" Or vlr_cel_atual = "$J$16" Or vlr_cel_atual = "$L$16" Or vlr_cel_atual = "$N$16" Or vlr_cel_atual = "$B$20" Or vlr_cel_atual = "$D$20" Or vlr_cel_atual = "$F$20" Or vlr_cel_atual = "$H$20" Or vlr_cel_atual = "$J$20" Or vlr_cel_atual = "$L$20" Or vlr_cel_atual = "$N$20" Or vlr_cel_atual = "$B$24" Or vlr_cel_atual = "$D$24" Or vlr_cel_atual = "$F$24" Or vlr_cel_atual = "$H$24" Or vlr_cel_atual = "$J$24" Or vlr_cel_atual = "$L$24" Or vlr_cel_atual = "$N$24" Or vlr_cel_atual = "$B$28" Or "$D$28" Or "$F$28" Or "$H$28" Or "$J$28" Or "$L$28" Or "$N$28" Or "$B$32" Or "$D$32" Or _
vlr_cel_atual = "$F$32" Or vlr_cel_atual = "$H$32" Or vlr_cel_atual = "$J$32" Or vlr_cel_atual = "$L$32" Or vlr_cel_atual = "$N$32" Then
MsgBox ("Iguais" & vlr_cel_atual)
Else
MsgBox ("Diferentes" & vlr_cel_atual)
End If
End Sub
Ja tentei fazer, inserindo essas celulas em uma range, mas também nao consegui, se puderem me informar se é possivel inserir células "aleatorias", sem intervalo definido em uma range tbm serei mto grato.
Tentei comparar tbm das seguintes formas
If vlr_cel_atual = "B12" Or "D12"
If vlr_cel_atual = B12 or D12
If vlr_cel_atual = $B$12 Or $D$12
E nada deu certo.
Agradeço pela atenção;
