none
Erro: object invoked has disconnected from its clients RRS feed

  • Pergunta

  • Bom dia a todos,<o:p></o:p>

    Estou com um erro que está me tirando do sério. Fiz um código simples para envio de uma tabela do excel por email. No meu computador funciona normalmente (Excel do Office 365), porém a planilha esta em rede e dois outros computadores usam o Excel 2007, e esta a dar um erro que nunca tinha visto antes. O mais estranho disso é que as vezes funciona em todos os computadores e do nada recomeça o erro. <o:p></o:p>

    Já tentei usar todas as formas de mostrar e esconder userform, load, unload e etc. O erro aparece na linha em que uso o userform.show (novopedido.show). <o:p></o:p>

    O erro que aparece é: the object invoked has disconnected from its clients<o:p></o:p>

    Abaixo segue o código, fico grato a quem puder dar uma luz:<o:p></o:p>

    <o:p> </o:p>

    Private Sub CommandButton1_Click()<o:p></o:p>


    If TextBox1.Text = "" Then
        MsgBox "Preencha linha inicial!", vbExclamation, "AVISO"
        TextBox1.SetFocus
        Exit Sub
       End If<o:p></o:p>

    Application.ScreenUpdating = False
    Sheets("Encomenda").Select
    Sheets("Encomenda").Range("I2").Value = CDbl(TextBox1)<o:p></o:p>

    Sheets("Encomenda").Select
    Range("A1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="<>0"<o:p></o:p>

      Range("A1").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlToRight)).Select
        
    Call Mail_Selection_Range_Outlook_Body<o:p></o:p>

    Selection.AutoFilter<o:p></o:p>

    Sheets("Ecoiberia").Select<o:p></o:p>

    Unload Me<o:p></o:p>

    novopedido.Show<o:p></o:p>


    Application.ScreenUpdating = True<o:p></o:p>

      
    End Sub<o:p></o:p>

    quarta-feira, 11 de dezembro de 2019 10:48