Este fórum está sendo desativado

[DinoSPQR]

Oi pessoal, estou com problema para automatizar a planilha em ANEXO, coloquei como exemplo só as primeiras 100 linhas.

Precisava que o Excel contasse para min o número de dias que se passaram sem um evento acontecer (representado pelo número 1) e assim que o evento acontecer o contador zera-se e reinicia se a contagem, plotando na coluna C quantos dias se passaram até um novo evento.

Eu fiz manualmente na coluna C o que gostaria que o Excel fizesse para os 100 primeiros dados.

Pesei de tudo e acredito que só vou resolver o meu problema usando macro, porém não sou expert a ponto de construir um código do zero, agradeço qualquer ajuda!!!

[Foxtri]

Bom dia.
Deixo uma opção. (Veja se serve)
Até
Foxtri

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub ContaUns()
 Dim co As Range, LR As Long
  Application.ScreenUpdating = False
  [C:C] = ""
  LR = Cells(Rows.Count, 2).End(3).Row
  Range("C1:C" & LR) = "=IF(B1<>1,#N/A,B1)"
  Range("C1:C" & LR).Value = Range("C1:C" & LR).Value
  Range("C1:C" & LR).SpecialCells(xlConstants, xlErrors) = ""
  For Each co In Range("C1:C" & LR).SpecialCells(xlCellTypeConstants).Areas
   co.Cells.Value = co.Count
  Next co
End Sub

[DinoSPQR]

Boa noite!!!!

Nossa Foxtri, sem saber que era impossível vc foi lá e fez, estou impressionado funciona certinho e sem usar macro, vou te disse que tentei muito, fiz mais ou menos igual a primeira e segunda coluna, mas a terceira coluna foi genial, muito obrigado!!!!

Osvaldomp muito obrigado tb funcionou perfeitamente, vou precisar de um tempo para "descobrir" como, mais funcionou perfeitamente!!!!

Obrigado pessoal vocês fora 10!!!