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

Casal israelense é preso por espionagem digital

-
Imagem
Casal israelense é preso por espionagem digital Terça-feira, 31 maio de 2005 - 10:59 IDG Now! Um casal israelense que vive em Londres, capital da Inglaterra, foi preso no final da semana passada sob acusação de espionagem industrial. De acordo com artigo publicado pela empresa britânica de segurança Sophos, Michael Haephrati, 41, e Ruth Brier-Haephrati, 28, utilizaram diversos cavalos-de-tróia para espionar empresas e vender os segredos descobertos a seus competidores. As empresas envolvidas incluem, entre dezenas de suspeitas, a operadora israelense de telefonia celular Cellcom, a operadora de telefonia fixa Bezeq, a companhia de comunicação por satélite IMC Microwaves, a desenvolvedora de softwares de tarifação telefônica Amdocs e as fabricantes de automóveis Volvo e Jaguar, conforme o diário israelense Haaretz. A Sophos afirma ainda que os códigos maliciosos (keyloggers e pragas que capturavam imagens da tela) utilizados foram especialmente desenvol...
mais >>