Kod birleştirme

[ORHAN ÖZTÜRK]

Merhaba,

Alt alta birden fazla satırı tek bir hücreye (sütüna) aralarında ";" olacak şekilde nasıl yazdırabilirim.

 

[NBATMAN]

Merhaba

Örneğin B1 hücresinde birleştirme yapacaksanız en basit hali aşağıdaki gibidir.

=A1 & ";"& A2 & ";" & A3

 

[ORHAN ÖZTÜRK]

Merhaba

Örneğin B1 hücresinde birleştirme yapacaksanız en basit hali aşağıdaki gibidir.

=A1 & ";"& A2 & ";" & A3

Öncelikle teşekkür ederim.
Evet bunu denedim ama veri eklemek istediğimde ve sürekli iletmiş olduğunuz formulü girmeden yani X satır olduğunda nasıl ilerleyebilirim.

 

[NBATMAN]

Birleştirilecek Satırlar hep ardışılmıdır. Yani
A1
A2
A3
A4
A5
.
.
.
.
A47 kadar örneğin art arda hiçbir satır atlamadan mı? birleştirilecek.

 

[pitchoute]

Makro ile yapmak mümkün, deneyip sonucu paylaşabilir misiniz;

Function BirlestirAralik(BirlesimAlani As Range) As String
    Dim Hucre As Range
    Dim Sonuc As String
    For Each Hucre In BirlesimAlani
        If Hucre.Value <> "" Then
            If Sonuc = "" Then
                Sonuc = Hucre.Value
            Else
                Sonuc = Sonuc & ";" & Hucre.Value
            End If
        End If
    Next Hucre
    BirlestirAralik = Sonuc
End Function

Makroyu ekledikten sonra, yazdırmak istediğiniz sütuna şu formülü girin;

=BirlestirAralik(A1:A10)

 

[ORHAN ÖZTÜRK]

Birleştirilecek Satırlar hep ardışılmıdır. Yani
A1
A2
A3
A4
A5
.
.
.
.
A47 kadar örneğin art arda hiçbir satır atlamadan mı? birleştirilecek.

Evet hiç bir satır atlamadan.