Página 1 de 1
[Resolvido} Localizar células pela cor e inserir linhas
Enviado: 25 Fev 2022 às 09:44
por Osbont
Bom dia!
Necessito localizar células de uma determinada cor e acima delas inserir algumas linhas específicas.
Na planilha exemplo anexada, necessito que o VBA identifique as linhas com células da cor verde e insira acima delas as linhas 2, 3, 4 e 5.
Na planilha demostro o resultado esperado.
Obrigado
Re: Localizar células pela cor e inserir linhas
Enviado: 25 Fev 2022 às 13:54
por osvaldomp
Experimente:
Código: Selecionar todosSub InsereIntervalo()
Dim k As Long
Application.ScreenUpdating = False
For k = Cells(Rows.Count, 1).End(3).Row + 1 To 7 Step -1
If Cells(k, 1).Interior.Color = 13433871 Then
Range("A2:F5").Copy
Cells(k, 1).Resize(, 6).Insert Shift:=xlDown
End If
Next k
Application.CutCopyMode = False
End Sub
#
obs. antes de rodar o código coloque manualmente as bordas em A2:F5, conforme desejado.
Re: Localizar células pela cor e inserir linhas
Enviado: 03 Mar 2022 às 16:16
por Osbont
Boa tarde osvaldomp!
Desculpe pela demora em dar retorno.
Funcionou perfeito. Um código simples, enxuto e que funciona perfeitamente.
Adorei. Parabéns e muito obrigado.
Vou ver se adapto o código para quando encontrar uma linha que não seja branca inserir o intervalo.
Ocorre que a cor não é padrão e quando muda de cor falha.
Vou tentar algo como se interior for diferente de branco daí inserir.
Depois posto o código quando conseguir alterar.
Agradeço mesmo pois as planilhas que vou trabalhas tem em torno de 600 linhas e eu fazia manualmente.
Valeuuuuu
Re: Localizar células pela cor e inserir linhas
Enviado: 03 Mar 2022 às 16:53
por Osbont
Alterei a linha
If Cells(k, 1).Interior.Color = 13433871 Then
para
If Cells(k, 1).Interior.Color <> 16777215 Then.
Funcionou.
Por mim estou satisfeitíssimo com a resposta e o tópico pode ser encerrado.
Obrigado
Re: Localizar células pela cor e inserir linhas
Enviado: 03 Mar 2022 às 16:54
por osvaldomp
Osbont escreveu: ↑03 Mar 2022 às 16:16
Vou tentar algo como se interior for diferente de branco daí inserir.
É isso! 
Grato pelo retorno.
substitua ~~~>
= 13433871
por ~~~>
<> 16777215
Depois que postei foi que vi que você chegou antes, de Ferrari ... cheguei só agora, de Fusca 66.
Para marcar o tópico como resolvido só você pode fazê-lo. No primeiro post edite o título e coloque, por exemplo no início, [RESOLVIDO].