Gostaria da ajuda de vocês. Não estou conseguindo criar uma rotina que insira uma linha mesclada após outra linha mesclada que apresenta uma determinada cor
IF (mescalda de W:BL) = XlThemeColor.xlThemeColorAccent6 then 'Informações da planilha atual
(inserir abaixo uma linha mesclada que compreende as colunas de W:DT)
Obs: essa planilha tem 300 linhas de modo que a macro deverá percorrer todas essas linhas.
Agradeço a ajuda.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Identificar linha mesclada e inserir linha colorida
Re: Identificar linha mesclada e inserir linha colorida
adrianoam,
O objeto Range tem uma propriedade chamada MergeCells to tipo Boolean. Se você testar qualquer célula no Range (ex: coluna AA que está entre W e BL), MergeCells retorna True.
Caro queira ter certeza de que todas as células no range estejam mescladas, fica um pouco mais chato, mas creio que testar a primeira e a última deve ser o suficiente.
O loop fica complicado se você quiser inserir linhas no meio do caminho. Caso insira 3, o total de linhas passa a ser 303 ao invés de 300.
Esse código abaixo testa se a coluna B de cada linha está mesclada até a 10:
É mais ou menos isso? Espero que ajude.
O objeto Range tem uma propriedade chamada MergeCells to tipo Boolean. Se você testar qualquer célula no Range (ex: coluna AA que está entre W e BL), MergeCells retorna True.
Caro queira ter certeza de que todas as células no range estejam mescladas, fica um pouco mais chato, mas creio que testar a primeira e a última deve ser o suficiente.
O loop fica complicado se você quiser inserir linhas no meio do caminho. Caso insira 3, o total de linhas passa a ser 303 ao invés de 300.
Esse código abaixo testa se a coluna B de cada linha está mesclada até a 10:
Código: Selecionar todos
Sub ListarMescladas()
Dim i As Integer
With Sheet1
For i = 1 To 10 'até a linha 10
If .Cells(i, 2).MergeCells Then
Debug.Print .Cells(i, 2).Address & " is merged"
End If
Next i
End With
End Sub