Anexe a planilha, só por imagem fica um pouco mais dificil.

Olá, Trindade, boa tarde!

Será que vc não esqueceu de ativar o suplemento "Ferramentas de Análise - VBA" antes?: (Arquivo>Opções>Suplementos>Gerenciar - Suplementos do Excel)

Depois de ativá-lo, se vc marcar no VBE a referência a "atpvbaen.xls" nem precisa usar o método Run do Application, pode usar direto o método Regress...

Boa tarde, EdsonBR.

Obrigado, não sabia desse detalhe de ativar o suplemento, valeu pela dica, vou utilizar desse modo e em meu projeto.

Boa noite, Galera.

Na empolgação fechei o tópico, mas depois caiu a ficha.
Nosso colega EdsonBR, postou uma solução que me atendeu ao realizar as marcações do Suplemento > Referencias, porem eu não consegui passar o resultado do calculo de regressão para a Plan com solução apresentada por ele Regress.

Tópico Matriz
http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=19612

Gostaria mais uma vez de uma ajuda dos senhores.

Reabri o tópico, assim pode continuar no mesmo.
Se puder anexar o modelo que está utilizando, ficará mais fácil ajudar.

Obrigado, Mauro Coutinho.

Segue exemplo que estou utilizando ...
Hoje consegui fazer aplicação funcionar da seguinte forma:

' CALCULO FUNCAO REGRESSAO
     Application.Run "ATPVBAEN.XLAM!Regress", Intevalo_Y, _
        Intevalo_X, False, True, Nivel_Confianca, Plan16.Range("A1") _
        , True, False, False, False, , False

Para funcionar o botão REGRESSÃO é necessário ter mais de uma estação no Listbox - Selecionadas, depois clicar no botão gerar gráfico que o botão REGRESSÃO irá funcionar e montar a regressão ... fim!

Gostaria de saber como faço para fazer funcionar com o código indicado pelo EdsonBR e se irá retornar as mesmas informações.

Bom dia, Trindade!

Primeiramente deixe-me corrigir uma bobagem dita por mim no post anterior: Regress na verdade é uma Sub (procedure) contida no suplemento e não um método como eu tinha falado. Portanto, vc pode continuar usando o método Run como vc vinha fazendo ou, se vc referenciou como dito, usar direto. O resultado é o mesmo, como é de se esperar, só a maneira de ter acesso é que muda. Vc pode comprovar selecionando a atpvbaen.xls no pesquisador de objetos e verificar que ela é uma dentre muitas das Subs que estão lá disponíveis. Há ainda uma outra forma de acessar que não recordo no momento mas talvez algum outro colega possa querer enriquecer o tópico e trazê-la prá nós.

Para testar, comentei o bloco Application.Run e inseri o Regress direto, usando para cada argumento a variável correspondente e omitindo as ausentes (no teste, ficou idêntico, como esperado).

Private Sub Regressao()
...
...
...
     ' CALCULO FUNCAO REGRESSAO
'     Application.Run "ATPVBAEN.XLAM!Regress", Intevalo_Y, _
'        Intevalo_X, False, True, Nivel_Confianca, Plan16.Range("A1") _
'        , True, False, False, False, , False

      Regress inpyrng:=Intevalo_Y, _
              inpxrng:=Intevalo_X, _
              constant:=False, _
              Labels:=True, _
              confid:=Nivel_Confianca, _
              soutrng:=Plan16.Range("A1"), _
              residuals:=True, _
              sresiduals:=False, _
              rplots:=False, _
              lplots:=False, _
              nplots:=False
              
    ' AJUSTA O TAMANHO DAS COLUNAS
...
...
...
End Sub

Ficou muito da hora a regressão com o código que passou.

Mais um vez obrigado.

Agora sim posso colocar como RESOLVIDO o tópico !!!