Este fórum está sendo desativado

[Mucango]

Há alguns dias o Parkeless mandou legal e resolveu mais um problema, agora, em situação parecida com essa anterior, pergunto quem pode ajudar a calcular a distância (EM APENAS UMA COLUNA) SEMPRE do último zero (0) até o último preenchimento desta ...

EXEMPLO :

2
2
3
0
1
0
4
1
2
2
1
3
4
4
2
1
2
2
1

Neste caso, 13 linhas até a célula que não possui mais preenchimento.
Pode sem funções ou módulos, tanto faz ... Valeu.

[Parkeless]

Olá novamente Mucango!

Fiz o teste usando a mesma função que fiz da outra vez, e está dando certo.

Código: Selecionar todos

Dim cell As Range
Dim Coluna_ocorrencia As Long
Dim Ocorrencia As Range
Dim ultimalinha As Long

Set Ocorrencia = Intervalo.Cells(1, 1)

'Determinar última ocorrencia
For Each cell In Intervalo
    If cell = Criterio Then
        'Verificar ocorrencia; se estiver mais abaixo, trocar
        If cell.Row > Ocorrencia.Row Then
            Set Ocorrencia = cell
            Coluna_ocorrencia = cell.Column
        End If
    End If
Next cell

'Determinar última linha do intervalo
For Each cell In Intervalo
    If cell.Row > ultimalinha Then: ultimalinha = cell.Row
Next cell


Distancia_ocorrencias_v3 = ultimalinha - Ocorrencia.Row

End Function

[Mucango]

Parkeless, grato mais uma vez pelo seu auxilio, mas não ficou faltando a primeira linha Function ....

Ou eu realmente nao estou sabendo usar ?

[Parkeless]

Ficou mesmo kk, desculpe.

Só acessar o tópico que você tinha aberto na época (vá na pesquisa avançada do fórum, e procure por autor - "Mucango"), e copiar o código completo lá. Fiz o teste aqui, e retornou o valor 13, então está certinho.

[Mucango]

Excelente ! Era isso mesmo.

Valeu, Parkeless, você é o cara !