Este fórum está sendo desativado

[Alineb]

Olá, boa tarde.

Tenho um intervalo de 50 células em cada linha, com uma determinada formula.
Preciso que o valor da célula fique realçado ou em negrito quando o mesmo resultado se repetir 3 vezes em sequencia.

Exemplo: Supondo que cada numero está em um célula, assim quando três células consecutivas apresentarem os mesmos resultados ele fique evidenciado.

1 5 9 6 4 2 2 2 8 4 7 1 2 3 6 4 1 1 8 9 6 1 2 3 3 3 4 7 8 9 9 4

Desde já agradeço

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub Destaca3ConsecutivasIguais()
 Dim k As Long, m As Long
  Range("A1:AX" & Cells(Rows.Count, 1).End(3).Row).Interior.Color = xlNone
  For k = 1 To Cells(Rows.Count, 1).End(3).Row
   For m = 1 To 48
    If Application.CountIf(Cells(k, m).Resize(, 3), Cells(k, m)) = 3 Then Cells(k, m).Resize(, 3).Interior.ColorIndex = 6
   Next m
  Next k
End Sub

[Alineb]

Experimente:

Código: Selecionar todos

Sub Destaca3ConsecutivasIguais()
 Dim k As Long, m As Long
  Range("A1:AX" & Cells(Rows.Count, 1).End(3).Row).Interior.Color = xlNone
  For k = 1 To Cells(Rows.Count, 1).End(3).Row
   For m = 1 To 48
    If Application.CountIf(Cells(k, m).Resize(, 3), Cells(k, m)) = 3 Then Cells(k, m).Resize(, 3).Interior.ColorIndex = 6
   Next m
  Next k
End Sub

Bom dia Osvaldo,

Obrigada por me responder, testei o código e funcionou, porém preciso de alguns ajustes como não tenho muita experiencia com vba não consigo fazer essas modificações, se puder me ajudar novamente agradeço.
Como se trata de uma soma de numerologia preciso deixar em forma de uma pirâmide invertida, no entanto pra conseguir isso eu concaternei os resultados das 50 células para conseguir a forma de piramide, porém gostaria que quando ocorrer a sequencia repetida de 3 números eles ficassem em destaque nessa pirâmide vc consegue me ajudar?

[osvaldomp]

Exemplo: Supondo que cada numero está em um célula,

... porém preciso de alguns ajustes ...

Olá, Aline.
Não é exatamente o caso de "alguns ajustes", né ... ... pois diferentemente do que você informou no primeiro post, os números estão todos em uma célula, então em lugar de "alguns ajustes", implica em novo código.

Segue anexo o arquivo com duas opções.
Na planilha botão, após inserir o nome em A2:AX2 clique no botão para destacar os números conforme o critério.
Na planilha autom basta inserir o nome em A2:AX2 que o código irá destacar os números conforme o critério.

Como em resultado de fórmula o Excel não permite a formatação de caracteres individuais, então desloquei o seu intervalo de fórmulas para a coluna BR e o código irá copiar de BR para BA os valores das fórmulas e irá aplicar a formatação conforme o critério nos valores da coluna BA.