Erro em tempo de execução 9, Subscrito fora do intervalo

Question

Usando uma planilha desenvolvida a partir o excel, para maiores informações, www.cre.se.df.gov.br, onde se baixa essa planilha, apresente esse erro que aparece no título.

                       Obrigado.

Answer 1

Olá, ANDERSONCAPITELLI, tudo bem?     

Obrigado por entrar em contato com a Comunidade Microsoft.

Em resposta a sua pergunta existe esse procedimento abaixo onde sugere se entende que a mensagem de erro num macro correlacionado a Visual Basic onde a solução é copiar o conteúdo de um módulo para um novo módulo de código contido em outra pasta de trabalho

1ºpasso Inicie o Editor do Visual Basic (pressione ALT + F11).

2ºpasso Se o Project Explorer não estiver visível, pressione CTRL + R para ativar Explorador de projeto.

3ºpasso Clique para selecionar o projeto do Visual Basic que contém a folha de módulo que você deseja copiar.

4ºpasso No menu Ferramentas, clique em referências. Clique para marcar a caixa de seleção Microsoft Visual Basic for Applications Extensibility 5.3e, em seguida, clique em OK.

5ºpasso Clique em módulo no menu Inserir .

6ºpasso Digite o código a seguir na folha de módulo:

Sub CopyModule()

      Dim CodeLines As String

      Dim ModuleToCopy As VBComponent

      Dim NewModule As VBComponent

      -Set a variable to the module to copy.

      -Note: This assumes that the name of the module to copy is

      -"module2". Replace "Module2" with the name of the module to copy.

      Set ModuleToCopy = _

             Application.VBE.ActiveVBProject.VBComponents("module2")

      -Get the Visual Basic code from the module.

      CodeLines = ModuleToCopy.CodeModule.Lines _

                 (1, ModuleToCopy.CodeModule.CountOfLines)

      -Create a module sheet in another workbook.

      -Note: You must refer to the name of the Visual Basic project. By

      -default, the name of all new projects is "VBAProject". You may want

      -to rename the project to which you are copying the contents of the

      -module sheet.

      Set NewModule = Application.VBE.VBProjects("VBAProject") _

                      .VBComponents.Add(vbext_ct_StdModule)

      -Add the Visual Basic code to the new module.

      NewModule.CodeModule.AddFromString CodeLines

      -Rename the new module to the name of the previous module.

      NewModule.Name = ModuleToCopy.Name

   End Sub

7ºpasso Execute o procedimento CopyModule .

Excel inserirá um novo módulo de planilha para o projeto do Visual Basic chamado VBAProjecte copiará o código do módulo chamado Module2 no projeto ativo do Visual Basic. 

Casso continue com a dificuldade aconselho que poste a sua pergunta  **:: MSDN ::** que é fórum especialmente destinados para desenvolvedores e profissionais em TI.

Se a resposta ajudou de alguma forma, por favor, marque como resposta.  ,

Espero ter ajudado, até mais!

Answer 2

Anderson,

O link que você postou não abre. Como faço para obter a planilha?