AccessTr.neT

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

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]

Lütfen konu ile geri dönüş yaparsanız seviniriz.

Teşekkürler...

drummers

DUAYEN

DUAYEN

drummers