Excel'de bir sayfayı kopyaladıktan sonra otomatik olarak nasıl yeniden adlandırabilirsiniz?
Excel'de bir çalışma sayfasını kopyalayıp, elle isim yazmak zorunda kalmadan otomatik olarak nasıl yeniden adlandırabilirsiniz? Bu makalede, bir sayfayı tek seferde veya birden çok kez kopyalayıp hepsine aynı anda belirli isimler verme yöntemini adım adım anlatacağım.
Kutools for Excel 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 isimleriyle yeniden adlandırın
Birden fazla kez bir çalışma sayfasını kopyalamanız ve bu kopyalara KTE-1, KTE-2, KTE-3, KTE-4… gibi seri adlar vermeniz gerekiyorsa, aşağıdaki VBA kodu işinizi kolaylaştırabilir.
1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine 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ıp 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; geçerli çalışma sayfasının kaç kopyasını oluşturmak istediğinizi soran bir uyarı kutusu görünecektir. Ekran görüntüsüne bakın:
4. Açılan iletişim kutusuna Kopya Sayısı girin ve ardından Tamam düğmesine tıklayın; Geçerli Çalışma Sayfası sayfanız 5 kez çoğaltılmış ve aşağıdaki ekran görüntüsünde gösterildiği gibi sıralı isimlerle yeniden adlandırılmıştır:
Not: Yukarıdaki kodda, istediğiniz metni elde etmek için Çalışma Sayfası Adı kısmındaki “KTE-” ifadesini değiştirebilirsiniz.
Kutools for Excel kullanarak bir çalışma sayfasını birden çok kez kopyalayın ve özel isimlerle yeniden adlandırın
Belki yukarıdaki VBA kodlarını uygulamak sizin için zor olabilir. Bu nedenle size Kutools for Excel adlı kolay bir aracı tanıtacağım; Dizi Çalışma Sayfaları Oluştur özelliğiyle bu görevi hiçbir çaba sarf etmeden hemen gerçekleştirebilirsiniz.
Kutools for Excel yüklendikten sonra Kutools for Excel, lütfen aşağıdaki adımları izleyin:
1.KUTOOLS PLUS>Çalışma Sayfası>Dizi Çalışma Sayfaları Oluşturseçeneğine tıklayın, ekran görüntüsüne bakın:
2.Dizi Çalışma Sayfaları Oluşturiletişim kutusunda:
(1.) Çalışma Sayfası Adı'yi Çalışma sayfasına dayalıaçılır listesinden seçin;
(2.) Ardından Oluşturulacak Çalışma Sayfalarının Sayısımetin kutusunda kopyalamak istediğiniz çalışma sayfası sayısını belirtin;
(3.) Daha sonra Ardışık Numaralarbölümünün altında Çalışma Sayfası Adı Temel Alınanseçeneğini işaretleyin;
(4.) Son olarak, sağ bölmede istediğiniz sıralı Çalışma Sayfası Adı'i oluşturun, ekran görüntüsüne bakın:
3.Ayarları tamamladıktan sonra lütfen Tamamdüğmesine tıklayın; belirtilen çalışma sayfası birden çok kez kopyalanmış ve oluşturduğunuz sıraya göre Yeni Çalışma Kitabı içinde yeniden adlandırılmıştır, ekran görüntüsüne bakın:
Hemen Ücretsiz İndirin Kutools for Excel!
Demo: Kutools for Excel kullanarak bir çalışma sayfasını birden çok kez kopyalayın ve özel isimlerle yeniden adlandırın
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar