ERRO .Unmerge  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

ERRO .Unmerge

Mensagempor alanisfcsm » Ter Jul 16, 2019 5:39 pm

Perdido aqui. :oops: :oops: :oops:
"ERRO .Unmerge"

Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)

    ActiveSheet.Unprotect ""


Dim COLUNA As Double
Dim LINHAS As Double


'On Error GoTo ErrorHandler

COLUNA = Target.Column
LINHA = Target.Row

If COLUNA = 2 And LINHA >= 23 Then

If Range(Target.Address) = "" Then
Cells(LINHA, 1) = ""
ElseIf Cells(LINHA, 1) = "" Then
Cells(LINHA, 1) = Date
ElseIf Cells(LINHA, 1) <> "" Then
Cells(LINHA, 1) = Date

End If
End If

    Range("B23:E240").Select
        Selection.UnMerge

    If Target.Column = 1 Then
       
        Dim lastrow As Long
        lastrow = Cells(Rows.Count, 2).End(xlUp).Row
        Range("A23:K240" & lastrow).Sort key1:=Range("A23:K240" & lastrow), order1:=xlAscending, Header:=xlNo
     
    End If
 
    Range("B23:E240").Select
    Selection.Merge True
   
    ActiveSheet.Protect
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
   
End Sub

https://www.dropbox.com/s/f0h2ca7din7xq ... .xlsm?dl=0
alanisfcsm
Membro
Membro
 
Mensagens: 106
Registrado em: Ter Abr 12, 2016 12:01 pm
Has thanked: 37 times
Have thanks: 0 time

{ SO_SELECT }

Re: ERRO .Unmerge  [Resolvido]

Mensagempor rlm » Qua Jul 17, 2019 1:43 pm

Não entendi?Onde ocorre o erro? aparentemente, em meu excel 10, está ok
Reinaldo - RLM - Rmarco
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)

For this post the author rlm thanked:
alanisfcsm (Sex Jul 19, 2019 11:29 am)
Avatar do usuário
rlm
Ninja do Excel
Ninja do Excel
 
Mensagens: 289
Registrado em: Qui Out 16, 2014 12:30 pm
Has thanked: 21 times
Have thanks: 137 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Feedfetcher e 8 visitantes