none
Erro ao executar macro no Excel. RRS feed

  • Pergunta

  • 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
    terça-feira, 23 de julho de 2013 18:55

Todas as Respostas

  • 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

    terça-feira, 23 de julho de 2013 21:38
    Moderador