Excel'de çalışma sayfalarını hücre değerlerine göre nasıl yeniden adlandırabilirim?
Çalışma sayfalarını yeniden adlandırmak, Excel çalışmalarınızda sıkça karşılaşılan bir işlemdir. Peki ya çalışma sayfalarını hücre değerlerine göre “Çalışma Sayfalarını Yeniden Adlandır” özelliğini denediniz mi? Elbette bu işlemi manuel olarak da yapabilirsiniz; ancak bu öğreticide, çalışma zamanınızı kısaltmanıza yardımcı olacak ve birden fazla çalışma sayfasını hücre değerlerine göre hızla yeniden adlandıran bazı pratik püf noktalarını paylaşıyoruz.
VBA ile belirli bir hücreye göre Çalışma Sayfalarını Yeniden Adlandır
Toplu Sayfa Yeniden Adlandırma ile belirli bir hücreye göre Çalışma Sayfalarını Yeniden Adlandır 
Toplu Sayfa Yeniden Adlandırma ile hücre aralığı içeriklerine göre Çalışma Sayfalarını Yeniden Adlandır
VBA ile belirli bir hücreye göre Çalışma Sayfalarını Yeniden Adlandır
Aşağıdaki VBA koduyla, belirli bir hücreye göre ilgili çalışma sayfasını kolayca yeniden adlandırabilirsiniz.
1. Çalışma sayfasını yeniden adlandırmak için başvurmak istediğiniz hücreyi seçin; bu örnekte A1 hücresini seçin. Ekran görüntüsüne göz atın:
2. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
3. Ekle > Modül seçeneğine tıklayın ve ardından aşağıdaki VBA kodunu yeni Modül penceresine yapıştırın.
VBA: Çalışma sayfalarını belirli bir hücre değerine göre yeniden adlandırın.
Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
xName = xWs.Range(xRngAddress).Value
If xName <> "" Then
xInt = 0
Set xSSh = Nothing
Set xSSh = Worksheets(xName)
While Not (xSSh Is Nothing)
Set xSSh = Nothing
Set xSSh = Worksheets(xName & "(" & xInt & ")")
xInt = xInt + 1
Wend
If xInt = 0 Then
xWs.Name = xName
Else
If xWs.Name <> xName Then
xWs.Name = xName & "(" & xInt & ")"
End If
End If
End If
Next
Application.ScreenUpdating = True
End Sub4. F5 tuşuna basarak VBA kodunu çalıştırın. Böylece tüm çalışma sayfaları, ilgili A1 hücresindeki değerlere göre otomatik olarak yeniden adlandırılır.
Toplu Sayfa Yeniden Adlandırma ile belirli bir hücreye göre Çalışma Sayfalarını Yeniden Adlandır
Eğer Kutools for Excel yüklüyse, VBA kodunu kaydetmenize gerek kalmaz; ilgili hücrelere göre tüm çalışma sayfalarını hızlıca yeniden adlandırmak için Toplu Sayfa Yeniden Adlandırma özelliğini kullanabilirsiniz.
Kutools for Excel eklentisini ücretsiz olarak yükledikten sonra,aşağıdaki adımları izleyin:
1. Yeniden adlandırılacak çalışma sayfalarını içeren kitabı etkinleştirin.
2. KUTOOLS PLUS>Çalışma Sayfası>Çalışma Sayfalarını Yeniden Adlandır seçeneğine tıklayın. Ekran görüntüsüne bakın:
3. Açılan iletişim kutusunda, Çalışma Sayfaları bölmesinden yeniden adlandırmak istediğiniz sayfaları işaretleyin ve ihtiyacınız olan Yeniden Adlandırma Seçeneği seçeneklerinden birini seçin. Bu örnekte sayfa adını değiştireceğim; bu yüzden İlgili Çalışma Sayfasından Hücreden seçeneğini işaretleyip yeniden adlandırma için gerekli hücresi belirleyin. Ekran görüntüsüne bakın:
4. Tamam düğmesine tıklayın. Artık sayfalar, belirtilen hücre içeriklerine göre yeniden adlandırıldı.
Ancak bazen çalışma sayfalarını, aşağıdaki ekran görüntüsünde gösterildiği gibi, bir hücre aralığındaki değerlere göre yeniden adlandırmak isteyebilirsiniz. Bu durumda aşağıdaki yöntemi seçebilirsiniz.
Toplu Sayfa Yeniden Adlandırma ile hücre içeriği aralığına göre Çalışma Sayfalarını Yeniden Adlandır
Toplu Sayfa Yeniden Adlandırma özelliğine sahip Kutools for Excel eklentisiyle, çalışma sayfalarını bir Aralık seçime göre yeniden adlandırabilirsiniz.
Kutools for Excel eklentisini ücretsiz olarak yükledikten sonra,aşağıdaki adımları izleyin:
1. KUTOOLS PLUS > Çalışma Sayfası > Çalışma Sayfalarını Yeniden Adlandır seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Toplu Sayfa Yeniden Adlandırmailetişim kutusunda, aşağıdaki ayarları belirtmeniz gerekir:
(1)Çalışma Sayfası Listesibölümünden yeniden adlandırmak istediğiniz çalışma sayfalarını seçin;
(2)Seçimdenseçeneğini işaretleyin ve yeniden adlandırma temeli olarak kullanmak istediğiniz hücre değerlerini seçin;
(3)Yeniden Adlandırma Stili bölümünü belirtin.Orijinal Adın Öncesine Ekle, Orijinal Adın Sonrasına Ekle veya Orijinal Adı Değiştir seçeneklerinden birini işaretleyebilir ve iletişim kutusunda ilgili sonucu önizleyebilirsiniz.
3. Tamam düğmesine tıklayın; ardından seçtiğiniz tüm çalışma sayfalarının belirtilen hücre değerlerine göre yeniden adlandırıldığını göreceksiniz.
Orijinal Adı Değiştir
Orijinal Adın Öncesine Ekle
Orijinal Adın Sonrasına Ekle
Çalışma Sayfalarını Yeniden Adlandır aracıyla, çalışma sayfalarınızı belirli bir önek veya sonek ekleyerek yeniden adlandırabilirsiniz.Toplu Sayfa Yeniden Adlandırma hakkında daha fazla bilgi almak için buraya tıklayın.
Hücre Değerlerine Göre Birden Fazla Sayfayı Yeniden Adlandırma
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