hücre birleştirme

[turkanet]

merhaba,

c sütunundaki hücreleri aralarına ";" koyarak birleştirip d1'e yazacak makroya ihtiyacım var

yardımlarınız için şimdiden tşk

 

[ReBiwAr]

=BİRLEŞTİR formülü denediniz mi?

İyi Çalışmalar.

 

[Necdet]

Merhaba,

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

 

[turkanet]

çok tşk ederim

 

[decisive_turk]

merhabalar;

Aslında benim çok basit bir sorunum var fakat ben çözemedim. Araştırdım dosyaları incelemedim ama çözümü bulamadım.

L1 hücresindeki sayısal değer ile M1 hücresindeki sayısal değerleri BİRLEŞTİRMEK istiyor(tek bir hücrede). Aslında birleştir yaptım oldu. Ama 5000 tane değer var. L sütunundaki değerlerle M sütunundaki değerleri tek bir sütunda birleştirmek mümkünmüdür?

Ayrıca birleştirdikten sonra başlarına "0049" ekleme yapmam gerekiyor. gerçi onu yapabiliyorum ama hücre birleştirmedeki ilk denememde olmadı(hücrenin içinde formül uygulandığı için 2. bir formülü kabul etmiyor sanırım)

Tek derdim 2 sütundaki hücredeki sayıları tek sütunda ve ayrı ayrı hürelerde birleştirmek. umarım açıklayıcı olmuştur. Bir nevi 123 4567 benim istediğim 1234567

Saygılar

 

[kitreli]

Öncelikle kolay gelsin..

Yukarıda vermiş olduğunuz macro çok güzel olmuş, işime çok yaradı..

Ancak noktalı virgülle birleştirirken, her noktalı virgülden sonra boşluk bırakmasını istiyorum..

Bununla ilgili yardım ederseniz sevinirim...

 

[İhsan Tank]

Öncelikle kolay gelsin..

Yukarıda vermiş olduğunuz macro çok güzel olmuş, işime çok yaradı..

Ancak noktalı virgülle birleştirirken, her noktalı virgülden sonra boşluk bırakmasını istiyorum..

Bununla ilgili yardım ederseniz sevinirim...

merhaba
1. seçenek

Option Explicit
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

2. seçenek

Option Explicit
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

bu şekilde yapabilirsiniz