Bu dosya, aynı başlık yapısına sahip birden fazla sayfadaki verileri makro ile tek bir sayfada alt alta toplamak için hazırlanmış bir VBA örneğidir. Sonuç, çalışma kitabının sonuna eklenen "Tümü" adlı yeni sayfada listelenir.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- 1: A1 hücresinde "İsim" başlığı, altında Ahmet ve Mehmet kayıtları.
- 2: A1 hücresinde "İsim" başlığı, altında Ali ve Veli kayıtları.
- 3: A1 hücresinde "İsim" başlığı, altında Erkan ve Gökhan kayıtları.
Makrolar
- SayfalariBirlestir (Module1): Önce çalışma kitabında "Tümü" adlı bir sayfa olup olmadığını denetler. Varsa uyarı mesajı gösterir ve işlemi durdurur; bu durumda eski sayfanın silinmesi veya adının değiştirilmesi gerekir.
- Sayfa yoksa kitabın sonuna "Tümü" sayfasını ekler ve ilk sayfanın 1. satırındaki başlıkları buraya kopyalayıp kalın yapar. Başlık sayısı, ilk sayfanın 1. satırındaki son dolu sütuna göre belirlenir.
- Ardından "Tümü" dışındaki her sayfanın 2. satırından A sütunundaki son dolu satıra kadar olan verileri, başlık sütunu sayısı kadar sütunla birlikte "Tümü" sayfasında ilk boş satırdan başlayarak alt alta yazar.
- İşlem sonunda sütun genişlikleri otomatik ayarlanır. İşlem sırasında ekran güncellemesi kapatılır.
- Kodda dosya silme veya dış bağlantı gibi zararlı bir işlem yoktur.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Birleştirilecek sayfaların 1. satırında aynı başlıkların, altında verilerin bulunduğundan emin olun. Kendi verileriniz için örnek sayfalardaki verileri değiştirebilir veya yeni sayfalar ekleyebilirsiniz.
- Alt+F8 tuşlarıyla makro listesini açın, SayfalariBirlestir makrosunu seçip çalıştırın.
- Veriler "Tümü" sayfasında listelenir. Makroyu yeniden çalıştırmadan önce bu sayfayı silin veya adını değiştirin.
