Ir para conteúdo
Fórum Script Brasil
  • 0

Metodo Worksheet.Paste Falhou


Gneccao

Pergunta

Boa Tarde, tenho uma planilha no Excel que quando um usuario aperta um botão, ele pega a linha selecionada e recorta ela e cola em uma outra aba.

O problema é que o Código retorna o Erro quando você clica a primeira vez, mas se você clicar novametne, ele roda sem apresentar problemas.

segue o Código Abaixo, ele apresenta erro, apenas as vezes.

ActiveCell.Range("A1:AM1").Select

Selection.Copy

Sheets("resolvidas").Select

Range("A3").Select

ActiveSheet.Unprotect "12312"

Application.EnableEvents = False

Selection.End(xlDown).Select

ActiveCell.Offset(1, 0).Select

ActiveCell = valmax + 1

ActiveCell.Range("B1:AM1").Select

ActiveSheet.Paste

Sheets("Controle").Select

ActiveCell.Range("S1:AM1").Select

Selection.ClearContents

Link para o comentário
Compartilhar em outros sites

12 respostass a esta questão

Posts Recomendados

  • 0

Olá,

Tente usar:

Sub Teste()

Application.EnableEvents = False

ActiveCell.Range("A1:AM1").Copy Destination:=Sheets("resolvidas").Range("A3").Select

Sheets("resolvidas").Unprotect "12312"

Sheets("resolvidas").End(xlDown).Offset(1, 0).Paste

ActiveCell.Range("S1:AM1").ClearContents

Sheets("resolvidas").Protect "12312"

Application.EnableEvents = True

End Sub

Link para o comentário
Compartilhar em outros sites

  • 0

Ola,

usando o seguinte codigo

Application.EnableEvents = False
    Sheets("resolvidas").Unprotect "12312"
    ActiveCell.Range("A1:AM1").Copy Destination:=Sheets("resolvidas").Range("A3")
    Sheets("resolvidas").End(xlDown).Offset(1, 0).Paste
    ActiveCell.Range("S1:AM1").ClearContents
    Sheets("resolvidas").Protect "12312"
    Application.EnableEvents = True
aprensenta o seguinte erro na linha
Sheets("resolvidas").End(xlDown).Offset(1, 0).Paste

"O Objeto não aceita eta propriedade ou método"

Link para o comentário
Compartilhar em outros sites

  • 0

Se a resposta abaixo não resolver seu problema, favor disponibilizar sua Pasta de Trabalho para download:

Sub Teste()
    Application.EnableEvents = False
    Range("A1:AM1").Copy Destination:=Sheets("resolvidas").Range("A3")
    Sheets("resolvidas").Unprotect "12312"
    Sheets("resolvidas").End(xlDown).Offset(1, 0).Paste
    Range("S1:AM1").ClearContents
    Sheets("resolvidas").Protect "12312"
    Application.EnableEvents = True
End Sub

Link para o comentário
Compartilhar em outros sites

  • 0

Desculpe a demora.

Acredito que sua macro esteja funcionando somente uma vez porque toda vez que você usa o método Select para selecionar a Planilha resolvidas, o evento Worksheet_Change dela é executado e bloqueando-a:

Private Sub Worksheet_Activate()
    protege
End Sub
Para evitar que essa rotina rode, altere a propriedade EnableEvents do objeto Application para falso, e restaure novamente seu estado ao término da execução da rotina. Um exemplo pode ser visto abaixo:
Private Sub Exemplo()
    Dim lLast As Long
    Dim rng As Range
    
    If ActiveSheet.Name = "Controle" Then
        Application.EnableEvents = False
        With Sheets("resolvidas")
            'Atenção: aqui deve ter um código para desbloquear a Planilha resolvidas
            Set rng = Cells(ActiveCell.Row, 1)
            lLast = .Cells(.Rows.Count, "A").End(xlUp).Row
            rng.Range("A1:AM1").Cut _
              Destination:=.Cells(lLast + 1, "A").Range("B1:AM1")
            'Aqui vai o código para bloquear novamente a Planilha resolvidas
        End With
        Application.EnableEvents = True
    End If
End Sub

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...