Sütundaki dolu hücreleri tek satırda birleştirme..

[OoParadiSeoO]

Arkadaşlar,

A sütunundaki verileri tek bir hücrede makro ile nasıl birleştirebiliriz? Yardımlarınızı bekliyorum...

 

[Emir Hüseyin Çoban]

. . .

Aralarına - boşluk veya virgül olacak mı.

. . .

 

[OoParadiSeoO]

Hüseyin bey aralarda - olacak. Bir koşul daha belirteyim. A sütununda birden fazla satırda veri varsa son satıra kadar hücrelerin soldan 2 karakterini alacak son satırın ise tamamını alacak ve son satırın sonuna tire koymayacak.. boşluk bitti yazacak. Eğer A sütununda 1 veri var ise;
örneğin;
istanbul
sonuç;
istanbul bitti
olacak. Birden fazla veri var ise;

Örneğin;
istanbul
izmir
ankara

Sonuç;
is-iz-ankara bitti

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
Application.ScreenUpdating = False

    son = Cells(Rows.Count, "A").End(3).Row
    For i = 1 To son
    If Cells(i, "A") <> "" Then
        If i = son Then
            metin = metin & Cells(i, "A") & " bitti"
        Else
            metin = metin & Left(Cells(i, "A"), 2) & "-"
        End If
    End If
    Next i

    Range("B1") = metin

Application.ScreenUpdating = True
MsgBox "B i t t i"
End Sub

. . .

 

[OoParadiSeoO]

Hüseyin Bey tam istediğim gibi olmuş emeğinize sağlık..