Declare a variavel "i" fora da Sub Worksheet_Calculate, no topo do vbe, como 1ª linha do codigo.

Ou até mesmo em um modulo padrão, como publica:
Public i As Long

Fala Basole

Tentei aqui de várias maneiras mas não funcionou

Vamos lá
Na Private Sub Worksheet_Calculate()

Coloco assim?:

Public i As Long

Private Sub Worksheet_Calculate()

Ou assim?:

Dim i As Long

Private Sub Worksheet_Calculate()

E na Sub assim?:

Option Explicit

Public i As Long

Não entendi como faz, ora ele continua atribuindo o valor, ora volta a 0

Se puder me esclarecer agradeço

Tem que ser fora da sub. Insira um módulo e deixe só a declaração da variável Public, sem mais nada. Não declare essa variável dentro de nenhuma Sub. Só a declare no módulo.

Valeu klarc28

Deu certo

O que vocês acham melhor:

Deixar a programação toda em Plan1 ou dividir cada funcionalidade em Sub módulos?

Faz diferença nessas duas formas em como o Excel executa? De qual jeito fica mais rápido?

Obrigado

up

Dividir em módulos tem o objetivo organizar código para facilitar a consulta posterior. Não influencia no tempo de execução. Quando o código fica muito grande em um lugar só, dificulta a localização manual de uma parte específica, mas nada que não possa ser resolvido com Ctrl + L. Quando se tem vários formulários ou várias planilhas, ao dividir o código em módulos, algumas partes podem deixar de funcionar. Por exemplo: Um projeto possui dois formulários , UserForm1 e UserForm2, ambos com uma TextBox1. Se tirarmos os códigos dos formulários e colocarmos em módulos, pode dar erro, pois não vai encontrar a TextBox1.

TextBox1.Text = Range("A1").Value

Caixa de texto de qual formulário? Célula A1 de qual planilha?

Para corrigir isso, é necessário colocar o endereço completo:

UserForm1.TextBox1.Text = Plan1.Range("A1").Value

Para quem tem dificuldade em lidar com erros, se está funcionando, é melhor não mexer.
Para quem já sabe lidar com erros e consegue fazer as adaptações no código, é recomendável criar vários módulos com códigos curtos.

Entendi Klarc28

Obrigado pela explicação

Abraço