Excel Hiperlink personalizado para duas ou mais regiões

[daviddatal]

Tenho alguns hiperlinks (células A1:A5) em uma planilha e acrescentei esse código abaixo para que a célula linkada sempre apareça no canto esquerdo superior e uma linha abaixo (-1):

 

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ActiveWindow.ScrollRow = ActiveCell.Row - 1
    ActiveWindow.ScrollColumn = ActiveCell.Column
End Sub

 

Ocorre que nessa mesma planilha tem outros hiperlinks (células B1:B5) onde eu preciso que a célula linkada fique, além da configuração acima, deslocada também uma coluna à direita. Eu teria que mudar o código acima, para esse grupo de hiperlinks, ficando dessa forma:

'....

    ActiveWindow.ScrollColumn = ActiveCell.Column -1

'....

 

Então, basicamente o que preciso é informar no código uma região da planilha para ter essa configuração:

    ActiveWindow.ScrollRow = ActiveCell.Row - 1
    ActiveWindow.ScrollColumn = ActiveCell.Column

 

E informar outra região da planilha para ter essa configuração:

    ActiveWindow.ScrollRow = ActiveCell.Row - 1
    ActiveWindow.ScrollColumn = ActiveCell.Column -1

 

 

[CasaDoHardware]

Juro que ano entendi!

 

Mas você pode usar um if para identificar a coluna que esta trabalhando e com base na coluna rodar o codigo correto

 

if activecell.column = 1 then

 

' AQUI A PRIMEIRA PARTE DO CODIGO

 

End If

 

if activecell.column = 2 then

 

'AQUI A SEGUNDA PARTE

 

End If

 

 

 

 

 

 

 

 

[daviddatal]

Não funcionou, @CasaDoHardware. Os hiperlinks obedeceram apenas ao que estava dentro do primeiro IF.

 

E se eu precisar restringir um pouco mais, ou seja, aplicar o código somente para a região de B2:D5? Qual a sintaxe?

Pois agora não estaria envolvendo uma coluna inteira..