макросы не видят лист - «ошибка выполнения 9» - PullRequest
0 голосов
/ 21 февраля 2020

У меня есть 2 листа и 1 макрос, который вставляет значения из одного в другой. Макросы работают. Я скопировал и немного изменил. Но он не может работать -

'ошибка времени выполнения 9'

, что является проблемой видимости.

Все листы находятся в одном файле Excel.

оригинальный код макроса, он работает:

Sub original()

For j = 18 To 28
        Worksheets("Express_vnzp").Select
        srok = Cells(26, j).Value
        stav = Cells(31, j).Value
        komis = Cells(28, j).Value
        stavka_privlech = Cells(29, j).Value

        For i = 10 To 12

            PD = Cells(i, 17).Value
            Worksheets("Ðàñ÷åòû").Select
            Cells(3, 2).Value = stav
            Cells(4, 2).Value = srok
            Cells(5, 2).Value = komis
            Cells(7, 2).Value = stavka_privlech
            Cells(15, 2).Value = PD
            marzha2 = Cells(23, 2).Value

            Worksheets("Express_vnzp").Select
            Cells(i, j).Value = marzha2

        Next
Next
End Sub

Я скопировал и изменил i, j - не работает.

Sub erj()

    For j = 3 To 4
            Worksheets("creditcard").Select
            srok = Cells(26, j).Value
            stav = Cells(31, j).Value
            komis = Cells(28, j).Value
            stavka_privlech = Cells(29, j).Value

            For i = 5 To 6

                PD = Cells(i, 17).Value
                Worksheets("ras").Select
                Cells(3, 2).Value = stav
                Cells(4, 2).Value = srok
                Cells(5, 2).Value = komis
                Cells(7, 2).Value = stavka_privlech
                Cells(15, 2).Value = PD
                marzha2 = Cells(23, 2).Value

                Worksheets("creditcard").Select
                Cells(i, j).Value = marzha2

            Next
    Next
    End Sub

дает «ошибку времени выполнения», ее видимость выпуск.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...