Selecionar célula m...
 
Compartilhar:
Notifications
Clear all

Selecionar célula mesclada


Dunguinha
Posts: 59
Registered
Topic starter
(@dunguinha)
Trusted Member
Entrou: 3 anos atrás

Boa tarde.

Tenho uma lista de ramais com mais de 200 números.

Preciso que uma macro selecione a célula mesclada acima de onde estiver a célula ativa.

Esta explicadinho no anexo.

Responder
1 Reply
EdsonBR
Posts: 957
Moderator
(@edsonbr)
Prominent Member
Entrou: 7 anos atrás

Veja se é isso, colega @Dunguinha:

Sub SelMescladaAcima()
  Dim rg As Range
  If Not Intersect(ActiveCell, Columns(1)) Is Nothing Then
    If ActiveCell.MergeCells Then Exit Sub
    Application.FindFormat.MergeCells = True
     Set rg = ActiveCell.EntireColumn.Find(What:="", After:=ActiveCell, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, SearchFormat:=True)
     If Not rg Is Nothing Then rg.Activate
    Application.FindFormat.Clear
  End If
End Sub
Responder
Compartilhar: