Usuário com melhor resposta
Comparar ActiveCell.Addrees com referencia de Celula

Pergunta
-
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;
Respostas
-
Bom dia,
Por falta de retorno do usuário, esta thread será encerrada.
Caso seja necessário, por gentileza, abra uma thread nova.
AtenciosamenteMarcos Roberto de Souza Junior
Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita
MSDN Community Support
Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.
- Marcado como Resposta Marcos SJ quinta-feira, 24 de dezembro de 2015 12:08
Todas as Respostas
-
Amigo,
Qual o conteúdo da variável "vlr_cel_atual"?
Será que não tem um espaço, uma letra maior e uma menor e por isso você está tendo problema?O seu código parece estar correto, mas esse "On Error Resume Next" pode estar mascarando algum problema durante a execução.
Mande notícias.
Boa sorte!
Não esqueça de marcar como útil uma resposta que te ajude.
"A diversão é a alma do negócio"- Sugerido como Resposta Marcos SJ quarta-feira, 16 de dezembro de 2015 19:33
-
Bom dia,
Por falta de retorno do usuário, esta thread será encerrada.
Caso seja necessário, por gentileza, abra uma thread nova.
AtenciosamenteMarcos Roberto de Souza Junior
Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita
MSDN Community Support
Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.
- Marcado como Resposta Marcos SJ quinta-feira, 24 de dezembro de 2015 12:08