Hücre Birleştirme

[mustafabolat06]

Merhabalar,

ekteki dosyamda bir örnek paylaştım.

Hücreleri birleştirmeye çalışıyorum otomatik olarak arada virgül koyacak şekilde. Ancak boş hücreleri yazmasın istiyorum.

Yani ekteki örneğe göre A1 hücresinde "11, 10, 9" yazacak şekilde ayarlamak istiyorum. Otomatik bir yolu var mıdır? Hücre sayım değişken yaklaşık 50 adet ile 100 adet arasında olacak bu şekilde tek tek yazmak baya uğraştırıyor.

http://dosya.co/63j7qxshcftj/Lab_kodu.xlsx.html


Şimdiden teşekkür ediyorum.

 

[kemalist]

dosya virüslü gözüküyor

 

[Ömer BARAN]

Merhaba.

Dosyada bir virüs uyarısı almadım.

Aşağıdaki kod istediğiniz sonucu verecektir.
.

[B]Sub BİRLEŞTİR()[/B]
For satır = 2 To Cells(Rows.Count, "B").End(3).Row
    If Cells(satır, "A") <> " " Then metin = metin & ", " & Cells(satır, "B")
Next
[A1] = Mid(metin, 3, Len(metin) - 2)
[B]End Sub[/B]

 

[çıtır]

Alternatif olsun sayfa koduna

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("a2:a200")) Is Nothing Then Exit Sub
Range("a1").ClearContents
For i = 2 To Cells(65536, "A").End(xlUp).Row
    al = Cells(1, 1).Value
    Cells(1, 1).Value = al & Cells(i, "A").Value & " , "
Next i
End Sub

 

[mustafabolat06]

Merhaba.

Dosyada bir virüs uyarısı almadım.

Aşağıdaki kod istediğiniz sonucu verecektir.
.

[B]Sub BİRLEŞTİR()[/B]
For satır = 2 To Cells(Rows.Count, "B").End(3).Row
    If Cells(satır, "A") <> " " Then metin = metin & ", " & Cells(satır, "B")
Next
[A1] = Mid(metin, 3, Len(metin) - 2)
[B]End Sub[/B]

Hocam merhabalar. İlginiz için teşekkür ediyorum öncelikle. Makroyu ekledim çalıştırdım güzel işliyor. Ancak benim kendi ana dokumanımda çok kullanamadım. Çünkü benim a ve b sütunlarımda farklı bilgiler mevcut ve ben sadece istediğim yere kadar bu eşleşmeyi yapıp birleştirmesini istiyorum mesela. Satır sayısı değişkenlik gösterecek şekilde uygulayamadım. Belki kodu öyle yazdınız ama çözemedim sanırım.

http://dosya.co/gkn0uy2n07uh/Lab_kodu_makrolu.xlsx.html

ekte asıl dosyamı gönderiyorum örneğin. Burada b70 hücresine yazdırmak istiyorum mesela ama bu şekilde alıyo kodu revize ettiğimde belkide hata yapıyorum.

Ana exceli değil de boş bir format koymamın nedeni de direk hazıra konmak yerine olayı biraz öğrenebilmek istediğimden yanlış anlamayın. En azından kendime uyarlarken biraz kod ve formülleri kavrayabilirsem diye uğraşıyorum. bir de değişken olduğunda otomatik güncelleyebiliyor mu makro?

 

[mustafabolat06]

Alternatif olsun sayfa koduna

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("a2:a200")) Is Nothing Then Exit Sub
Range("a1").ClearContents
For i = 2 To Cells(65536, "A").End(xlUp).Row
    al = Cells(1, 1).Value
    Cells(1, 1).Value = al & Cells(i, "A").Value & " , "
Next i
End Sub

Merhabalar. Öncelikle teşekkür ediyorum cevabınız için ama kodu kullanamadım ne yazıkki işletemedim yanlış birşey mi yaptım bilemiyorum. ama çalıştırdığımda herhangi bir değişiklik gözleyemiyorum.

 

[mustafabolat06]

dosya virüslü gözüküyor

hocam üstteki yeşil alandaki dosyayı indir den indirmiyorsunuz değil mi sponsor olandan. Resimlerin altında dosyayı indir bölümü var. Ordan baktığımda tekrar virüs taramsı yaptırdım bende de bir şey bulamadı ama?

 

[çıtır]

Merhabalar. Öncelikle teşekkür ediyorum cevabınız için ama kodu kullanamadım ne yazıkki işletemedim yanlış birşey mi yaptım bilemiyorum. ama çalıştırdığımda herhangi bir değişiklik gözleyemiyorum.

1)Geliştirici tıkla
2)Visual Basic tıkla
3)Sayfa1(sayfa1)çift tıkla
4)Sağdaki boş yere Kodu kopyala yapıştır.
A2,A200 hücrede bir değişiklik olduğunda ,A1 hücresine yazar .Sizin birşey yapmanız gerekmez.

 

[mertdalagan]

Merhaba,

bunu formül ile yapmanın yolu yar mıdır?
Ya da çok geniş bir tabloda aşağıya doğru nasıl indirebiliriz?

Saygılar,
Mert

 

[çıtır]

sn:mertdalagan,hangi kod için kime yazdınız.Formülden kastınız Sayfaya yazdığımız Birleştir formülü mü .Yoksa makro kodumu,genişlik aşağı uzunlumu yoksa yan hücrele mi anlaşılmıyor.Örnek dosya yükle veya daha açıklayıcı hangi kod için söz ettiğini belirtiniz.
saygılar bizden.

 

[Ömer BARAN]

Anyadığım kadarıyla ekli belgede, formül ve makro ile çözüm üretilmiştir.
Ekteki belgeyi inceleyiniz.

Belgeye buradan da erişebilirsiniz.
.

 

[mustafabolat06]

Anyadığım kadarıyla ekli belgede, formül ve makro ile çözüm üretilmiştir.
Ekteki belgeyi inceleyiniz.

Belgeye buradan da erişebilirsiniz.
.

Hocam teşekkür ediyorum. Formül olan kısım özellikle çok fazlasıyla işimi görüyor şu an. Eline emeğine sağlık.