Aynı Verileri Yan Yana Getirme

Bu dosya, aynı sayfadaki iki ayrı veri bloğunu ortak bir koda göre eşleştirip tek satırda yan yana getiren bir VBA makrosu örneğidir. Sonuç ayrı bir sayfaya yazılır, kaynak veriler değişmez. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: İşleme alınacak veriler A1:I24 aralığındadır. A sütununda parça kodları (ör. 9541225000), C sütununda HN000-0001 biçiminde stok kodları, E sütununda fiyatlar, H sütununda parça açıklamaları (ör. YAĞ POMPA KEÇESİ GENEL BENZİN) yer alır. Eşleştirilecek ikinci blok G:I sütunlarından okunur.
• Sayfa2: Sonuçların yazıldığı sayfadır. Makro çalıştığında A2:I24 aralığı bu sayfada oluşur.

Makrolar​

Dosyada Module1 içinde EXD adlı tek bir makro bulunur. Makro şu adımları izler:

1. Sayfa1'deki A sütununun son dolu satırını belirler.
2. Sayfa2'deki A2:I650000 aralığının içeriğini temizler; önceki sonuçlar silinir.
3. Sayfa1'de 2. satırdan son satıra kadar her satırın A:E bölümünü Sayfa2'ye kopyalar.
4. Aynı satırdaki A değerini Sayfa1'deki tüm satırların G sütunuyla karşılaştırır. Eşleşen satırın G:I bölümünü, Sayfa2'de ilgili satırın G:I hücrelerine yazar.
5. İşlem bitince "İşlem Tamam..." mesajını gösterir ve Sayfa2'yi açar.

Makro yalnızca Sayfa2'yi temizler ve yazar; dosya silme ya da dışarıya bağlantı gibi bir işlem içermez. Dosyada formül bulunmaz, tüm eşleştirme makro ile yapılır.

Nasıl kullanılır​

1. Dosyayı açın ve makroların etkinleştirilmesine izin verin.
2. Sayfa1'de A:E bloğuna ana verileri, G:I bloğuna A sütunundaki kodlarla eşleşecek verileri girin.
3. Alt+F8 tuşlarıyla EXD makrosunu seçip çalıştırın.
4. Sayfa2'de eşleştirilmiş satırları inceleyin.

Sayfa2'de önceden bulunan veriler her çalıştırmada silindiği için, saklanması gereken sonuçlar başka bir yere kopyalanmalıdır. Aynı işlemin formülle yapılan örneği için formüllü yan yana getirme dosyasına bakılabilir.