Adım adım: Makro kullanarak Excel sayfasını hücre içeriğiyle yeniden adlandırma

Bu makale Microsoft MVP'de Raddini Rahayu tarafından yazılmıştır.

Durumda

Haftalık satış etkinliği raporları aşağıdadır. Örneğin, bu durumda 15 kişi vardır. Yönetici raporları olan Nancy, her satış verilerini özetleyerek her sayfada tüm satışların ayrıldığı tek bir dosyaya atanır. Verileri kolayca düzenlemek için Nancy'nin verdiği her sayfa, bu sayfadaki satış adıyla eşleşir. İlk başta, Nancy bu konuda rahat hissediyor, ancak daha fazla veri ve hızlı işleme talep ettikçe, Nancy çok bunalmıştı. Bunun üstesinden gelmek için, Nancy el ile yeniden adlandırmadan ad sayfalarının her sayfadaki satış adına göre otomatik olarak değiştirilmesini istiyor.

Çözümleri

Nancy'nin sorununun üstesinden gelmek için en iyi çözümler makro kullanmaktır. Bu makro, sayfa sayısından bağımsız olarak bu dosyadaki her sayfa için tasarlanmıştır. Her sayfanın adı, her sayfada aynı konumda belirlenen satış adına göre değişir.

Nasıl yürütülür?

İlk adım

• Rapor biçimleri tasarlanır ve satış adının yerleştirileceği hücre konumunu belirtir. Bu durumda, konum J2 hücresindedir. Bu rapor biçimi her sayfada aynı olmalıdır.

• Sayfa adlarını varsayılan ad (Sayfa1, Sayfa2, Sayfa3 vb.) üzerinde tutun.

  

Son adım

Makro kodlama adımı

Satış adının yerleştirileceği hücre konumunu belirledikten sonra, artık makro kodlama adlı sonraki adıma devam edebiliriz.

1. Geliştirici sekmesinde, Kod kategorisinde Visual Basic'i seçin veya klavyede Alt+F11 tuş birleşimine basın; böylece Visual Basic penceresi görüntülenir.

   

2. Proje görev bölmesinde (Çalışma Kitabı Adı) öğesine tıklayın, sonra Ekle menüsünde Modül'e tıklayın ve aşağıdaki betiği yazın:

   Sub RenameSheet()
   
   Dim rs As Worksheet
   
   For Each rs In Sheets
   rs.Name = rs.Range("B5")
   Next rs
   
   End Sub
   

   

3. Hata ayıklama yoksa, klavyede F5 tuşuna basın. Visual Basic penceresini kapatın ve Excel'e dönün. Hata ayıklaması varsa betiğinizi yeniden denetleyin.

4. Excel'e dönün ve kodlar doğruysa ne olduğuna bakın, artık her sayfanın adı her sayfada var olan satış adına uygun olarak yeniden adlandırılır.

   

Hepsi bu kadar. Umarım yararlı olur.

Üçüncü taraf bilgileri hakkında yasal uyarı

Bu makalede adı geçen üçüncü taraf ürünleri Microsoft'tan bağımsız şirketler tarafından üretilmektedir. Microsoft, bu ürünlerin performansı veya güvenilirliği ile ilgili örtük veya başka türlü hiçbir garanti vermez.