Página 1 de 1

Identificação de blocos de dados

Enviado: 16 Jun 2016 às 14:53
por 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.
Imagem

Identificação de blocos de dados

Enviado: 16 Jun 2016 às 15:19
por 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! :D

Abraço!

Re: Identificação de blocos de dados

Enviado: 16 Jun 2016 às 15:42
por 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:

Imagem

Re: Identificação de blocos de dados

Enviado: 17 Jun 2016 às 12:37
por 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