Hücrelerdeki verileri birleştirme?

[hacktivistt]

Arkadaşlar merhaba,

Sorum şu olacak.

Resimdeki C-D-E-F-G-H Sütunlarının altındaki örneğin: 11N112 verilerini tek hücrede birleştirmek istiyorum. Veri kaybetmeden. bunu nasıl yapabilirim.?

1-2 tane olsa sorun değil fakat elimde bir ton böyle şey var birleştirilmesi gereken ne yapacağımı şaşırdım Yardım bekliyorum

Teşekkürler.

 

[nunikmakarios]

açıklama

Resimden anladığım kadar ekteki formül işini çözer

 

[hacktivistt]

Teşekkür ederim

 

[Ömer]

Merhaba,

Hücre üzerinde birleştirmek isterseniz. Kodları module kopyalarak çalıştırınız.

K sütunu yardımcı sütun olarak düşünülmüştür. Bu sütunu değiştirebilirsiniz.

Sub Birlestir()
Dim i As Long, j As Integer
Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    For i = 1 To [C65536].End(3).Row
        For j = 3 To 8
            Cells(i, "[COLOR=red]K[/COLOR]") = Cells(i, "[COLOR=red]K[/COLOR]") & Cells(i, j)
        Next j
        Range("C" & i & ":H" & i).Merge
        Cells(i, "C") = Cells(i, "[COLOR=red]K[/COLOR]")
    Next i
    [[COLOR=red]K[/COLOR]:[COLOR=red]K[/COLOR]].ClearContents
    Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

.

 

[goksin123]

Merhaba,

Hücre üzerinde birleştirmek isterseniz. Kodları module kopyalarak çalıştırınız.

K sütunu yardımcı sütun olarak düşünülmüştür. Bu sütunu değiştirebilirsiniz.

Sub Birlestir()
Dim i As Long, j As Integer
Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    For i = 1 To [C65536].End(3).Row
        For j = 3 To 8
            Cells(i, "[COLOR=red]K[/COLOR]") = Cells(i, "[COLOR=red]K[/COLOR]") & Cells(i, j)
        Next j
        Range("C" & i & ":H" & i).Merge
        Cells(i, "C") = Cells(i, "[COLOR=red]K[/COLOR]")
    Next i
    [[COLOR=red]K[/COLOR]:[COLOR=red]K[/COLOR]].ClearContents
    Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

.

Ömer Bey bilgi için teşekkürler. Ama benim sütunlar yerine satırları birleştirmem gerekiyor ve aralarında " ; ve boşluk " olması gerekiyor. 1 ile 2000 arasında ki satırları birleştirmek için ne yapmam gerekiyor.

 

[Ömer]

Merhaba,

Sorunuzu küçük bir örnek dosya ile destekleyip açıklarmısınız.