Erro ao copiar de uma planilha e colar na outra planilha - O método PasteSpecial da classe Range falhou

Question

O método PasteSpecial da classe Range falhou

Alguem ai pode ajudar???

Answer 1

Que bom que atendeu.

Quando é necessário transferir apenas valores, utilizar uma matriz acelera bastante o código.

Não esqueça de marcar a pergunta como respondida.

[ ]s

Answer 2

Bom dia.

Experimente esta versão do código:

Sub at_claro()

    Dim linha As Long

    Dim Transf

    plan = ActiveWorkbook.Name

    With Application

        .DisplayAlerts = False

        .ScreenUpdating = False

        .EnableEvents = False

        .Calculation = xlCalculationManual

    End With

    Workbooks(plan).Sheets("plan1").Range("A2:F1048576").ClearContents

    Workbooks.Open ("c:\base.xlsb")

    ActiveWorkbook.Sheets("base").Select

    linha = ActiveWorkbook.Sheets("base").Range("B1048567").End(xlUp).Row

    If linha > 1 Then

        Transf = ActiveWorkbook.Sheets("base").Range("B2:G" & linha)

        Workbooks(plan).Sheets("plan1").Range("A2:F" & linha) = Transf

    End If

    ActiveWorkbook.Close

    Workbooks(plan).Activate

    Sheets("config").Select

    With Application

        .DisplayAlerts = True

        .EnableEvents = True

        .Calculation = xlCalculationAutomatic

        .ScreenUpdating = True

    End With

    MsgBox ("Atualizado com Sucesso!"), vbInformation, "Painel"

End Sub

[ ]s

Answer 3

Funcionou!!!!!

Eu percebi q quando tentava copiar perdia os valores e por isso causava a falha ao colar mas, nem sempre ocorria esse erro.

Muito boa a sacada de armazenar os valores em uma matriz.

Answer 4

Option Explicit

Public plan As String

Sub at_claro()

    Dim linha As Long

    Dim Excel2 As Object

    plan = ActiveWorkbook.Name

    With Application

        .DisplayAlerts = False

        .ScreenUpdating = False

        .EnableEvents = False

        .Calculation = xlCalculationManual

    End With

    Sheets("plan1").Range("A2:F1048576").ClearContents

    Set Excel2 = CreateObject("Excel.Application")

    With Excel2

        .Visible = False

        .ScreenUpdating = False

        .DisplayAlerts = False

        .EnableEvents = False

        .Workbooks.Open ("c:\base.xlsb")

        .Calculation = xlCalculationManual

        .ActiveWorkbook.Sheets("base").Select

        linha = .ActiveWorkbook.Sheets("base").Range("B1048567").End(xlUp).Row

        If linha > 1 Then

            .ActiveWorkbook.Sheets("base").Range("B2:G" & linha).Copy

   ele para nesta linha (em negrito) >>> Workbooks(plan).Sheets("plan1").Range("A2").PasteSpecial Paste:=xlPasteValues: .Application.CutCopyMode = False

        End If

        .ActiveWorkbook.Close    

        .Quit

    End With

    Set Excel2 = Nothing

     Workbooks(plan).Activate

    Sheets("config").Select

    With Application

        .DisplayAlerts = True

        .EnableEvents = True

        .Calculation = xlCalculationAutomatic

        .ScreenUpdating = True

    End With

    MsgBox ("Atualizado com Sucesso!"), vbInformation, "Painel"

End Sub

Ele para onde esta em negrito, ae se clicar em "depurar" e apertar "F5" ele continua e nao da erro. Porem as vezes da erro e as vezes nao.

Answer 5

Boa noite,

Poderia colocar o código que está utilizando, principalmente o ponto em que ocorre o erro?

[ ]s