Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Identificar linha mesclada e inserir linha colorida

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
adrianoam
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sex Jul 29, 2022 4:14 pm

Identificar linha mesclada e inserir linha colorida

Mensagem por adrianoam »

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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Identificar linha mesclada e inserir linha colorida

Mensagem por webmaster »

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:

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
É mais ou menos isso? Espero que ajude.


adrianoam
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sex Jul 29, 2022 4:14 pm

Re: Identificar linha mesclada e inserir linha colorida

Mensagem por adrianoam »

Muito bom! Obrigado.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder