256'dan fazla hücre birleştirme

[mrkync]

Arkadaşlar istediğim şey biraz karışık ama örnek dosyayı açarsanız daha rahat anlarsınız istediğim şeyi.

İstediğim makro şöyle:
C2'den c354'de kadar bakacak ve değeri 0'dan büyük olan hücreler için b sütununda yazan firmaları birleştirip c355'e yazacak. Örneğin; göndermiş olduğum örnek dosyada c sütununda 0'dan büyük olan c2 ve c4 hücresi var ve karşılarında sırasıyla SELFARM- ve BİOVET- var. C355 ise SELFARM-BİOVET- yazmasını istiyorum. ve bu durum fn sütununa kadar devam edecek. c355, d355 diye her sütun ayrı ayrı toplanacak.

 

[mrkync]

Arkadaşlar yardımlarınızı bekliyorum...

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub AKTAR()
    For X = 3 To 170
        For Y = 2 To 354
            If Cells(Y, X) > 0 Then
                If Cells(356, X) = "" Then
                    Cells(356, X) = Cells(Y, 2)
                Else
                    Cells(356, X) = Cells(356, X) & Cells(Y, 2)
                End If
            End If
        Next
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub