Ошибка при копировании элементов из базового листа в новый лист Excel VBA

Question

Я получаю эту ошибку:

Ошибка времени выполнения '1004': сбой метода копирования класса рабочего листа

Мы ' пытаемся создать новые листы из базового листа. Этот код должен копировать элементы базового листа и помещать их в новый лист и отлично работает на компьютере моего коллеги, но не на моем. Я не знаю почему. Я проверил несколько связанных вопросов, но для меня это бесполезно.

    Sub Otomatik_CategoryMenuleriniOlustur()
    Dim ToplamCategoryMenuSayisi As String
    Dim Pos As Long

    Sheets("Otomatik_ID_Category").Select

    Range("C8:C1000000").Select
    Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

    AktifSatir = ActiveCell.Row

    ToplamCategoryMenuSayisi = AktifSatir - 9

    'MsgBox ToplamCategoryMenuSayisi

    Range("A1").Select

    Call forEachWs_Urunler_Category_Orj_Sayfa_Pozisyonunu_Bul

    'MsgBox "Urunler Category Orj Sayfasýnýn Sayýsý Konumu : " & Urunler_Category_Orj_Sayfa_Pozisyonu

    j = 0

    For i = 9 To ToplamCategoryMenuSayisi + 8


            Pos = InStr(Cells(i, 3), "Pizza")
            If Pos > 0 Then

                            'MsgBox Cells(i, 3) & " Hücresinin " & Pos & " pozisyonunda Pizza Bulundu. Sayfasý Eklenmeyecek"
                            j = j + 1


                       Else

                            Sheets("Urunler Category Orj").Copy After:=Sheets(Urunler_Category_Orj_Sayfa_Pozisyonu + j)
                            j = j + 1

                            EklenenSayfa = ActiveSheet.Name
                            'MsgBox EklenenSayfa
                            SayfaAdi = Sheets("Otomatik_ID_Category").Cells(i, 3).Text
                            'MsgBox SayfaAdi
                            'Sheets("Urunler Category Orj (2)").Select
                            Sheets(EklenenSayfa).Name = SayfaAdi

                            Cells(7, 4).Value = SayfaAdi & ".png"

                            Cells(7, 2).Value = Sheets("Otomatik_ID_Category").Cells(i, 1).Text

                            Cells(7, 1).Value = (i - 7) * 1000


            End If
                'HucreIcerigi = Search




    Next i

    Sheets("Otomatik_ID_Category").Select

End Sub

-

Выделенная строка такова:

Sheets("Urunler Category Orj").Copy After:=Sheets(Urunler_Category_Orj_Sayfa_Pozisyonu + j)

Файл Excel, если необходимо: Tablo Yapisi Macro BA.xlsm

Answer 1

Сбой, потому что вы не присвоили значение:

Urunler_Category_Orj_Sayfa_Pozisyonu