Página 1 de 1

[RESOLVIDO] - Reiniciar a contagem de colunas quando tiver um número diferente de 1

Enviado: 20 Jul 2021 às 00:55
por 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!!!

Re: Reiniciar a contagem de colunas quando tiver um número diferente de 1

Enviado: 20 Jul 2021 às 09:44
por Foxtri
Bom dia.
Deixo uma opção. (Veja se serve)
Até
Foxtri

Re: Reiniciar a contagem de colunas quando tiver um número diferente de 1

Enviado: 20 Jul 2021 às 15:08
por 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

Re: Reiniciar a contagem de colunas quando tiver um número diferente de 1

Enviado: 21 Jul 2021 às 22:22
por 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!!! :D