Este fórum está sendo desativado

Olá Deixo esta opção. Veja se atende. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("C7")) Is Nothing Then MsgBox ("AÇÃO NÃO PERMITIDA") Range("A1").Select End If If Not Intersect(Target, Range("L7:L14")) Is Nothin...

Boa tarde.
Segue uma opção.
Até
Foxtri

Bom dia.
Verifiquei aqui na planilha conforme a imagem enviada, e não apresenta erro.
O erro que aparece de estar relacionado com a forma que vc esta tentando inserir a fórmula.
Até
Foxtri

Bom dia.
Não sei se entendi a sua necessidade.
Veja se era isso.
Até
Foxtri

Boa tarde.
Deixo outra opção.(Veja se cabe para a sua necessidade).
Até
Foxtri

Boa tarde.
Segue uma opção
Até
Foxtri

Bom dia.
Conforme solicitado.
Até
Foxtri

Bom dia.
Segue mais uma opção.
Até
Foxtri

Bom dia.
Talvez desta forma ??
=SOMA(SE(FREQÜÊNCIA(DIA(A1:A1000);DIA(A1:A1000))>0;1))-1
Até
Foxtri

Boa tarde
Segue uma opção
Até
Foxtri

Boa tarde
Veja se como foi feito é o que vc quer.
Até
Foxtri

Boa tarde.
Veja se serve.
Até
Foxtri

Boa tarde
Fiz uma opção, porem não sei se era isso que vc queria.
Até
Foxtri

Boa tarde.
Veja se o exemplo serve (Sem PROCV).
Até
Foxtri

Bom dia. Você pode usar o exemplo que apresento. Dim Ulin As Long Ulin = Cells(Rows.Count, "B").End(xlUp).Row With ActiveWorkbook.Worksheets("base").Sort .SetRange Range("B5:E" & Ulin) No caso os dados estariam na Coluna "B" Veja conforme a sua realidade A...

Boa Tarde.
Não tenho certeza se era isso o que vc esta precisando.
Foi um chute.
Até
Foxtri

Boa tarde
Segue uma outra opção
Até
Foxtri

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

Boa tarde.
Parece que a planilha enviada não tem nada a ver com a sua necessidade.
Veja se estou certo.
Até
Foxtri

Boa tarde.
Segue uma opção.
Até
Foxtri