Retornar o resultado de uma fórmula numa variável

Question

Pessoal, 

 

Tenho a seguinte situação:

 

Sub ContarEng()

 

'Verifica a quantidade de Engagements para definir a quantidade de Loops

 

Dim i As Integer

Dim x As Integer

 

x = 0

i = 8

 

While Cells("20", i) <> 0

    x = x + 1

    i = i + 3

Wend

 

End Sub

 

Quero saber como faz para retornar o valor dessa fórmula numa variável!!

 

Alguém sabe me dizer??

Answer 1

Transforme a rotina numa função, assim

 

function sub ContarEng() as integer

 'Verifica a quantidade de Engagements para definir a quantidade de Loops

 Dim i As Integer

Dim x As Integer

 x = 0

i = 8

 While Cells("20", i) <> 0

    x = x + 1

    i = i + 3

Wend

ContarEng = x

End function

 

vc usaria numa fórmula na sua planilha

 

=contareng()

 

Opcionalmente, vc pode passar como parametro as linhas que vc quer contar.

---

João Eurico Consultor Manguetown - Brazil