none
Rodar macro na pasta de trabalho com exceção RRS feed

  • Pergunta

  • Ola boa noite,

    esta macro ta funcionando, mas gostaria de mudar. Ela ler plan1, plan5, plan6 e não os nomes que podem ser renomeado e não serão encontrados pela macro.

    Sub Programação()
      Dim ws As Excel.Worksheet
      For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
          Case "MODELO", "LISTA DOS NOMES", "ENDEREÇOS" 'nestas planilhas não mexe
          Case Else
            Atualização ws
        End Select
      Next ws
    End Sub
    Sub Atualização(ws As Excel.Worksheet)
    ws.Activate
    'aqui a execução do comando
    End Sub

    Obrigado.

    sexta-feira, 12 de maio de 2017 01:43

Respostas

  • Boa noite Josué.

    Se você quer usar o nome interno basta trocar "Name" por "CodeName":

    Select Case ws.CodeName
          Case "Plan1", "Plan5" 'nestas planilhas não mexe
          '...
          Case Else
          '...

    Abraço.


    Filipe Magno

    • Marcado como Resposta Josué B sexta-feira, 12 de maio de 2017 13:42
    sexta-feira, 12 de maio de 2017 02:33

Todas as Respostas

  • Boa noite Josué.

    Se você quer usar o nome interno basta trocar "Name" por "CodeName":

    Select Case ws.CodeName
          Case "Plan1", "Plan5" 'nestas planilhas não mexe
          '...
          Case Else
          '...

    Abraço.


    Filipe Magno

    • Marcado como Resposta Josué B sexta-feira, 12 de maio de 2017 13:42
    sexta-feira, 12 de maio de 2017 02:33
  • Obrigado Felipe Magno. Resolvido.
    sexta-feira, 12 de maio de 2017 13:43