none
Comparar ActiveCell.Addrees com referencia de Celula RRS feed

  • 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;

    quarta-feira, 9 de dezembro de 2015 02:16

Respostas

  • Bom dia,

    Por falta de retorno do usuário, esta thread será encerrada.

    Caso seja necessário, por gentileza, abra uma thread nova.

    Atenciosamente

    Marcos 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
    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
    quinta-feira, 10 de dezembro de 2015 13:35
  • Bom dia,

    Por falta de retorno do usuário, esta thread será encerrada.

    Caso seja necessário, por gentileza, abra uma thread nova.

    Atenciosamente

    Marcos 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
    quinta-feira, 24 de dezembro de 2015 12:08