none
Run-timer error '13' RRS feed

  • Pergunta

  • Bom dia,

    Estou com dificuldades para executar essa programação, ela até executa umas 2 ou 3 vezes porém após um tempo ela parace a falha de Run-timer error '13', alguém pode me ajudar o que estou fazendo errado. Segue minha programação abaixo:

    Sub Calculo()
    Static OldVal1 As Variant
        OldVal1 = Range("H24").Value
    If Range("C33").Value <> OldVal1 Then

        Application.Goto Reference:="Tab_Ciclo"
    0    ActiveWindow.SmallScroll Down:=3
        Selection.Copy
        Application.Goto Reference:="A_fim"
        Selection.End(xlUp).Select
        ActiveCell.Offset(1, 0).Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
            , SkipBlanks:=False, Transpose:=False
        Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
            , SkipBlanks:=False, Transpose:=False
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("Sheet1").Select
        ActiveCell.Offset(0, 5).Range("A1").Select
        Application.CutCopyMode = False
        ActiveCell.Offset(1, 0).Range("A1").Select
        Call Time

    End If
    End Sub

    Sub Time()
    Application.OnTime Now + TimeValue("00:00:10"), "Calculo"
    End Sub

         
    segunda-feira, 30 de outubro de 2017 12:36