Erro ao executar macro no Excel.

Question

erro em tempo de execução '_2147417848 (80010108)'

gravei uma macro no Excel 2007 que rodava perfeitamente. quando refiz os mesmos comandos no excel 2010, a partir da terceira execução da macro passa a surgir a seguinte mensagem:  " erro em tempo de execução ....  o objeto chamado foi desconectado de seus clientes". Já exclui e refiz a macro varias vezes, renomeando os intervalos mas o erro persiste, sempre apos uma execução correta. podem me ajudar? abaixo o código,  na depuração o erro é apontado na linha 5.

Sub compra_inserir()

'

' compra_inserir Macro

'

'

    Application.Goto Reference:="CP_Transf_Prod"

    Selection.Copy

    Sheets("Bd_compras").Select

    Application.Goto Reference:="R3C1"

    Selection.Insert Shift:=xlDown

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Application.Goto Reference:="R3C11:R13C11"

    Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

    Selection.SpecialCells(xlCellTypeBlanks).Select

    Application.CutCopyMode = False

    Selection.Delete Shift:=xlUp

    Application.Goto Reference:="R2C1"

    Application.Goto Reference:="CP_Transf_Pagto"

    Selection.Copy

    Sheets("Bd_pagar").Select

    Application.Goto Reference:="R3C1"

    Selection.Insert Shift:=xlDown

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Application.Goto Reference:="R3C8:R13C8"

    Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

    Selection.SpecialCells(xlCellTypeBlanks).Select

    Application.CutCopyMode = False

    Selection.EntireRow.Delete

    Application.Goto Reference:="R2C1"

    Application.Goto Reference:="CP_dados"

    Selection.ClearContents

    Application.Goto Reference:="R5C3"

    ActiveWorkbook.Save

End Sub

Answer 1

Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum.

---

Sobre sua dúvida, o que é "CP_Transf_Prod"? Um nome definido?

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br