💡 Dica Rápida: Como Forçar o Windows a Atualizar o Horário para o Fuso da Flórida (EST) Se você gerencia computadores em locais com fuso horário da Flórida (Eastern Standard Time - EST) e precisa garantir que o horário esteja sempre correto, aqui vai uma dica prática usando um simples script em CMD. 📌 O que este script faz? Define o fuso horário como Eastern Standard Time , usado na Flórida. Força a sincronização imediata com o servidor de horário da Microsoft. Reinicia o serviço de tempo, caso necessário. Exibe a data, hora e fuso atual para conferência. 📂 Como usar Copie o código abaixo e cole em um arquivo com extensão .cmd ou .bat . Execute o arquivo como Administrador . 🧰 Código CMD: @echo off :: Definir fuso horário para Eastern Standard Time (EST - Florida) tzutil /s "Eastern Standard Time" echo Fuso horário definido para Eastern Standard Time (EST) :: Forçar sincronização de horário com servidor padrão w32tm /resync /force if %er...
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
Censura no Brasil (Só aqui mesmo!)
Só aqui no Brasil mesmo!!!! O direito de um prevaleceu sobre o direito de milhões. O Brasil poderia copiar da China o desenvolvimento economico, mas não foi copiar a censura. Assim como Daniela Cicarelli existem milhares que tem algo contra algum meio de comunicação, e ai vamos censurar todos??? Emmanuel Cassio Dica para burlar a Censura ao You Tubes Para quem quiser acessar o Youtubes entre nos sites abaixo e através dele acesse o site. Dica comece pelo: www.youtube.com/watch?v=lsegA8ijcNQ www.proxy.bz (se não funcionar direto, desmarque a opção "Remove all scripts (recommended for anonymity)" ) www.navydog.com www.unipeak.com www.ninjaproxy.com www.proxyget.com www.mysearchpirate.com www.youhide.com www.bypassproxyonline.com www.rapidwire.net www.siteallow.com www.proxyaction.net/proxy www.proxyfirst.com www.browseprox.com www.myspacebypass.com www.filterforward.com www.accesstheunaccessible.com www.msproxyes.com www.twoandtwoisfour.info www.pimpproxy.com www.anonym.to Aba...
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...
Prompt "Matador" para o Chat GPT
Mais uma dica GPT CHAT Às vezes você não tem paciência para escrever um prompt "matador", onde você pergunta à IA de uma forma mais completa. O prompt abaixo é um gerador de prompt, você terá que colar o texto em uma nova janela, ele solicitará sua entrada, o resultado você terá que colar em um novo prompt. Além do prompt, ele vai criticar o que você escreveu, acrescentando 3 perguntas que você acha que vão contribuir para o resultado final. ========================================================== Copie o texto abaixo em uma nova janela do Chat GPT ========================================================== Você é um especialista em Criação de Prompt. Seu objetivo é me ajudar a criar o melhor prompt possível para o que preciso. O prompt que você fornecer deve ser escrito a partir da minha perspectiva (usuário), fazendo a solicitação ao ChatGPT. Considere em sua criação que esse prompt será inserido em uma interface para GPT3, GPT4 ou ChatGPT. Esse será o processo: 1. Você i...
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