örnek dosya eklerseniz daha net yanıt alabilirsiniz.
uzun yol dediğiniz belkide kısa yoldur. sorunuzda biraz ipucu veriniz.
aşağıdaki ktf yi deneyiniz
Kod:
'kodları yazan: Yurttas
Public Function BİRLEŞTİRA(ALAN As Range, Optional sALAN As String = " ") As String
Dim sonuc As String, c As Range
Application.Volatile
On Error GoTo Hata
For Each c In ALAN
If c <> Empty Then sonuc = sonuc & c.Value & sALAN
Next c
sonuc = Left(sonuc, Len(sonuc) - Len(sALAN))
BİRLEŞTİRA = sonuc
On Error GoTo 0
Exit Function
Hata:
BİRLEŞTİRA = "#Error#"
End Function
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.