Excel Alt Satıra Geçme Kodu

Bu dosya, aynı satırdaki birden fazla sütunun verisini VBA makrosuyla tek bir hücrede alt alta (satır sonu karakteriyle) yazdırmayı gösterir. Aynı işlemin formülle yapılan yöntemi için Excel Alt Satıra Geçme içeriğine bakılabilir.

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

Dosyanın içeriği​

• Sheet1: B2:E5 aralığında örnek veri bulunur. B sütununda "Adı Soyadı", D sütununda "İlçe/İl" başlığı yer alır. Üç örnek kayıt (3. - 5. satırlar) girilmiştir; sonuçlar E sütununa yazılır.

Makrolar​

• alt_satir (Module1): B3 hücresinden B sütunundaki son dolu hücreye kadar her satırı sırayla dolaşır. Her satır için B, C ve D hücrelerinin değerini aralarına Chr(10) (satır sonu) koyarak birleştirir ve sonucu aynı satırın E sütununa yazar. Kodda dosya silme veya dışarıya bağlantı gibi işlem yoktur.

Kodda kullanılan başlıca yapılar şunlardır:

• For Each ... Next: B sütunundaki hücreleri tek tek dolaşır.
• Offset: Aynı satırdaki sağ taraftaki hücrelere ulaşır.
• Rows.Count ve End(xlUp).Row: Son dolu satırı bulur.
• Chr(10): Hücre içinde alt satıra geçişi sağlar.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. B, C ve D sütunlarına birleştirilecek verileri girin; veriler 3. satırdan başlar.
3. ALT+F8 tuşlarıyla makro listesini açın, alt_satir makrosunu seçip Çalıştır düğmesine basın.
4. E sütunundaki hücrelerde verilerin alt alta yazıldığını kontrol edin. Satırların alt alta görünmesi için hücrede Metni Kaydır seçeneğinin açık olması gerekir.