-
Total de itens
4 -
Registro em
-
Última visita
Posts postados por Paris Anderson
-
-
Boa Tarde;
A questão é a seguinte, quando executo os passos manualmente, as variáveis que formam o link variam sempre, possibilitando assim que a cada cópia executada, ocorra com a colagem em um novo endereço apropriado e também diferente.
Porém ao gravar as macros, os "clicks" nos links se formam de forma fixa, gravando sempre o mesmo valor para o "salto", independente das variáveis que formam o link.
Creio que a solução seja armazenar o endereço do link, gerado pela equação, numa variável de VBA , em seguida carrega-la num link gerado por VBA que receberá o endereço variável.
No passo seguinte seria o acionamento do link, também por VBA, desta forma o endereço variável irá ser executado, não de forma fixa, mas como endereço variável. O problema é o método de execução do link de VBA [sei não se deve usar address diretamente e sim subaddress para executar link externo de planilha, o método de acionamento não deve ser follow e sim Hyperlinks.Add Anchor]. Tentei várias vezes inserir o link em uma variável de VBA e sempre está dando erro, talvez seja o endereço de referência que esteja errado para execução do VBA, cheguei a conseguir abrir um navegador com link específico num script que encontrei na internet, porém não consegui executar hiperlink para a aba lateral com algum endereço útil.
Resumindo, não sei fazer.... creio que tenho a idéias de como resolver, mas falta conhecimento em VBA para executar o meu pensamento.
-
Desculpe, tentei o dia inteiro e não consegui de forma nenhuma fazer funcionar o script que enviou.
o minha questão é que tenho um link pronto e não consigo acionar ele por macro
até gerar link diferentes consigo, não consigo rodar uma rotina em macro que click no link produzido
pela função hiperlink e que o execute para outra aba da planilha aberta.
Achei ate script que abre navegador com endereço de navegador que abre o chrome com pagina específica,
mas que acione um link como se fosse uma mão clicando nele.... nenhum funcionou.....
-
Boa tarde
Desenvolvi uma planilha que gera um hiper link relativo (link para uma célula em outra aba da planilha em célula especifica), dependendo de um texto em um célula a frente do hiper link
exemplo : celula do link = HIPERLINK(CÉL("conteúdo";D77);"VISESCVISTA") / celula do endereço interno: =TEXTO(E77;) / texto base do hiperlink inteno em E77(#'ARQUIVO'!F13)
TENTEI GRAVA UMA MACRO PARA CLICAR NO HIPERLINK, MAS SEMPRE O RESULTADO DELA SAI COMO HIPERLINK FIXO (MESMO COM REFERENCIAS RELATIVAS), desta forma o objetivo era pular de célula em célula dependendo da informação contida no endereço da célula E77 (GERADA POR EQUAÇÃO) E acionando o link POSICIONAL NA CÉLULA DO HIPERLINK.
Esta funcionando para usar manualmente, mas como a planilha tem mais se 10000 itens fica dificil deixar isso manual, tem que ser automatizado. Tentei acionamento com alguns códigos de VBA que encontrei de hiperlinks de macro e simuladores de mouse duplo click na celula do link, mas sempre dá erro no GOTO.
alguém poderia me ajudar ?
Não consigo acionar um hiperlink relativo em minha planilha com macro
em VBA
Postado
Boa noite;
Com muito custo consegui fazer uma adaptação ao que me propunha a fazer, deixei células com espaço vago na planilhas, gravei links fixos para cada planilha numa estrutura de repetição (IF), carreguei uma variável global para armazenar a informação da aba e outra para a informação da linha para a planilha que seria direcionada. Estando na planilha escolhida, resolvi o problema da linha gerando um link no VBA utilizando a variável exportada em um célula para gerar um link momentâneo e em seguida acionando o link de imediato. Estava tendo problema em acionar um link já existente, o script que achei consegue abrir desde que o link tenha sido gerado pelo VBA anteriormente, deve ser um problema de reconhecimento de link e referência, mas deu certo:
Sub autojumperCABE()
'
' autopulo
'
'
Dim autolink As String
Dim texto As String
Dim hyper As String
'Compor o valor de hyper para ser o valor de A1 mais "!A1"
hyper = "CABE!H" & Range("Q1")
'Defini o texto como sendo o valor de B1
texto = Range("N1").Value
'Mostra como exemplo como ficou o valor composto de hyper
Range("M1").Value = hyper
'Aplicar a Hyperlink a célula B1
Range("K1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
hyper, TextToDisplay:="texto"
Range("K1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
Agradeço ajuda e o apoio