Excel'de sayfayı nasıl kopyalayıp otomatik olarak yeniden adlandırabilirsiniz?

Excel'de, bir çalışma sayfasını kopyalayıp genellikle yaptığınız gibi isim yazmadan otomatik olarak nasıl yeniden adlandırabilirsiniz? Bu makalede, bir sayfayı bir veya birden çok kez kopyalayıp onlara aynı anda belirli isimler vermekten bahsedeceğim.

VBA kodu kullanarak bir çalışma sayfasını birden çok kez kopyalayın ve artan sekme adlarıyla yeniden adlandırın

Kutools for Excel'i kullanarak bir çalışma sayfasını birden çok kez kopyalayın ve özel isimlerle yeniden adlandırın

VBA kodu kullanarak bir çalışma sayfasını birden çok kez kopyalayın ve artan sekme adlarıyla yeniden adlandırın

Eğer bir çalışma sayfasını birden çok kez kopyalamanız ve KTE-1, KTE-2, KTE-3, KTE-4… gibi seri isimler vermeniz gerekiyorsa, aşağıdaki VBA kodu size yardımcı olabilir.

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Bir çalışma sayfasını birden çok kez kopyalayın ve aynı anda yeniden adlandırın:

Sub Create()
'Updateby Extendoffice
    Dim I As Long
    Dim xNumber As Integer
    Dim xName As String
    Dim xActiveSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xActiveSheet = ActiveSheet
    xNumber = InputBox("Enter number of times to copy the current sheet")
    For I = 1 To xNumber
        xName = ActiveSheet.Name
        xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
        ActiveSheet.Name = "KTE-" & I
    Next
    xActiveSheet.Activate
    Application.ScreenUpdating = True
End Sub

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve bir uyarı kutusu, şu anda kopyalamak istediğiniz çalışma sayfasının kaç kopyasını istediğinizi soracaktır, aşağıdaki ekran görüntüsüne bakın:

4. Çıkan diyalog kutusuna kopya sayısını girin ve ardından Tamam butonuna tıklayın, mevcut çalışma sayfanız 5 kopya olarak çoğaltılmış ve aşağıdaki ekran görüntüsünde gösterildiği gibi ardışık isimlerle yeniden adlandırılmış olacaktır:

Not: Yukarıdaki kodda, çalışma sayfası adı metni “KTE-”'yi ihtiyaçlarınıza göre değiştirebilirsiniz.

Kutools for Excel'i kullanarak bir çalışma sayfasını birden çok kez kopyalayın ve özel isimlerle yeniden adlandırın

Belki yukarıdaki VBA kodları sizin için uygulamakta zor olabilir, burada size kolay bir araç olan Kutools for Excel'i tanıtacağım. Dizi Çalışma Sayfaları Oluştur özelliği ile bu görevi hiç çaba harcamadan gerçekleştirebilirsiniz.

Kutools for Excel'i yükledikten sonra lütfen aşağıdaki işlemleri yapın:

1. Kutools Plus > Çalışma Sayfası > Dizi Çalışma Sayfaları Oluştur'a tıklayın, aşağıdaki ekran görüntüsüne bakın:

2. Dizi Çalışma Sayfaları Oluştur iletişim kutusunda:

(1.) Kopyalamak istediğiniz çalışma sayfası adını Temel Alınan Çalışma Sayfası açılır listesinden seçin;

(2.) Ardından oluşturmak istediğiniz çalışma sayfası sayısını Oluşturulacak Çalışma Sayfalarının Sayısı metin kutusunda belirtin;

(3.) Ve ardından Sekme Adlarının Temel Alındığı bölümünde Ardışık Numaraları işaretleyin;

(4.) Son olarak, sağ bölmede oluşturmak istediğiniz sıra çalışma sayfası isimlerini oluşturun, aşağıdaki ekran görüntüsüne bakın:

3. Ayarları tamamladıktan sonra lütfen Tamam butonuna tıklayın ve belirli çalışma sayfası, oluşturduğunuz sıraya göre yeni bir çalışma kitabında birden çok kez kopyalanmış ve yeniden adlandırılmış olacaktır, aşağıdaki ekran görüntüsüne bakın:

Kutools for Excel Ücretsiz İndirme için Tıklayın !

Demo: Kutools for Excel'i kullanarak bir çalışma sayfasını birden çok kez kopyalayın ve özel isimlerle yeniden adlandırın