Considerar primeira célula vazia


#1

Bom dia!

Preciso de ajuda para realizar uma tarefa simples, porem que me ajudará muito.
necessito de que a formula retorne o valor -1 da primeira célula preenchida após um intervalo de células vazias, lembrando que ocorrem vários intervalos na mesma coluna.
Segue PARTE DO ARQUIVO PARA ILUSTRAR (SEPARADO POR | )

|DISTRITO|NOME TRECHO|CEP|BAIRRO|CEP INICIAL|CEP FINAL|
|601|RUA VEREADOR OZEIAS SANTANA|29200010|Centro|29200010|29200010|
|603|RUA HORÁCIO SANTANA C|29200015|CENTRO|29200015|29200015|
|601|AVENIDA DOUTOR ROBERTO CALMON|29200020|Centro|29200020|29200020|
|603|RUA NORBERTO VASSOLER |29200025|CENTRO|29200025|29200025|
|601|RUA VEREADOR OZEIAS SANTANA|29200030|Centro|29200030|29200030|
|603|RUA REPÚBLICA ÁRABE SÍRIA - LADO ÍMPAR|29200035|CENTRO|29200035|29200035|
|601|LADEIRA PEDRO DE JESUS|29200040|Centro|29200040||
|601|RUA DOMINGOS JORIO FILHO|29200043|CENTRO|||
|603|RUA JACINTO DE ALMEIDA C|29200045|CENTRO|29200045|29200045|
|601|RUA PEDRO JOSÉ SIMÕES|29200050|Centro|29200050|29200050|
|602|TRAVESSA PALMERINDO DE SOUZA|29200055|Centro|29200055|29200055|
|601|RUA FRANCISCO BENEDITO DE ALMEIDA|29200060|Centro|29200060||
|601|RUA NOSSA SENHORA DAS GRAÇAS|29200070|Centro|||
|601|RUA EMILIANO RODRIGUES DE ALMEIDA|29200075|Centro|||
|601|AVENIDA EDÍZIO CIRNE|29200080|Centro|||
|601|RUA VENÂNCIO SARAIVA|29200085|Centro|||
|601|LADEIRA SALVADOR SOUZA|29200090|Centro|||
|601|RUA JOSENY XAVIER|29200095|Centro|||
|601|AVENIDA TRAJANO LINO GONÇALVES|29200100|Centro|||
|601|PRAÇA JERÔNIMO MONTEIRO|29200105|Centro|||
|602|RUA ZULEIMA FORTES FARIAS|29200107|CENTRO|29200107|29200107|


#2

Desculpe, acho que não entendi muito bem.
Poderia postar um exemplo demonstrando o resultado que deseja obter?


#3

Preciso que a formula me retorne os valores em vermelho, que na verdade correspondem ao valor em azul -1.


#4

Desculpe, tentei várias coisas mas dentro dos meus conhecimentos em fórmulas, ainda não achei uma solução.

Se eu conseguir, atualizo minha resposta…


#5

Xlarruda, tenho certeza do esforço e agradeço pela tentativa. caso consiga lhe serei muito grato.


#6

Ola Vinicius… Pode ser um botão ?
Fiz a procura até a linha 100, mas pode mudar para quanto vc precisar…
Não fiz mensagem de erro caso não tenha uma linha após a que estiver em branco, por exemplo, caso abaixo da linha 13 não haja mais nenhuma linha com CEP…

Private Sub CommandButton1_Click()

ultimalinha = 100

For i = 2 To ultimalinha
    If Cells(i, 5) <> "" And Cells(i, 6) = "" Then
        For j = i + 1 To ultimalinha
            If Cells(j, 5) <> "" Then Cells(i, 6) = Cells(j, 5) - 1: Exit For
        Next
    End If
Next

End Sub

abs


#7

Funcionou perfeitamente.
Agora vou tentar me aprofunda mais para automatizar as demais tarefas.

Muito, mas muito obrigado.