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

Feylosof

Altın Üye
Katılım
24 Temmuz 2019
Mesajlar
427
Excel Vers. ve Dili
EXCEL 2010 TÜRKÇE
Altın Üyelik Bitiş Tarihi
19-12-2025
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.
 

Ekli dosyalar

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,784
Excel Vers. ve Dili
Microsoft 365 Tr-64
B3 e kopyalayıp aşağı doğru çoğaltabilirsiniz
=DOLAYLI("A" & MAK(($A$3:A3<>"")*SATIR($A$3:A3))) & " - " &D3
 

Feylosof

Altın Üye
Katılım
24 Temmuz 2019
Mesajlar
427
Excel Vers. ve Dili
EXCEL 2010 TÜRKÇE
Altın Üyelik Bitiş Tarihi
19-12-2025
@Ö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
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,784
Excel Vers. ve Dili
Microsoft 365 Tr-64
C++:
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,784
Excel Vers. ve Dili
Microsoft 365 Tr-64
Formülü deneyerek gönderdim. Hata yoktu.
Verdiğim formülü aynen girdiğinize eminseniz, bir de Dizi formülü olarak girin.
 

Feylosof

Altın Üye
Katılım
24 Temmuz 2019
Mesajlar
427
Excel Vers. ve Dili
EXCEL 2010 TÜRKÇE
Altın Üyelik Bitiş Tarihi
19-12-2025
@Ö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

Altın Üye
Katılım
24 Temmuz 2019
Mesajlar
427
Excel Vers. ve Dili
EXCEL 2010 TÜRKÇE
Altın Üyelik Bitiş Tarihi
19-12-2025
Bu arada @ÖmerFaruk Hocam fonksiyon olarak yazdığınız çözümü DİZİ FORMUL olarak girince o da çalıştı.
 
Üst