Top

Transformam o Claude Code em um time de trabalho

Imagem
SYSTEM: ONLINE MODULOS: 5 PROTOCOLO: MCP HOST: CLAUDE_CODE STATUS: CONNECTED >>> iniciando_transmissao.sh --topic="claude-code-mcps" Transformam o Claude Code em um time de trabalho 5 MCPs especialmente úteis para quem trabalha com Claude Code Perplexity // Playwright // Firecrawl // Glif // Chrome DevTools Conectados ao Claude Code via Model Context Protocol . Usar uma IA para escrever código já economiza tempo. Mas o salto realmente interessante acontece quando ela deixa de trabalhar apenas com o que está dentro da conversa e passa a interagir com ferramentas externas. A ideia não é simplesmente instalar vários MCPs. O mais interessante é combinar capacidades diferentes para criar um fluxo de trabalho no qual o Claude consegue pesquisar, executar, observar resultados e corrigir o próprio trabalho. Neste artigo, separei cinco MCPs especialmente úteis para quem trabalha com Claude Code: Perplexity, Playwright, Firecrawl, Glif e Chrom...

Macro: Criar Indice de Planilhas no Excel

Segue uma macro simples para aqueles que tem planilhas enormes e precisam criar índices com links.

O que essa macro faz
VBA (Visual Basic for Applications) é a linguagem de macros embutida no Excel: um jeito de automatizar tarefas repetitivas escrevendo um pequeno programa que roda dentro da própria planilha, sem precisar instalar nada. Esta macro resolve um problema específico de pastas de trabalho com muitas abas: ela percorre cada planilha do arquivo, uma por uma, escreve o nome dela numa célula da coluna A e transforma esse nome num link clicável que leva direto para a aba correspondente. O resultado é um índice clicável, gerado automaticamente, sem digitar nome de aba na mão.

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. 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
  2. Funcionou como luva....
    Valeu

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

    ResponderExcluir
  4. Este comentário foi removido pelo autor.

    ResponderExcluir
  5. 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
  6. 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
  7. 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
  8. tenho a mesma duvida do michel

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

    ResponderExcluir
  10. Amei a dica. Obrigada.

    ResponderExcluir
  11. Este comentário foi removido pelo autor.

    ResponderExcluir
  12. 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. 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
  13. 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

ITECOS