virgül koyarak birleştirme

[himutku]

birleştir butonuna makro kodu atarken,
a)ilgili sayfada b1 hücresi için aralarında virgül karakteri olacak şekilde a sütunundaki sayıları yazdırmam gerek (örnek: 12,26,32,30)
b)birleştirme işlemi bittikten sonra b1 hücresini otomatik olarak seçili hale getirip arkaplan kırmızıya boyanacak

 

[Ömer]

Merhaba,

Deneyiniz.

Sub test()

    Dim i As Long
    
    Range("B1").Clear
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Range("B1") = Range("B1") & "," & Cells(i, "A")
    Next i
    
    With Range("B1")
        .Value = WorksheetFunction.Substitute(.Value, ",", "", 1)
        .Select
        .Interior.ColorIndex = 3
    End With
    
End Sub

 

[himutku]

Merhaba,

Deneyiniz.

Sub test()

    Dim i As Long
   
    Range("B1").Clear
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Range("B1") = Range("B1") & "," & Cells(i, "A")
    Next i
   
    With Range("B1")
        .Value = WorksheetFunction.Substitute(.Value, ",", "", 1)
        .Select
        .Interior.ColorIndex = 3
    End With
   
End Sub

çok işime yaradı teşekkürler