Soru Sütunları Toplu Birleştirme

[nanotech3485]

Arkadaşlar merhaba; Aşağıdaki ekran görüntüsünde F Sütununda bir mahalle listesi var. Yaptırmak istediğim işlem şu şekilde. A, B ve C sütunlarını F sütununda yer alan mahalle adı ile birleştirip D sütununa alt alta yazdırmak istiyorum. 1. Mahalle adı eklenip listelendiğinde 2. mahalleye geçip tekrar alt alta sıralamak istiyorum. Kaç adet mahalle adı varsa hepsini otomatik olarak D sütununda alt alta birleştirmek istiyorum. Yardımcı olabilirseniz çok sevinirim.

Örnek dosya linki: https://s7.dosya.tc/server22/xdyf70/Toplu-Birlestirme.xlsx.html

Yani sonuç şu şekilde olacak;

Auto in Sarımazı, Belen, Hatay
Barber Shop in Sarımazı, Belen, Hatay
...
...
...
...
...
Auto in Fatih, Belen, Hatay
Barber Shop in Fatih, Belen, Hatay
...
...
...
...
...
Auto in Halilbey, Belen, Hatay
Barber Shop in Halilbey, Belen, Hatay
...
...
...
...
...

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub Birlestir()
Sat = 2
ssA = Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row
ssF = Sheets("Sayfa1").Cells(Rows.Count, 6).End(3).Row
    For i = 2 To ssF
        For j = 2 To ssA
            Cells(Sat, 4) = Cells(j, 1) & " " & Cells(j, 2) & Cells(i, 6) & " " & Cells(j, 3)
            Sat = Sat + 1
        Next j
    Next i
End Sub

 

[nanotech3485]

Hocam kod çalıştı ve uzun bir süre kullanacağım. Ellerinize sağlık çok sevindim.