Ana içeriğe atla

 Excel'deki hücre değerine göre sayfa nasıl kopyalanır ve yeniden adlandırılır?

Normalde, uygulayabilirsiniz Taşı veya Kopyala bir çalışma sayfasını kopyalama özelliği ve ardından ihtiyaç duyduğunuzda el ile kopya için yeni bir ad yazın. Ancak, çalışma sayfasını kopyaladıktan sonra sayfayı bir hücre değerine göre yeniden adlandırmayı hiç denediniz mi? Bu makalede, bir kopya oluşturduğunuzda çalışma sayfasını hücre değerine göre otomatik olarak nasıl yeniden adlandıracağımızdan bahsedeceğim.

Bir çalışma sayfasını kopyalayın ve VBA kodu ile hücre değerine göre yeniden adlandırın

Kutools for Excel ile bir çalışma sayfasını birden çok kez kopyalayın ve hücre değerlerine göre yeniden adlandırın


Bir çalışma sayfasını kopyalayın ve VBA kodu ile hücre değerine göre yeniden adlandırın

Aşağıdaki VBA kodu, bir çalışma sayfasını kopyalamanıza ve belirli bir hücre değeriyle otomatik olarak yeniden adlandırmanıza yardımcı olabilir, lütfen şu şekilde yapın:

1. Kopyalamak istediğiniz çalışma sayfasını etkinleştirin ve ardından ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: Bir çalışma sayfasını kopyalayın ve bir hücre değeriyle yeniden adlandırın:

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. Ve sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve mevcut çalışma sayfanız tüm çalışma sayfalarından sonra mevcut çalışma kitabına kopyalandı ve belirttiğiniz hücre değeriyle yeniden adlandırıldı, ekran görüntüsüne bakın:

1 değerine göre doc kopya raname

not: Yukarıdaki kodda, hücre referansı A1 kopyalanan yeni sayfa için yeniden adlandırmak istediğiniz hücre değeridir, ihtiyacınıza göre değiştirebilirsiniz.


Kutools for Excel ile bir çalışma sayfasını birden çok kez kopyalayın ve hücre değerlerine göre yeniden adlandırın

Yukarıdaki kod, sayfayı birden çok kez kopyalamanız ve bir hücre değerleri listesine göre yeniden adlandırmanız gerekirse, yalnızca bir hücre değeriyle yeniden adlandırabilir. Kutools for Excel'S Sıra Çalışma Sayfası Oluştur bu görevi olabildiğince çabuk bitirmenize yardımcı olabilir.

Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. 

Kurduktan sonra Kutools for Excellütfen aşağıdaki işlemleri yapın:

1. tıklayın Kutools Artı > Çalışma Sayfası > Sıra Çalışma Sayfaları Oluşturun, ekran görüntüsüne bakın:

3 değerine göre doc kopya raname

2. In Sıra Çalışma Sayfası Oluştur iletişim kutusunda aşağıdaki işlemleri yapın:

(1.) Kopyalamak istediğiniz çalışma sayfası adını seçin. Temel Çalışma Sayfası açılır liste;

(2.) Aşağıdaki aralıktaki Verileri seçin. Şuna göre sayfa adları bölümünü tıklayın ve tıklayın. 5 değerine göre doc kopya raname Kopyalanan çalışma sayfalarını temel alarak yeniden adlandırmak istediğiniz hücre değerlerini seçmek için düğmesine basın.

Kutools for Excel'i Şimdi İndirin!

3. Sonra tıklayın Ok düğmesi ve belirli çalışma sayfası birden çok kez kopyalandı ve yeni bir çalışma kitabında seçtiğiniz hücre değerleriyle yeniden adlandırıldı, ekran görüntüsüne bakın:

4 değerine göre doc kopya raname

Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!


Demo: Kutools for Excel ile bir çalışma sayfasını birden çok kez kopyalayın ve hücre değerlerine göre yeniden adlandırın

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!

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 (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Your code is what I have been looking for, however the cell contents that I wish to use to rename the sheet is a date. For example, on the first sheet, cell A2 displays a date as Monday 3 April 2017. What I would like to happen is when the next sheet is created by the macro would be to take the date from A2, add 7 to display, for example, "Monday 10 July, 2017" but rename the new sheet in the dd-mm-yy format, so "10-07-17". Is this possible? By the way, I have Kutools for Excel, but this spreasheet will be a blood pressure record for my dad who doesnt have Kutools. Thanks in advance!
This comment was minimized by the moderator on the site
The code below works great. My question is, is it possible to automatically open the new worksheet (based on A1) and delete the content from the previous sheet as it is being used as the template. Sub Copyrenameworksheet() 'Updateby Extendoffice 20160704 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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations