Verileri seçerek bir hücreye yazmak

[uyecik]

Arkadaşlar A sütununda 1den 100 e kadar sayılar var. Ben bunlardan 50den büyük 60 dan küçük olanları b1 hücresine aralarına virgül koyarak yazdırabilirmiyim?

 

[YUSUF44]

Aşağıdaki makroyu kullanabilirsiniz. Formüllü çözümü bilmiyorum maalesef:

Sub virgul()
son = Cells(Rows.Count, "A").End(3).Row
[B1] = ""
For i = 1 To son
    If Cells(i, "A") > 50 And Cells(i, "A") < 60 Then
        If [B1] = "" Then
            [B1] = Cells(i, "A")
        Else
            [B1] = [B1] & ", " & Cells(i, "A")
        End If
    End If
Next
End Sub