Este fórum está sendo desativado

Olá Veja se esta macro, faz o que vc quer . Sub Ordena_Mensal() Range("A8").Select Range("A8:A19").Formula = "=match(B8,{""janeiro"";""Fevereiro"";""Março"";""Abril"";""Maio""...

Bom dia
Neste endereço existe uma opção para a sua avaliação.
https://techcommunity.microsoft.com/t5/ ... /m-p/36495
Até
Foxtri

Boa tarde.
Te apresento uma alternativa usando VBA.
Até
Foxtri

Olá
Te apresento uma solução. Veja se serve ??
Até

Foxtri

Olá
Te apresento uma opção que atende ambas as situações

T+
Foxtri

Boas Veja se serve o exemplo que te apresento.(Existem varias maneiras de fazer). Function NORM(rng As Range) Dim i As Integer Dim Ct As Variant, Cv As Variant, Sp As Variant For i = 1 To Len(rng) Select Case i Case 7, 8, 9 If Mid(rng, i + 1, 1) = "-" Then sep = "-" Ct = Ct &...

Boa tarde
Apresento uma solução com VBA.
Adapte conforme sua planilha.
Até

Foxtri

Boa tarde
Segue uma opção
Até
Foxtri

Olá
Veja o que foi feito.
Até

Foxtri

Boa tarde
Veja se o que enviei serve.
Até
Foxtri

Olá
Pode ser com fórmulas ?? Veja lado Esquerdo

Foxtri

Olá
Veja se é isso o que você precisa.

Foxtri