Ana içeriğe atla

Sayfaları Excel'deki hücre değerlerine (listeden) göre nasıl yeniden adlandırabilirim?

Excel'de tek bir çalışma sayfasını yeniden adlandırmak genellikle sayfanın sekmesine sağ tıklayarak ve içerik menüsünden "Yeniden Adlandır" seçeneğini seçerek yapılır. Ancak, birden çok çalışma sayfasını belirtilen hücrelerdeki değerleri kullanarak yeniden adlandırmanız gerekiyorsa veya bir çalışma sayfasını belirli bir hücrenin değerine göre dinamik olarak adlandırmak istiyorsanız kullanabileceğiniz birkaç yöntem vardır. Bu makale size bu teknikler konusunda rehberlik ederek süreci basit ve verimli hale getirecektir.


VBA ile bir sayfayı hücre değerinden dinamik olarak yeniden adlandırın

Excel'de VBA ile bir çalışma sayfasını belirli bir hücrenin değerinden dinamik olarak yeniden adlandırabiliriz ve şunları yapabilirsiniz:

1 Adım: Hücre değerine göre dinamik olarak adlandıracağınız çalışma sayfasının sayfa adına sağ tıklayın ve Kodu Görüntüle sağ tıklama menüsünden.

2 Adım: Açılışta Uygulamalar için Microsoft Visual Basic penceresinde aşağıdaki VBA kodunu modül penceresine yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

Bahşiş: Bu VBA, çalışma sayfasını A1 hücresindeki değere göre dinamik olarak yeniden adlandırır; ihtiyaçlarınıza göre "A1" i diğer hücrelerle değiştirebilirsiniz.

3 Adım: VBA kodunu kaydedin ve kapatın Uygulama için Microsoft Visual Basic pencere.

Ardından, sayfa adının belirtilen hücre değerine göre dinamik olarak değiştirildiğini göreceksiniz.

Notlar:

  • Belirtilen hücre boşsa çalışma sayfası yeniden adlandırılmaz.
  • Belirtilen hücredeki değeri her değiştirdiğinizde çalışma sayfası yeniden adlandırılacaktır.
  • Belirtilen hücreye * gibi özel karakterler yazarsanız bir hata uyarısı açılır.

İlgili sayfalardaki hücre değerlerine göre birden çok sayfayı yeniden adlandırın

Yukarıda açıklanan yöntem, bir kerede bir sayfayı yeniden adlandırmaya izin verir. Ancak, kullanarak Birden Çok Çalışma Sayfasını Yeniden Adlandırma özelliği Kutools for Excelile, ilgili sayfaların her birinde belirtilen hücrenin değerine göre tüm sayfaları veya birden çok sayfayı hızlı bir şekilde yeniden adlandırabilirsiniz. Örneğin, her sayfayı, söz konusu sayfanın A1 hücresinde bulunan değerle eşleşecek şekilde yeniden adlandırabilirsiniz.

Kutools for Excel - Excel için 300'den fazla temel araçla paketlenmiştir. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi İndirin!

  1. Tıkla Kutools Artı > Çalışma Sayfası > Çalışma Sayfalarını Yeniden Adlandırın. Ekran görüntüsüne bakın:
  2. Açılışta Birden Çok Çalışma Sayfasını Yeniden Adlandırma iletişim kutusu, lütfen aşağıdaki işlemleri yapın:
    1. içinde Çalışma Sayfaları listesinde, yeniden adlandıracağınız çalışma sayfalarını kontrol edin.
    2. içinde Yeniden Adlandırma Seçenekleri bölümüne bakın, Orijinal sayfa adını değiştirin seçeneği.
    3. içinde Yeni Çalışma Sayfası Adı bölümü, lütfen kontrol edin Çalışma sayfalarını belirli bir hücreyle yeniden adlandırın seçeneğini seçin ve içeriğiyle ilgili sayfayı yeniden adlandıracağınız hücreyi belirtin.
    4. Tıkla Ok düğmesine basın.

Ve artık işaretlenen tüm sayfalar, her sayfanın belirtilen hücresine göre yeniden adlandırılıyor. Ekran görüntüsüne bakın:

