Boa tarde!!

Eu não entendi, você quer mesclar na guia "Resumo"?

Não serve um loop...?

Sub LoopMesclar()
    Dim c
    For Each c In ActiveSheet.UsedRange
        If c.MergeCells Then
            MsgBox c.Address & " Foi mesclada"
        End If
    Next
End Sub

Att

Bom dia

é esse comando que tenho, e preciso mesclar, mas quando eu vou gerar um novo, quando vai colar as informações diz que não pode porque as células estão mescladas.

Sub Plano_resumo()
Dim PlanA As Integer

If Sheets("Ação").Range("B6") <> "" Then
PlanA = Sheets("Ação").Range("B" & Rows.Count).End(xlUp).Row
Dim c As Range
For Each c In Sheets("Ação").Range("B6:B" & PlanA)
If c <> "" Then
Sheets("Ação").Cells(c.Row, 2).Copy Sheets("Resumo").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
End If
Next c
End If
End Sub

Boa tarde!!

o seu "mesclar células" é o mesmo do mesclar que eu conheço??
http://office.microsoft.com/pt-br/excel ... 16392.aspx

Att

Sim, é o mesmo.

Sim é o mesmo.

Boa tarde!!

Eu sinto muito, eu não estou entendendo, o código que você postou copia e cola ( de forma a traspor) os dados em outra guia.

Eu vou deixa a resposta para quem entendeu o post.

Att

Mas quando ele cola, se a célula estivar mesclada da um aviso de erro que não pode fazer isso em células mescladas.
dessa forma preciso que ele cole e depois mescle as celulas.

Bom dia!!

Então porque não usa o código do meu primeiro post?

Att

Valdecir, o ideal é anexar um modelo para analisar melhor os endereços.
Primeiro tem de entender como funciona as celulas Mescladas, para depois podermos lidar com elas, ou seja, pelo metodo normal não é possivel copiar uma celula para um CONJUNTO de celulas mescladas.

Supondo que temos as Celulas "A1:A3" mescladas, então se eu utilizar a instrução:

Range("E1").Copy Range("A1") 'Estaria copiando o Valor de "E1" para o RAnge "A1", o que resultaria em erro devido a mesclagem das celulas, para contornar devemos utilizar a seguinte instrução :
Range("E1").Copy Range("A1:C1") 'Agora sim conseguimos copiar, ou poderiámos estar utilizando tambem:
Tirado da propria ajuda do VBA:
Set ma = Range("A1").MergeArea
If Range("a1").MergeCells Then
ma.Cells(1, 1).Value = Range("E1")
End If
Verifica-se se a celula é mesclada e copiamos o valor de "E1".

Resumindo, em linguagem simples, a Mesclagem de celulas compreende um Conjunto de celulas, se Mesclamos de "A1 até B2" temos 04 Ranges "A1, A2, B1 e B2".

Como citei acima existem algumas formas de se lidar com isto, mas o ideal é visualizarmos afim de poder dar uma solução mais adequada a sua situação.

[]s

boa tarde

Primeiro eu cadastro as não conformidades na planilha de EPI, depois clico em um botão que vai jogar estas informações na planilha de ação e Resumo, na planilha Resumo será colocado a partir OBSERVAÇÕES / COMENTÁRIOS / EVIDÊNCIAS, da li pra baixo.
Nesta lista até o fim do mês aparecerão as ações que forma tomadas, só o título, isso na planilha resumo.
As células da Planilha Resumo não estão mescladas, quando é copiado a informação da Planilha Ação e depois colar de Ação na Planilha Resumo, só cola na primeira célula, depois que colar preciso, para que as informações fiquem bem apresentadas, que seja mesclado de coluna A até H, na planilha Resumo.