Este fórum está sendo desativado

[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

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub 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.

[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

[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

[osvaldomp]

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].