Dolu Sütun Başlıklarını Listeleme

[harziyan]

Merhabalar;
Aşağıdaki tabloda "A" sütununa, her satırdaki "1" yazan sütun başlıklarını makro ile nasıl yazdırabilirim?

"A2" Hücresi = B, C
"A3" Hücresi = B, H
"A4" Hücresi = B, N
"A5" Hücresi = A
*
*
*
B veya C sütunundaki son dolu satıra kadar...

 

[Korhan Ayhan]

Deneyiniz.

Sub DOLU_SÜTUNLAR()
    Dim X As Long, Y As Byte, Son As Long
    
    Son = Cells.Find("*", Cells(1, 1), , , xlByRows, xlPrevious).Row
    Range("A2:A" & Rows.Count).ClearContents
    
    For X = 2 To Son
        For Y = 2 To 15
            If Cells(X, Y) = 1 Then
                Cells(X, 1) = IIf(Cells(X, 1) = "", Cells(1, Y), Cells(X, 1) & ", " & Cells(1, Y))
            End If
        Next
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub