Seçili satırları tek satır olarak birleştirme

[ottoman71]

Merhaba arkadaşlar,
Ekteki dosyadaki örnekte olduğu gibi seçtiğim satırları makro ile tek satır haline getirebilirmiyim. Makro haricinde yapabileceğim başka bir yol varsada olur. Çünkü bu işlemi sürekli tekrarlıyorum.

Örneğin;
"A1 hücresinde Ahmet
A2 hücresinde Mehmet
A3 hücresinde Murat
A4 hücresinde Şevki" ----> kelimeleri/cümleleri var. Ben A1 ile A4'e kadar olan hücreleri mause ile seçtiğimde bu kelimeleri/cümleleri aynı şekilde alt alta tek bir hücrede birleştirmek (yani A1 hücresinde birleştirecek) istiyorum.

Yardıcı olursanız sevinirim.

Kolay gelsin

 

[N.Ziya Hiçdurmaz]

yanıt

Sub birlestir()
Dim alan As Range
[c6] = Empty
For Each alan In Selection
[c6] = [c6] & " " & alan.Value & Chr(10)
Next
End Sub

 

[mustafaine1]

Dim x  As Integer
Dim deger As String
 ActiveCell.FormulaR1C1 = Range("a1").Value & Chr(10)
 deger = ActiveCell.FormulaR1C1
For x = 2 To Range("A65536").End(3).Row
    deger = deger & Range("a" & x).Value & Chr(10)
     Next
    ActiveCell.FormulaR1C1 = deger

bu sekilde deneyiniz

 

[ottoman71]

Ziya ve Mustafa Hocam ilgilendiğiniz için teşekkur ederim.
Biraz önceki sorumda A1 hücresini örnek olarak vermiştim ama yanlış ifade ettim.
Şimdi burada benim yapmak istediğim. Örneğin sarı olarak gösterdiğim satırın E sütunundaki açıklama kısmı iki satır. Yani E2 ve E3'ü seçtiğimde
birleştir butonuna tıklamam ile E2'ye ; E2 ve E3'ün alt alta birleşimi verecek.
Bir sonrakinde E4 ve E5'i seçtiğimde, birleştir butununa tıklamam ile E4'e; E4 ve E5'in alt alta birleşimini verecek.
Yine son bir örnek verecek olursam; E16, E17, E18 ve E19'u seçip birleştir butonuna tıkladığımda, E16'ya; E16, E17, E18 ve E19'un birleşimini verecek.

Burada A sütunu veya E sütunu sabit değildir. Bir başka sefere K sütunundanda seçilebilir.
Sadece seçili satırları en üsttekine birleştirme işlemi yapılacak.

 

[mustafaine1]

Sub birlestir()
Dim alan As Range
[g1] = Empty
For Each alan In Selection
[g1] = [g1] & " " & alan.Value & Chr(10)
Next
Selection.Value = [g1]
[g1] = Empty
End Sub

bu sekilde yapip sonra bosluklari suzup silebilirsiniz..

 

[ottoman71]

Teşekkur ederim ellerinize sağlık.

 

[mustafaine1]

Rica ederim bisey yapmadim yapilmisin uzerine bir fikirdi sadece, isinizi goruyorsa ne mutlu, kolay gelsin..

 

[ottoman71]

Çok işime yaradı. Teşekkur ederim.
Sizede kolay gelsin.