İki Sütun Verilerini Koşula Göre Birleştirme

[Feylosof]

iyi akşamlar;
A ve D sütunlarında bulunan verileri aralarına "-" işareti koyarak birleştirmek istiyorum.
A sütunu isimlerden oluşuyor ve ve belli bir disipline bağlı olmadan hücreler birleşiktir. Bu nedenle VBA veya Fonksiyon ile BİRLEŞTİR işlemini yapmak çok zamanımı alıyor. Bunu VBA tek hareketle tamamlamak istiyorum. Detaylı ve uygulamalı açıklama dosyanın içinde mevcuttur.
Excel dostlarından yardım istirham ediyorum.

 

[ÖmerFaruk]

B3 e kopyalayıp aşağı doğru çoğaltabilirsiniz
=DOLAYLI("A" & MAK(($A$3:A3<>"")*SATIR($A$3:A3))) & " - " &D3

 

[Feylosof]

@ÖmerFaruk Bey Çok teşekkür ederim her zaman olduğu gibi hızır gibi yetişiyorsunuz. Bunu hemen deneyeceğim. Bu işlem için VBA olası değil mi acaba

 

[Feylosof]

@ÖmerFaruk Bey birinci satırlar birleşti ikinci satırlarda hata verdi

 

[ÖmerFaruk]

Sub Birleşim()
    Veri = Range("A3:D" & Range("D" & Rows.Count).End(3).Row).Value
    ReDim Liste(1 To UBound(Veri), 1 To 1)
    For i = 1 To UBound(Veri)
        If Veri(i, 1) <> "" Then isim = Veri(i, 1)
        Liste(i, 1) = isim & " - " & Veri(i, 4)
    Next i
    Range("B3").Resize(UBound(Veri), 1) = Liste
End Sub

 

[ÖmerFaruk]

Formülü deneyerek gönderdim. Hata yoktu.
Verdiğim formülü aynen girdiğinize eminseniz, bir de Dizi formülü olarak girin.

 

[Feylosof]

@ÖmerFaruk Bey çok teşekkür ederim. Siz ne dersiniz bilmem ama ben VBA ile yazdığınız kodu tercih edeceğim. Bir kez daha sonsuz teşekkürler.

 

[Feylosof]

Bu arada @ÖmerFaruk Hocam fonksiyon olarak yazdığınız çözümü DİZİ FORMUL olarak girince o da çalıştı.