Top

-
💡 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...
Postar um comentário

Macro: Criar Indice de Planilhas no Excel

-
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

Comentários

  1. Consultora Mary Kay14 junho, 2012 16:56

    muito obrigada!

    ResponderExcluir
  2. lucas17 setembro, 2012 10:30

    10!!

    ResponderExcluir
  3. Eng. Eletricista Michel Silva28 agosto, 2014 09:08

    Apareceu 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.

    ResponderExcluir
  4. Anônimo09 setembro, 2014 16:19

    Funcionou como luva....
    Valeu

    ResponderExcluir
  5. My Blogg25 agosto, 2015 05:45

    Não deve ter espaços nem traços.Obrigado, muito útil.

    ResponderExcluir
  6. Alexandre Caetano08 novembro, 2015 18:46

    Adorei. Gratíssima.

    ResponderExcluir
  7. Alexandre Caetano08 novembro, 2015 18:46

    Adorei. Gratíssima.

    ResponderExcluir
  8. Unknown09 março, 2016 13:34

    Este comentário foi removido pelo autor.

    ResponderExcluir
  9. Unknown09 março, 2016 13:35

    tenho 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.
    Há alguma restrição?

    ResponderExcluir
  10. Unknown09 março, 2016 14:28

    Descobri rsss, o nome não pode ter espaços nem traços.
    Pode ter apenas ponto se quiser separar
    Exemplo: Nome 1 não aceita o vinculo direto
    Nome.1 ou Nome1 aceita o vinculo direto

    ResponderExcluir
  11. Unknown09 março, 2016 15:35

    tenho 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.
    Há alguma restrição?

    ResponderExcluir
  12. Unknown09 março, 2016 15:35

    tenho a mesma duvida do michel

    ResponderExcluir
  13. Pierre-Louis01 julho, 2017 18:53

    E no mac, como faço? Sabes?

    ResponderExcluir
  14. Unknown17 julho, 2017 12:00

    Muito bom. Era o que eu procurava. Nos espaços eu coloquei underline e funcionou. Obrigado

    ResponderExcluir
  15. Unknown17 setembro, 2017 11:43

    Muito obrigado!

    ResponderExcluir
  16. Rebeca14 agosto, 2018 12:59

    Amei a dica. Obrigada.

    ResponderExcluir
  17. IgorSC26 março, 2020 14:39

    Este comentário foi removido pelo autor.

    ResponderExcluir
  18. IgorSC26 março, 2020 14:44

    A 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"?

    ResponderExcluir
    Respostas
    1. IgorSC31 março, 2020 14:46

      Substituí: Link_Ativo = Sheets(Plan_Atual).Name & "!A1"
      por: 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

      Excluir
  19. Unknown21 maio, 2020 13:27

    Show, estava procurando esta macro há muito tempo. Com a correção do hiperlink funcionou perfeitamente. Obrigado

    ResponderExcluir

Postar um comentário

Postagens mais visitadas deste blog

-
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...
mais >>

Sites para Wallpapers

-
Imagem
Dicas sobre Wallpapers Como localizar e salvar o papel de parede atual do seu computador? Salvar o seu papel de parede atual precione Win+R mspaint %AppData%\Microsoft\Windows\ Themes\TranscodedWallpaper O arquivo é uma imagem:  TranscodedWallpaper , mas sem extensão. Você poderá abrir com qualquer editor de imagem. - MS Paint - Gimp - Photoshop  Nesse caso, vá no opção Abrir / Open, e use:  %AppData%\Microsoft\Windows\ Themes\TranscodedWallpaper Sites para Wallpapers https://4kwallpapers.com/ https://www.hdwallpapers.in/ https://www.wallpaperflare.com/ http://wallpaperswide.com/ https://iphoneswallpapers.com/
mais >>

Google Compra You Tube

-
Imagem
& Em 05 de junho de 2006 Vinton Cerf,vice-presidente e evangelista do Google, considera a “possibilidade” da companhia vir a adquirir o site de compartilhamento de vídeo You Tube. No dia 06 de outubro de 2006 as manchete diziam Google pode comprar You Tube por US$ 1,6 bilhão.Em 09 de outubro de 2006 o negócio se concretizou.Manchete do Jornal da Globo:Depois de muita especulação nos últimos dias, o Google – a maior empresa da Internet -- anunciou a compra de outro site de sucesso na rede, o You Tube. A Bolsa de Nova York fechou em alta puxada pelas ações do Google, que subiram mais de 2% com a onda de boatos sobre o negócio. Depois do fechamento do pregão, a empresa anunciou a compra do site de compartilhamento de vídeos na internet You Tube, por US$ 1,65 bilhão, em troca de ações. Segundo o Google, a equipe do You Tube criou uma ferramenta que complementa a missão da empresa: organizar a informação do mundo e torná-la acessível a todas as pessoas. Também foram anunciados acordos ...
mais >>