Este fórum está sendo desativado

[Domingsp]

Olá, na lista de cidades dessa planilha eu quero determinar o maior intervalo em que "Alfredo Wagner-SC" ficou sem aparecer. Contando visualmente, sei que esse intervalo é 26 ocorrencias. Gostaria de um jeito de fazer isso com macro. A informação poderia aparecer num msg box ou numa célula a parte.
Desde ja, obrigado.

MAIOR INTERVALO.xlsm

[osvaldomp]

... quero determinar o maior intervalo em que "Alfredo Wagner-SC" ficou sem aparecer. Contando visualmente, sei que esse intervalo é 26 ocorrencias.
Na sua planilha não existe esse nome.

Se você quiser saber o maior intervalo de "Alfredo Wagner (SC)" então experimente o código abaixo.

Código: Selecionar todos

Sub MaiorIntervalo()
 Dim c As Range, mi As Long, mf As Long, k As Long
  Application.ScreenUpdating = False
  ActiveSheet.AutoFilterMode = False
  If [C1] = "" Then [C1] = "HDR"
  ActiveSheet.[C1].AutoFilter 1, "Alfredo Wagner (SC)"
  mi = 1
  For Each c In Range("C2:C" & Cells(Rows.Count, 3).End(3).Row).SpecialCells(xlVisible)
   If c.Row - mi > k Then k = c.Row - mi - 1
   mi = c.Row
  Next c
  ActiveSheet.AutoFilterMode = False
  MsgBox "MAIOR INTERVALO - " & k
End Sub

[Domingsp]

Obrigado osvaldomp!