Este fórum está sendo desativado

[Angra]

Boa noite
Tenho uma tabela com três tipos de formatação das quais apenas uma servira de parâmetro para preencher outra tabela

[osvaldomp]

Código: Selecionar todos

Sub InsereX()
 Dim c As Range
  Range("E5:G50").Value = ""
  For Each c In Range("B5:D50")
   If c.DisplayFormat.Interior.ColorIndex = 1 Then c.Offset(, 3) = "x"
  Next c
End Sub

[Angra]

Boa tarde
oswaldomp, brigadasso pela solução mas como faço para a macro atuar ao mesmo tempo no outro intervalo (CC5:CE50) fazendo a mesma coisa que (E5:G50)

[Angra]

Boa noite
Tentei juntar tudo aqui deu certo não
Range("E5:G50").Value = ""
For Each c In Range("B5:D50")

[osvaldomp]

Código: Selecionar todos

Sub InsereX()
 Dim c As Range
  Range("E5:G50,BZ5:CB50").Value = ""
  For Each c In Range("B5:D50,CC5:CE50")
   If c.DisplayFormat.Interior.ColorIndex = 1 Then c.Offset(, 3 + (c.Column > 4) * 6) = "x"
  Next c
End Sub

[Angra]

Bom dia
Agradeço a ajuda, muito bom