Página 1 de 1
Preencher uma tabela baseado em uma formatação
Enviado: 22 Out 2018 às 21:25
por 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
Re: Preencher uma tabela baseado em uma formatação
Enviado: 23 Out 2018 às 10:49
por osvaldomp
Código: Selecionar todosSub 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
Re: Preencher uma tabela baseado em uma formatação
Enviado: 23 Out 2018 às 12:29
por 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)
Re: Preencher uma tabela baseado em uma formatação
Enviado: 23 Out 2018 às 20:15
por Angra
Boa noite
Tentei juntar tudo aqui deu certo não
Range("E5:G50").Value = ""
For Each c In Range("B5:D50")
Re: Preencher uma tabela baseado em uma formatação
Enviado: 24 Out 2018 às 09:11
por osvaldomp
Código: Selecionar todosSub 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
Re: Preencher uma tabela baseado em uma formatação
Enviado: 24 Out 2018 às 10:46
por Angra
Bom dia
Agradeço a ajuda, muito bom