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 5l.

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

Olá Elaine,

Para questões envolvendo macro e VBA, acesse o link abaixo e poste sua dúvida:

http://social.msdn.microsoft.com/Forums/pt-br/home?forum=vbapt

Até mais!!!