Sayfalar Arası Otomatik Veri Aktarma

Bu dosya, bir sayfadaki X sütununa girilen değere göre satırların başka bir sayfaya otomatik aktarılmasını ve gerektiğinde oradan silinmesini gösteren bir örnektir. İşlem tamamen Worksheet_Change olayı ile çalışır, hücrelerde formül yoktur.

Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Tüm YDK Listesi: Ana sayfadır, A1:X8 aralığını kapsar. 2. ve 3. satırlarda başlıklar (S. No, Yeri vb.), 4. satırdan itibaren 1'den 5'e kadar numaralanmış örnek kayıtlar bulunur. Kayıtlar A'dan W'ye uzanır, X sütunu aktarım kararının girildiği sütundur. Sayfada 3 veri doğrulama tanımı vardır.
• Kurul Gündemi: Aktarılan satırların toplandığı hedef sayfadır (A1:W5). Örnek satır içermez, sayfada 3 veri doğrulama tanımı vardır.

Makrolar​

Makro, Tüm YDK Listesi sayfasının kod bölümünde yer alan Worksheet_Change olayıdır. Sayfada herhangi bir hücre değiştiğinde otomatik çalışır, ayrıca çalıştırmanız gerekmez. İki iş yapar:

1. 4. satırdan X sütunundaki son dolu satıra kadar tüm satırları tarar. X hücresinde "Hayır" yazan satırın A:W aralığını kopyalar ve Kurul Gündemi sayfasındaki A4 hücresinin altına yapıştırır.
2. Değişen hücre X sütunundaysa ve değeri "evet" ise, o satırın A sütunundaki değeri Kurul Gündemi sayfasının A4:A500 aralığında arar. Bulursa o satırı hedef sayfadan siler.

Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem yoktur. Yalnızca Kurul Gündemi sayfasındaki satırlar silinir.

Dikkat edilecek noktalar:

• Tarama döngüsü her değişiklikte baştan çalıştığı için "Hayır" olan satırlar her seferinde yeniden kopyalanabilir. Gerçek kullanımda tekrar kontrolü eklemeniz iyi olur.
• "Hayır" kontrolü döngüde, "evet" kontrolü ise değişen hücre üzerinde yapılır.
• Aranan numara A4:A500 aralığıyla sınırlıdır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Tüm YDK Listesi sayfasında aktarmak istediğiniz satırın X sütununa "Hayır" yazın. Satır Kurul Gündemi sayfasına kopyalanır.
3. Aktarılan kaydı hedef sayfadan kaldırmak için aynı satırın X sütununa "evet" yazın.
4. Kendi çalışmanıza uyarlamak için Alt+F11 ile Sayfa1 modülündeki kodu inceleyin ve sütun ile satır numaralarını değiştirin.