O que é o Chocolatey? Chocolatey é parecido com o apt no Linux ou o brew no macOS, É um gerenciador de pacotes para Windows criado por Rob Reynolds em 2011. Ele permite instalar, atualizar e remover programas com comandos simples ( Prompt de Comando (CMD) ou PowerShell ), sem precisar baixar instaladores manualmente. O Chocolatey nasceu com a missão de facilitar a vida de profissionais de TI e usuários avançados ao automatizar a instalação de softwares no Windows. Pense no Chocolatey como uma loja de aplicativos invisível , onde você digita o nome do programa que quer, e ele instala sozinho. Em vez de você entrar em vários sites, baixar instaladores, clicar “Avançar, Avançar, Concluir”... o Chocolatey faz tudo por você em segundos. 🔗 Site oficial: https://chocolatey.org Como instalar o Chocolatey Set-ExecutionPolicy Bypass -Scope Process -Force; ` [System.Net.ServicePointManager]::SecurityProtocol = [System.Net.ServicePointMan...
Top
Macro: Criar Indice de Planilhas no Excel
- Gerar link
- X
- Outros aplicativos
Segue uma macro simples para aqueles que tem planilhas enormes e precisam criar índices com links.
Passos para Criação da Macro:
ALT+F11
Copie o Código abaixo
Cole na área de trabalho do VBA
Feche
Pressione ALT+F8
Abaixo o código VBA
=======================
Sub Cria_Indice()
Dim Plan_TT, Plan_Atual As Integer
Plan_TT = Sheets.Count
Plan_Atual = 1
Do While Plan_Atual <= Plan_TT
Cells(Plan_Atual, 1).Activate
ActiveCell.Value = Sheets(Plan_Atual).Name
Link_Ativo = Sheets(Plan_Atual).Name & "!A1"
Nome_Link_Ativo = Sheets(Plan_Atual).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Link_Ativo, TextToDisplay:=Nome_Link_Ativo
Plan_Atual = Plan_Atual + 1
Loop
End Sub
Passos para Criação da Macro:
ALT+F11
Copie o Código abaixo
Cole na área de trabalho do VBA
Feche
Pressione ALT+F8
Abaixo o código VBA
=======================
Sub Cria_Indice()
Dim Plan_TT, Plan_Atual As Integer
Plan_TT = Sheets.Count
Plan_Atual = 1
Do While Plan_Atual <= Plan_TT
Cells(Plan_Atual, 1).Activate
ActiveCell.Value = Sheets(Plan_Atual).Name
Link_Ativo = Sheets(Plan_Atual).Name & "!A1"
Nome_Link_Ativo = Sheets(Plan_Atual).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Link_Ativo, TextToDisplay:=Nome_Link_Ativo
Plan_Atual = Plan_Atual + 1
Loop
End Sub
Comentários
Postagens mais visitadas deste blog
ERP Microsoft X SAP
Microsoft e SAP criam produto conjunto Terça-feira, 26 abril de 2005 - 10:05 IDG Now! A Microsoft e a SAP AG devem apresentar um produto ao mercado até o final do ano que integre os produtos Office e o software de gestão empresarial (ERP) das companhias vendidos atualmente de maneira separada. Segundo anúncio feito nesta terça-feira (26/04), o sistema - que levará o nome de Mendocino - é o primeiro fruto da parceria entre as duas empresas e será apresentado nesta semana, em Copenhague, durante o evento Sapphire da SAP voltado ao consumidor. "Estamos unindo forças para corrigir uma lacuna existente [no mercado] com o nosso produto que será desenvolvido, vendido e apoiado conjuntamente", declarou o Chief Executive Officer (CEO) da SAP, Henning Kagermann, durant...
Gestão De Conflitos
Gestão De Conflitos Você terá, mais cedo ou mais tarde, que lidar com algum tipo de conflito se tiver um relacionamento profissional ou não, com outra pessoa Você terá, mais cedo ou mais tarde, que lidar com algum tipo de conflito se tiver um relacionamento profissional ou não, com outra pessoa, em qualquer situação. Conflito não é um mal em si. Está normalmente relacionado com os interesses ou idéias que são importantes para cada uma das partes envolvidas Na realidade, surge simplesmente de diferentes pontos de vista entre duas ou mais pessoas. Desde que duas ou mais pessoas não vêem o mundo da mesma forma, é normal o surgimento de uma controvérsia ou desacordo. Qualquer um que concordar com você o tempo todo, provavelmente estará falando aquilo que você está querendo ouvir e não o que ela realmente acredita. A razão básica do conflito receber o rótulo de algo ruim é devido aos aspectos emocionais que surgem com ele. De uma forma geral, existem três princi...
Brasil bate novo recorde de tempo na web Sexta-feira, 29 abril de 2005 - 08:17 IDG Now! Os internautas residenciais brasileiros navegaram 14 horas e 57 minutos no mês de março, novo recorde de tempo registrado pelo Ibope/NetRatings, 41 minutos a mais do que a marca anterior, de outubro de 2004. Segundo o balanço divulgado no final da noite de quinta-feira (28/04) pela instituição, o número de usuários ativos permaneceu estável no mês, em 11,03 milhões de pessoas. O Ibope/NetRatings também divulgou os números do Web Brasil, relatório trimestral que combina dados do painel de usuários domiciliares com um levantamento de campo representativo dos internautas brasileiros em geral. O estudo comprova que os grandes destaques são os sites de comunidades e e-mails, que já respondem por mais de 30% do tempo total de uso da internet no País. No fim de 2004 o...
muito obrigada!
ResponderExcluir10!!
ResponderExcluirApareceu o índice com o nome de todas as abas que criei, realmente é o que eu queria, porém aparece mensagem dizendo que a referência não é valida quando clico no item do índice. ALGUÉM PODE ME ORIENTAR.
ResponderExcluirFuncionou como luva....
ResponderExcluirValeu
Não deve ter espaços nem traços.Obrigado, muito útil.
ResponderExcluirAdorei. Gratíssima.
ResponderExcluirAdorei. Gratíssima.
ResponderExcluirEste comentário foi removido pelo autor.
ResponderExcluirtenho a mesma duvida do michel, mas fiz em uma planilha separado deu certo, na planilha que eu uso normalmente não funcionou somente o hiperlink.
ResponderExcluirHá alguma restrição?
Descobri rsss, o nome não pode ter espaços nem traços.
ResponderExcluirPode ter apenas ponto se quiser separar
Exemplo: Nome 1 não aceita o vinculo direto
Nome.1 ou Nome1 aceita o vinculo direto
Este comentário foi removido pelo autor.
Excluirtenho a mesma duvida do michel, mas fiz em uma planilha separado deu certo, na planilha que eu uso normalmente não funcionou somente o hiperlink.
ResponderExcluirHá alguma restrição?
tenho a mesma duvida do michel
ResponderExcluirE no mac, como faço? Sabes?
ResponderExcluirMuito bom. Era o que eu procurava. Nos espaços eu coloquei underline e funcionou. Obrigado
ResponderExcluirMuito obrigado!
ResponderExcluirAmei a dica. Obrigada.
ResponderExcluirEste comentário foi removido pelo autor.
ResponderExcluirA macro funcionou apenas nas abas que possuem "números" e "pontos", mas preciso de uma que considere o "parentese" tbm na hora que utilizo o hiperlink. Alguém sabe alterar a macro ou disponibilizar uma que considere os "parentese"?
ResponderExcluirSubstituí: Link_Ativo = Sheets(Plan_Atual).Name & "!A1"
Excluirpor: Link_Ativo = "'" & Sheets(Plan_Atual).Name & "'!A1"
e a macro passou a funcionar com "ponto" ou "espaço" no nome das pastas de trabalhos ou abas.
Código Macro Corrigido paranomes contendo "Espaço" ou "Pontos":
Sub Cria_Indice()
Dim Plan_TT, Plan_Atual As Integer
Plan_TT = Sheets.Count
Plan_Atual = 1
Do While Plan_Atual <= Plan_TT
Cells(Plan_Atual, 1).Activate
ActiveCell.Value = Sheets(Plan_Atual).Name
Link_Ativo = "'" & Sheets(Plan_Atual).Name & "'!A1"
Nome_Link_Ativo = Sheets(Plan_Atual).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Link_Ativo, TextToDisplay:=Nome_Link_Ativo
Plan_Atual = Plan_Atual + 1
Loop
End Sub
Show, estava procurando esta macro há muito tempo. Com a correção do hiperlink funcionou perfeitamente. Obrigado
ResponderExcluir