Metin birleştirme

[sinekvalesi]

Sayın arkadaşlar,

Sorunumu tam olarak ifade edemeyeceğim için ekteki sayfaya yazmaya çalıştım. Müsayit olduğunuzda bana yardımcı olursanız çok sevinirim.

İlginiz için şimdiden teşekkür eder, iyi çalışmalar dilerim.

Saygılarımla.

 

[uzmanamele]

merhaba

2 adet KTF, birini kullanabilirsiniz.

'kodları yazan: Korhan Ayhan
Private Function ÇBİRLEŞTİR(ARALIK As Range, Optional AYRAÇ As String) As String
    Dim HÜCRE As Range
    Dim SONUÇ As String
    Application.Volatile
    For Each HÜCRE In ARALIK
        If HÜCRE.Value <> Empty Then
            If SONUÇ = Empty Then
            SONUÇ = HÜCRE.Text & AYRAÇ
            Else
            SONUÇ = SONUÇ & HÜCRE.Text & AYRAÇ
            End If
        End If
    Next
    If AYRAÇ <> Empty Then
    ÇBİRLEŞTİR = IIf(InStr(1, SONUÇ, AYRAÇ) > 0, Mid(SONUÇ, 1, Len(SONUÇ) - 1), SONUÇ)
    Else
    ÇBİRLEŞTİR = SONUÇ
    End If
End Function

'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
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

 

[sinekvalesi]

Sayın uzmanamele,

Cevabınız için teşekkür ederim ama "0001" sayfasında "U1" satırında proje numarası değiştiğinde ürün adı değişmiyor onu nasıl halledebilirim.

Saygılar.

 

[uzmanamele]

merhaba

KTF'yi bu şekilde deneyiniz.

=ÇBİRLEŞTİR(DOLAYLI("TAKVİM!A"&7+U1&":E"&7+U1))

=BİRLEŞTİRA(DOLAYLI("TAKVİM!A"&7+U1&":E"&7+U1))

 

[sinekvalesi]

İlginiz için çok teşekkür ederim.

İyi geceler.