Excel'de bir çalışma sayfasını kopyalayıp, belirli bir hücrenin değerine göre nasıl yeniden adlandırabilirim?
Normalde, bir çalışma sayfasını kopyalamak için Taşı veya Kopyala özelliğini kullanabilir ve ardından kopyanın adına ihtiyacınız olduğu gibi manuel olarak yeni bir ad yazabilirsiniz. Peki ya çalışma sayfasını kopyaladıktan sonra, sayfayı bir hücre değerine göre otomatik olarak yeniden adlandırmayı denediniz mi? Bu makalede, kopya oluşturduğunuz anda çalışma sayfasının adını hücre değerine göre nasıl otomatik olarak değiştireceğinizi öğreneceksiniz.
VBA koduyla çalışma sayfasını kopyalayıp hücre değerine göre yeniden adlandırma
VBA koduyla çalışma sayfasını kopyalayıp hücre değerine göre yeniden adlandırma
Aşağıdaki VBA kodu, bir çalışma sayfasını kopyalamanıza ve otomatik olarak belirli bir hücredeki değere göre yeniden adlandırmanıza yardımcı olur. Lütfen aşağıdaki gibi ilerleyin:
1. Kopyalamak istediğiniz çalışma sayfasını etkinleştirin ve ardından 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ı kopyalayıp hücre değerine göre yeniden adlandırma:
Sub Copyrenameworksheet()
'Updateby Extendoffice
Dim ws As Worksheet
Set wh = Worksheets(ActiveSheet.Name)
ActiveSheet.Copy After:=Worksheets(Sheets.Count)
If wh.Range("A1").Value <> "" Then
ActiveSheet.Name = wh.Range("A1").Value
End If
wh.Activate
End Sub
3. Ardından bu kodu çalıştırmak için F5 tuşuna basın. Böylece **Geçerli Çalışma Sayfası**, tüm çalışma sayfalarının sonuna **Geçerli Çalışma Kitabı** olarak kopyalanacak ve belirttiğiniz hücre değerine göre yeniden adlandırılacaktır. Ekran görüntüsüne bakın:
Not: Yukarıdaki kodda, hücre başvurusu A1, yeni kopyalanan sayfaya vermek istediğiniz ismi içeren hücre değeridir; bunu ihtiyacınıza göre değiştirebilirsiniz.
Çalışma sayfasını birden çok kez kopyalayıp Kutools for Excel ile hücre değerlerine göre yeniden adlandırma
Yukarıdaki kod yalnızca tek bir hücre değerine göre sayfa yeniden adlandırması yapabilir. Eğer sayfayı birden çok kez kopyalayıp bir hücre değerleri listesine göre yeniden adlandırmak istiyorsanız, Kutools for Excel’in Create Sequence Worksheet özelliği bu görevi en kısa sürede tamamlamanıza yardımcı olabilir.
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ştur seçeneğine tıklayın. Ekran görüntüsüne bakın:
2.Create Sequence Worksheetiletişim kutusunda aşağıdaki işlemleri yapın:
(1.) Kopyalamak istediğiniz Çalışma Sayfası Adı öğesini Çalışma sayfasına dayalıaçılır listesinden seçin;
(2.)Çalışma Sayfası Adı Temel Alınan bölümünde **Seçim İçindeki Veri** seçeneğini işaretleyin ve kopyalanan çalışma sayfalarını yeniden adlandırmak için temel alınacak hücre değerlerini seçmek üzere 
düğmesine tıklayın.
3. Ardından Tamam düğmesine tıklayın. Belirtilen çalışma sayfası, seçtiğiniz hücre değerlerine göre birden çok kez kopyalanmış ve yeni bir çalışma kitabında yeniden adlandırılmıştır. Ekran görüntüsüne bakı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