Excel'de aynı formatta birden fazla sayfayı hızlıca nasıl oluşturabilirim?

Eğer Excel'de belirli bir formatta bir sayfa oluşturduysanız ve bu formattı birden fazla sayfaya çoğaltmanız gerekiyorsa, bunu nasıl hızlıca yapabileceğinizi merak ediyor olabilirsiniz. Bu öğretici, aynı formatta birden fazla sayfa oluşturmak için birkaç yöntemi size gösterecek.

Taşı veya Kopyala ile aynı formatta çalışma sayfaları oluşturun

VBA ile aynı formatta çalışma sayfaları oluşturun

Kutools for Excel kullanarak aynı formatta çalışma sayfaları oluşturun

Taşı veya Kopyala ile aynı formatta çalışma sayfaları oluşturun

Excel'de, seçtiğiniz sayfayla aynı formatta bir sayfa oluşturmak için Taşı veya Kopyala komutunu kullanabilirsiniz.

1. İhtiyaç duyduğunuz formata sahip olan "Sayfa Sekmesi çubuğu"ndaki sayfaya tıklayın ve açılan içerik menüsünden "Taşı veya Kopyala"yı seçin. Ekran görüntüsüne bakın:

2. Ardından açılan pencerede "Kopya Oluştur" seçeneğini işaretleyin. Ekran görüntüsüne bakın:

3. "Tamam"a tıklayın. Seçilen sayfanın önüne aynı formatta yeni bir sayfa oluşturulur. Ekran görüntüsüne bakın:

Not:

(1) Ayrıca "Ana Sayfa" > "Biçim" > "Çalışma Sayfasını Taşı veya Kopyala"ya tıklayarak "Taşı veya Kopyala" iletişim kutusunu etkinleştirebilirsiniz.

(2) Bu yöntem, yüzlerce aynı formattaki sayfa oluşturmanız gerektiğinde zaman alıcı olabilir.

VBA ile aynı formatta çalışma sayfaları oluşturun

Aynı anda birden fazla çalışma sayfasını hızlıca oluşturmanıza yardımcı olabilecek bir VBA kodu bulunmaktadır.

1. "Alt" + "F11" tuşlarına basarak "Microsoft Visual Basic for Applications" penceresini açın, ardından "Ekle" > "Modül"e tıklayın, aşağıdaki kodu "Modül" penceresine kopyalayıp yapıştırın.

VBA: Aynı formatta çalışma sayfaları oluşturun.

Sub CopyWorkSheets()
'Updateby20150526
Dim xNumber As Integer
Dim xWsName As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
xWsName = Application.InputBox("Copy worksheet name", xTitleId, , Type:=2)
xNumber = Application.InputBox("Copy number", xTitleId, , Type:=1)
For i = 1 To xNumber
    Application.ActiveWorkbook.Sheets(xWsName).Copy _
    After:=Application.ActiveWorkbook.Sheets(xWsName)
Next
End Sub

2. VBA kodunu çalıştırmak için "F5" tuşuna basın, ardından formatını kopyalamak istediğiniz çalışma sayfasının adını girmeniz için bir iletişim kutusu açılacaktır.

3. "Tamam"a tıklayın ve başka bir iletişim kutusunda ihtiyacınız olan kopya sayısını belirtin. Ekran görüntüsüne bakın:

4. "Tamam"a tıklayın. Aynı formatta altı kopya çalışma sayfası oluşturulacaktır.

Kutools for Excel kullanarak aynı formatta çalışma sayfaları oluşturun

Eğer VBA kullanmayı sevmiyorsanız, size pratik bir araç olan "Kutools for Excel"i tanıtacağım. Çalışma sayfalarını kopyalama özelliğini kullanarak hızlı ve kolay bir şekilde aynı formatta sayfalar oluşturabilirsiniz.

1. "Kutools Plus" > "Çalışma Sayfası" > "Çalışma Sayfalarını Kopyala"ya tıklayın. Ekran görüntüsüne bakın:

2. "Çalışma Sayfalarını Toplu Kopyala" iletişim kutusunda, aşağıdaki işlemleri yapın:

(1) "Seçili Çalışma Sayfalarını Kopyala" listesi kutusundan formattını kopyalamak istediğiniz çalışma sayfasının adını işaretleyin;

(2) Kopya sayısını belirtin;

(3) Kopyaları nereye yerleştireceğinizi belirtin.

3. "Tamam"a tıklayın, kopyaların başarıyla oluşturulduğunu bildiren bir iletişim kutusu açılacaktır. Kapatmak için "Tamam"a tıklayın.

Şimdi, belirtilen sayıda çalışma sayfasının aynı formatta oluşturulduğunu görebilirsiniz.

Çoklu Çalışma Sayfalarını Kopyala hakkında daha fazla bilgi için buraya tıklayın.