Hücre Birleştirme Hk

25/06/2013, 23:25

drummers

Ekli dosyamda il ilçe mahalle listesi bulunmakta benim istediğim

B,C,D sütunlarındaki aynı isimli hücreleri birleştirmesi

Örnek: A1:A150 arası "Adana" yazılı. A1:A150 arasını birleştirip tek hücrede "Adana" yazmasını makro ile nasıl sağlarım.
Teşekkürler
30/06/2013, 09:56

DUAYEN

Merhaba;
aşağıdaki kodu denermisiniz.
Kod:
Sub Birlestir()
    Dim i As Integer
    Dim d As String
    For i = 2 To [C65536].End(3).Row
        If Len(d) = 0 Then
            d = Cells(i, "C")
        Else
            d = d & ";" & Cells(i, "C")
        End If
    Next i
    [D1] = d
End Sub
[/vb]
02/07/2013, 22:10

DUAYEN

Lütfen konu ile geri dönüş yaparsanız seviniriz.
04/07/2013, 00:25

drummers

Teşekkürler...