Este fórum está sendo desativado

[AMTNeto]

Bom dia, alguém saberia me dizer se tem alguma fórmula que eu possa mesclar células através dela?

Por exemplo: Se eu marcar X na A3, as célular A1 e A2 vão ficar mescladas e aparecer um dizer. Se eu apagar o X as 2 células (A1 e A2) não vão estar mescladas.

????????

Até consegui fazer com uma macro, mas ai precisei colocar um loop de 1s para fazer a leitura a cada segundo e achei que isso deixou a planilha meio lenta...

Segue abaixo a macro que fiz:

Sub Ocorrencias()

If Range("Q5").Value <> "X" Then

If Range("R5").Value <> "X" Then

If Range("S5").Value = "X" Then

Range("C5:O5").MergeCells = True
Range("C5").Value = "REMANEJADO"

Else

Range("C5:O5").MergeCells = False
Range("C5").Value = ""

End If

Else

Range("C5:O5").MergeCells = True
Range("C5").Value = "NC"

End If

Else

Range("C5:O5").MergeCells = True
Range("C5").Value = "TRANSFERIDO"

End If

Call Timer

End Sub

Sub Timer()

Application.OnTime Now + TimeValue("00:00:01"), "Ocorrencias"

End Sub

Alguém tem alguma sugestão?

[FelipeMGarcia]

Amigo, mesclar células é uma das piores coisas do Excel, atrapalha na hora de fazer fórmulas, formatar, etc. Se fosse você veria uma maneira melhor de trabalhar os dados para não ter que usar este recurso.

Abs

[PietroFarias]

Para realizar esse procedimento você entra no módulo da planilha que você quer realizar o procedimento e usa o procedimento abaixo:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target = Range("A3") Then
        If UCase(Target) = "X" Then
            Range("A1:A2").Merge
        Else
            Range("A1:A2").UnMerge
        End If
    End If

End Sub

Mas dependendo do que você quer fazer, usar formulas por exemplo, sugiro seguir como o FelipeGarcia aconselhou. Trabalhar com células mescladas é uma dor de cabeça quando envolve formulas e formatar.