Not: Erişmek istiyorum Birden Çok Çalışma Sayfasını Yeniden Adlandırma özellik? İndirmek Kutools for Excel Şimdi! Bunun ötesinde Kutools, sayısız 300'den fazla başka özelliğe sahiptir ve 30 günlük ücretsiz deneme olanağı sunar. Beklemeyin, bugün deneyin!


Belirtilen listeden birden fazla sayfayı yeniden adlandırın

Kutools for Excel's Birden Çok Çalışma Sayfasını Yeniden Adlandırma Bu özellik aynı zamanda belirli bir listedeki hücre değerlerine göre birden fazla sayfayı yeniden adlandırmayı da destekler.

Kutools for Excel - Excel için 300'den fazla temel araçla paketlenmiştir. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Şimdi İndirin!

  1. Tıkla Kutools Artı > Çalışma Sayfası > Çalışma Sayfalarını Yeniden Adlandırın.
  2. Açılışta Birden Çok Çalışma Sayfasını Yeniden Adlandırma iletişim kutusunda aşağıdaki gibi yapılandırın:
    1. içinde Çalışma Sayfaları listesinden yeniden adlandıracağınız çalışma sayfalarını seçin.
    2. içinde Yeniden Adlandırma Seçenekleri bölümüne bakın, Orijinal sayfa adını değiştirin seçeneği.
    3. içinde Yeni Çalışma Sayfası Adı bölümüne bakın, Belirli aralıktan seçeneğini tıklayın ve  ikinciyi açmak için düğme Birden Çok Çalışma Sayfasını Yeniden Adlandırma iletişim kutusu (sağdaki ekran görüntüsüne bakın). Ardından değerlerine göre yeniden adlandıracağınız hücrelerin listesini seçin ve OK düğmesine basın.
    4. Tıkla Ok yeniden adlandırmayı uygulamak için düğmesine basın.

Daha sonra işaretlenen tüm çalışma sayfalarının adlarının, belirtilen listedeki hücre değerleriyle değiştirildiğini göreceksiniz. Aşağıdaki ekran görüntüsüne bakın:

Not: Erişmek istiyorum Birden Çok Çalışma Sayfasını Yeniden Adlandırma özellik? İndirmek Kutools for Excel Şimdi! Bunun ötesinde Kutools, sayısız 300'den fazla başka özelliğe sahiptir ve 30 günlük ücretsiz deneme olanağı sunar. Beklemeyin, bugün deneyin!


Demo: Excel'deki hücre değerlerine (listeden) dayalı ad sayfaları


Kutools for Excel: 300'den fazla kullanışlı araç parmaklarınızın ucunda! Hiçbir özellik sınırlaması olmaksızın 30 günlük ücretsiz deneme sürenizi bugün başlatın. Hemen İndir!

İlgili yazılar:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there, one question if i want to use the value of 2 cells (A1 & B1) what i have to change?
This comment was minimized by the moderator on the site
Hi there,

Please try the code below:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sheetName As String
    
    If Not Intersect(Target, Me.Range("A1:B1")) Is Nothing Then
        sheetName = VBA.Left(Me.Range("A1").Value & Me.Range("B1").Value, 31)
        
        If sheetName <> "" Then
            Application.ActiveSheet.Name = sheetName
        End If
    End If
End Sub

Once you done pasting the code to the View Code window, please select the cell A1 or B1 to make the code run.

Amanda
This comment was minimized by the moderator on the site
Здравствуйте! Подскажите, пожалуйста, а как в Excel создать левую панель, в которой разместить названия листов? То есть перенести ярлыки листов влево (сейчас то они снизу)
This comment was minimized by the moderator on the site
This comment was minimized by the moderator on the site
I used the dynamic sheet name coding and functionally it works well, but I get the Runtime Error 1004 whenever I click inside a cell. Anyone have any info on how to correct this?


Thanks
This comment was minimized by the moderator on the site
This is awesome, thank you so much....
This comment was minimized by the moderator on the site
so I am trying to do this, but nothing is happening - my sheet names aren't changing, everything is the exact same. Do you know what I am doing wrong??
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations