none
Uso de Nomes de Procedimentos (Sub) RRS feed

  • Pergunta

  • Eu pretendia utilizar os nomes de procedimentos sem fazer referência a módulos.
    Para isso declarei na Options Explicit, do módulo Auto_Open, como variáveis Public NomeProcedimento As String todos os nomes de Sub que utilizei e que são acionados dentro de outras Sub.

    Depois atribuí a cada variável o nome do procedimento como:
    NomeProcedimento = "NomeDoMódulo.NomeProcedimento"

    Depois disso, ainda, coloquei na área de procedimentos do Auto_Open

    um comando
    Application.MacroOptions (NomeProcedimento), e
    Application.MacroOptions Macro:="NomeProcdimento2", Description:="", ShortcutKey:="q", para as macros que acesso por teclado

    As macros funcionam, inclusive o acesso pelo teclado, mas ainda tive de acionar os procedimentos sempre colocando o módulo antes e muitas vezes o programa interrompe em um dos comandos MacroOptions.

    Como fazer?

    Obrigado


    Rui Martins



    quarta-feira, 13 de maio de 2015 19:09

Todas as Respostas

  • Rui, creio que neste caminho as coisas estarão apenas se complicando.

    Você não precisa escrever o nome do módulo para chamar uma sub. Ao invés de escrever NomeDoMódulo.NomeProcedimento, escreva apenas NomeProcedimento.

    No entanto, você não pode ter duas sub de nomes iguais em módulos diferetens.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 15 de maio de 2015 23:36
    Moderador
  • Oi Felipe,

    Ele deu erro de compilação dizendo que o nome está repetido, mas eu tenho certeza de que não há 2 nomes de sub iguais.

    Eu tenho de colocar o comando application.macroptions?


    Rui Martins

    domingo, 17 de maio de 2015 03:58
  • Oi Felipe,

    Eu poderia te enviar por e-mail o arquivo excel em que estou trabalhando para vc fazer uma análise e me dizer porque não estou conseguindo zerar os erros?

    Eu já coloquei todas as recomendações que obtive por aqui, mas ainda o programa para em diversos pontos e não sei mais onde procurar.

    O pior é que me comprometi a colocá-lo em operação daqui a 1 semana e não consigo zerar os erros.

    Meu email para resposta é ruilanhoso@gmail.com. Posso enviar tb pelo msg do FB.

    Obrigado.


    Rui Martins


    segunda-feira, 18 de maio de 2015 14:42