Birleştir

[msanli]

Merhaba,

Sorum şu, belli bir değere bağlı olarak hüreleri birleştirmek.

Dosya ektedir.

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız.

Option Compare Text
 
Sub Birlestir()
 
    Dim i As Long
 
    With Range("C1")
        .ClearContents
        For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            If Cells(i, "A") = "x" Then
                .Value = .Value & "," & Cells(i, "B")
            End If
        Next i
        .Value = Application.Substitute(.Value, ",", "", 1)
    End With
 
End Sub

.

 

[msanli]

Makro olmadan olmazmı???

 

[Ömer]

Olur fakat çoklu hücrelerde tek tek hücreyi belirlemek gerekir, buda veri aralığınıza göre formülün uzamasına ve sınır aşamasına kadar gelerek yazamama durumu oluşur. Ayrıcada şartlı birleştirme olduğunu düşünürsek yerleşik fonksiyonlar ile çözüm hiç tavsiye edilmeyecek duruma gelir.

Alternatif olarak KTF ( Kullanıcı Tanımlı Fonksiyon ) yazılabilir fakat bu da genelinde makrolu bir çözümdür.

.

 

[msanli]

Benin birleştirmek istediğim satır sayısı maksimum 7 veya 8. tanımlama yapmak sorun değil. Eğer siz 8 satıra göre bir formül yazabilirseniz sevinirim. teşekkürler

 

[Ömer]

=EĞER(A1="x";B1&",";"")&EĞER(A2="x";B2&",";"")&EĞER(A3="x";B3&",";"")&EĞER(A4="x";B4&",";"")&EĞER(A5="x";B5&",";"")&EĞER(A6="x";B6&",";"")&EĞER(A7="x";B7&",";"")&EĞER(A8="x";B8&",";"")

Bu şekilde olabilir.

.

 

[msanli]

Evet, gayet güzel. ben eğer ve birleştir formülünü aynı anda kullanarak yapmayı denemiştim ama üçüncüden sonra birleştirme işlemini yapmamıştı. yardımlarınız için teşekkürler.