Página 1 de 1
Quantas linhas depois do ÚLTIMO ZERO até o final da planilha
Enviado: 30 Nov 2015 às 17:58
por 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.
Quantas linhas depois do ÚLTIMO ZERO até o final da planilha
Enviado: 01 Dez 2015 às 12:36
por Parkeless
Olá novamente Mucango!
Fiz o teste usando a mesma função que fiz da outra vez, e está dando certo.
Código: Selecionar todosDim 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
Quantas linhas depois do ÚLTIMO ZERO até o final da planilha
Enviado: 01 Dez 2015 às 12:59
por 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 ?
Quantas linhas depois do ÚLTIMO ZERO até o final da planilha
Enviado: 01 Dez 2015 às 13:15
por 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.
Quantas linhas depois do ÚLTIMO ZERO até o final da planilha
Enviado: 01 Dez 2015 às 13:37
por Mucango
Excelente ! Era isso mesmo.
Valeu, Parkeless, você é o cara !