sütundaki değerleri bir hücrede bitişik halde yazmak

[muratfix]

merhaba arkadaşlar, örnek dosyada da yer aldığı gibi A1 sütunundaki bütün değerlerin C2 hücresin de aralarında virgül veya tire konulmuş şekilde nasıl gösterebiliriz.

 

[Ömer]

Merhaba,

Eğer verileriniz az ise,

=A1&","&A2&","&A3&","&A4

yeterli olur.

Fakat veriler oldukça fazla ise hücreleri tek tek formüle tanımlamak zor ( uzun süre ) olabilir. Makro kullanmanız gerekir.

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

Sub Birlestir()
 
    Dim i As Long
 
    Range("C2") = ""
 
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Range("C2") = Range("C2") & "," & Cells(i, "A")
    Next i
 
    Range("C2") = Application.Substitute(Range("C2"), ",", "", 1)
 
End Sub

.

 

[muratfix]

teşekkür ederim alttaki modüle yazılacak kod çok iyi ama ben şuna takıldım örnekteki gibi bir A sütunu değil de A14 den A80 e kadar olursa hatta bu değerleri sayfa2 den çağırırsak nasıl düzenleyebiliriz.

 

[Ömer]

teşekkür ederim alttaki modüle yazılacak kod çok iyi ama ben şuna takıldım örnekteki gibi bir A sütunu değil de A14 den A80 e kadar olursa hatta bu değerleri sayfa2 den çağırırsak nasıl düzenleyebiliriz.

Sub Birlestir()
 
    Dim i As Long[COLOR=red], S2 As Worksheet[/COLOR]
 
    [COLOR=red]Set S2 = Sheets("Sayfa2")[/COLOR]
 
    Range("C2") = ""
 
    For i = [COLOR=blue]14[/COLOR] To [COLOR=blue]80[/COLOR]
        Range("C2") = Range("C2") & "," & [COLOR=red]S2.[/COLOR]Cells(i, "[B][COLOR=green]A[/COLOR][/B]")
    Next i
 
    Range("C2") = Application.Substitute(Range("C2"), ",", "", 1)
 
End Sub

Değişiklikleri ve belirtmeleri renklendirdim.

.

 

[muratfix]

çok teşekkürler ellerinize sağlık.