Este fórum está sendo desativado

[fabiolegiao]

Preciso identificar os blocos onde os valores da coluna 2 são diferentes e registrar em todas as linhas deste bloco o texto "BLOCO MPMI" conforme a imagem.
Obs: Os blocos são compreendidos entre as células com x na coluna 1 ou entre as células vazias.
Aguardo uma santa alma para me ajudar.
Muito obrigado.

[AndersonLeal]

Olá,

Poste um modelo de exemplo e se possível explique com mais detalhes o que deseja fazer, pois não compreendi muito bem!

Abraço!

[fabiolegiao]

Anderson,

Eu preciso criar uma automatização na minha planilha que verifique os blocos (estes blocos são o valores preenchidos entre as células em branco da coluna 2) e preencha o texto em todas as linhas do bloco o texto: "bloco mpmi" quando os valores deste bloco sejam diferentes.

Exemplo: as linhas 5 e 6 da coluna 2 são diferentes, logo o automatismo deverá preencher o texto "bloco mpmi" nas linhas 5 e 6 da coluna 3.

nas linhas 11 e 12 da coluna 2 o automatismo não deverá preencher nada, pois os valores são iguais.

Segue um exemplo:

[alexandrevba]

Boa tarde!!

Tente...

Código: Selecionar todos

Sub AleVBA_2357()
    Dim r As Range
    For Each r In Range("A2", Range("A" & Rows.Count).End(xlUp)).SpecialCells(2).Areas
        r.Offset(, 2).Value = r.Parent.Evaluate("if(countif(" & r.Address & "," & r.Address & ")>1,""BLOCO MPMI"","""")")
    Next
End Sub

Att