Ошибка выполнения 1004 с этим кодом;это начинается в нижней половине, когда я добавляю раздел копирования / вставки в цикле? - PullRequest
Новая
       11

Ошибка выполнения 1004 с этим кодом;это начинается в нижней половине, когда я добавляю раздел копирования / вставки в цикле?

0 голосов
/ 06 февраля 2019

Это код, который у меня есть, который запускает цикл для выплескивания линейки фантастических видов спорта.Он работает нормально с верхним параметром, но для нижнего варианта это дает мне ошибку времени выполнения 1004, когда я добавляю ее. Что-то не так? 

Sub LoopOptoRun()
'
' Loop OptoRun Macro
'
    Dim currentPoint As Long

    NumberOfLoops = InputBox("How Many Lineups?")
    If Not IsNumeric(NumberOfLoops) Then NumberOfLoops = 1

    currentPoint = 1

    Do Until currentPoint > NumberOfLoops

        ActiveSheet.Unprotect Password:="9061"
        SolverOk SetCell:="$AC$1", MaxMinVal:=1, ValueOf:=0, 
            ByChange:="$Q$2:$Q$200", _
            Engine:=2, EngineDesc:="Simplex LP"
        SolverOk SetCell:="$AC$1", MaxMinVal:=1, ValueOf:=0, 
            ByChange:="$Q$2:$Q$200", _
            Engine:=2, EngineDesc:="Simplex LP"
        SolverSolve UserFinish:=True
        Range("priorProjPts").Value = Range("totProjPts").Value - 0.001
        ActiveSheet.Protect Password:="9061"

        **Range("AH4:AH11").Select
        Selection.Copy
        Sheets("Lineup_VIEW").Select
        Range("A200").End(xlUp).Offset(1).Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, 
        SkipBlanks:= _
            False, Transpose:=True
        Range("A3").Select
        Sheets("Optimizer").Select
        Application.CutCopyMode = False**

        currentPoint = currentPoint + 1

    Loop
End Sub
...