Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Ajuda para Trocar hiperlinks por Macro

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
lucas.caetano
Colaborador
Colaborador
Mensagens: 20
Registrado em: Seg Abr 09, 2012 4:06 pm

Ajuda para Trocar hiperlinks por Macro

Mensagem por lucas.caetano »

Boa Tarde,

Segue anexo uma planilha de controle de funcionários onde cada funcionario tem 2 planilhas de controle
Na aba principal tem os nomes dos colaboradores e 2 botoes para cada um, que acionam as abas respectivas, atraves de hiperlink

gostaria de substituir o hiperlink por uma macro ou um tipo de variável que ao ser acionado o botao abrisse a Aba respectiva.


Lucas Lorenti
Anexos
TESTE.rar
Controle de funcionarios
(19 KiB) Baixado 229 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Ajuda para Trocar hiperlinks por Macro

Mensagem por webmaster »

Lucas,

Se me permite, deixaria exatamente do jeito que está. Para que pagar o preço de carregar o arquivo com macros, se o efeito pode ser causado sem elas?

Abraços


lucas.caetano
Colaborador
Colaborador
Mensagens: 20
Registrado em: Seg Abr 09, 2012 4:06 pm

Re: Ajuda para Trocar hiperlinks por Macro

Mensagem por lucas.caetano »

Também concordo com vc, porém, a planilha original que irei utilizar a macro tem mais de 80 funcionários e todo mês ha varias troca de pessoas, com a macro eu só trocaria o nome da pessoa, já com o hiperlink tenho que corrigir os links nos 2 botoes.


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Ajuda para Trocar hiperlinks por Macro

Mensagem por joseA »

Uma opção seria inserir um form com um ComboBox ou ListBox:

Código: Selecionar todos

Private Sub UserForm_Initialize()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
ComboBox1.AddItem sht.Name
Next sht
End Sub
Private Sub comboBox1_Click()
Sheets(ComboBox1.ListIndex + 1).Activate
Unload Me
End Sub


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


lucas.caetano
Colaborador
Colaborador
Mensagens: 20
Registrado em: Seg Abr 09, 2012 4:06 pm

Re: Ajuda para Trocar hiperlinks por Macro

Mensagem por lucas.caetano »

Legal,

Só não consegui aplicar na planilha isso, faria a gentileza de aplicar a macro na planilha anexa pra mim??
Anexos
TESTE.rar
(19 KiB) Baixado 223 vezes


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Ajuda para Trocar hiperlinks por Macro

Mensagem por joseA »

Veja se atende...
TESTE_JoseA.zip
Teste_JoseA
(32.29 KiB) Baixado 294 vezes


lucas.caetano
Colaborador
Colaborador
Mensagens: 20
Registrado em: Seg Abr 09, 2012 4:06 pm

Re: Ajuda para Trocar hiperlinks por Macro

Mensagem por lucas.caetano »

Obrigado!!! valeu ficou muito boa
mais, não sei como utilizar ainda, como e onde inserir os nomes
nunca vi esta variável, não sei o funcionamento dela direito me parece bem complexa hehe..


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder