Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
#65856
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!!!
Você não está autorizado a ver ou baixar esse anexo.
Editado pela última vez por DinoSPQR em 25 Jul 2021 às 02:48, em um total de 1 vez.
#65875
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 agradeceu por isso
#65921
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

Olá, @OCR . Segue uma soluç&ati[…]

Funcionou perfeitamente. Obrigado! Mas não[…]

A versão do seu Excel é em qual idio[…]

Anexa um exemplo, por favor.

proporcionalidade

Anexa um exemplo e diga qual o resultado esperado.

Se estiver falando de AutoFiltro, quando for prote[…]

Replicar Dados Entre Planilhas

Bom Dia! Funcionamento atual: abasteço […]

Rapaz, funcionou sim! Muito obrigado. As vezes a […]