çoklu birleştirme

[Erdem Akdemir]

a1'den a100'e kadar hücrelerin içinde metinler var

bunları formül ile tek hücrede nasıl birleştirebilirim

 

[Ömer]

a1'den a100'e kadar hücrelerin içinde metinler var

bunları formül ile nasıl tek hücrede nasıl birleştirebilirim

Merhaba,

Sayın yurttas'ın yazdığı KTF yi kullanabilirsiniz.

Boş bir module kodları kopyalayınız..

Public Function BİRLEŞTİRA(ALAN As Range, Optional sALAN As String = " ") As String
Dim sonuc As String, c As Range
On Error GoTo Hata
For Each c In ALAN
    If c <> Empty Then sonuc = sonuc & c.Value & sALAN
Next c
sonuc = Left(sonuc, Len(sonuc) - Len(sALAN))
BİRLEŞTİRA = sonuc
On Error GoTo 0
   Exit Function
Hata:
    BİRLEŞTİRA = "#Error#"
End Function

Birleşimi görmek istediğiniz hücreye,

=BİRLEŞTİRA(A1:A100) yazınız.

.

 

[Erdem Akdemir]

Merhaba,

Sayın yurttas'ın yazdığı KTF yi kullanabilirsiniz.

Boş bir module kodları kopyalayınız..

Public Function BİRLEŞTİRA(ALAN As Range, Optional sALAN As String = " ") As String
Dim sonuc As String, c As Range
On Error GoTo Hata
For Each c In ALAN
    If c <> Empty Then sonuc = sonuc & c.Value & sALAN
Next c
sonuc = Left(sonuc, Len(sonuc) - Len(sALAN))
BİRLEŞTİRA = sonuc
On Error GoTo 0
   Exit Function
Hata:
    BİRLEŞTİRA = "#Error#"
End Function

Birleşimi görmek istediğiniz hücreye,

=BİRLEŞTİRA(A1:A100) yazınız.

.

teşekkür ederim

işimi gördü

 

[cihanal]

Fonksiyonu VBA editörde yazıp, uygulamaya çalışınca #NAME? hatası veriyor. Nedendir acaba ?

 

[Ömer]

Fonksiyonu VBA editörde yazıp, uygulamaya çalışınca #NAME? hatası veriyor. Nedendir acaba ?

Merhaba,

Herhangi bir sorun olmaması gerekir, =BİRLEŞTİRA(A1:A100) yazımını tekrar kontrol edermisiniz..

.

 

[cihanal]

Merhaba. Gönderdiğiniz birleştir dosyasını açtığımda "the formula contains unrecognized text" şeklinde aynı hatayı veriyor.

 

[Ömer]

Merhaba. Gönderdiğiniz birleştir dosyasını açtığımda "the formula contains unrecognized text" şeklinde aynı hatayı veriyor.

Güvenlik ayarlarınızı kontrol ederminiz..

Araçlar / Makro / Güvenlik ekranından Düşük ( önerilmez) i işaretleyiniz. Daha sonra dosyayı kapatıp tekrar açarak deneyiniz..

.

 

[cihanal]

Sayın espiyonajl,

Dediklerinizi yaptım. Yine aynı hatayı veriyor.

 

[Merhum İdris SERDAR]

Merhaba. Gönderdiğiniz birleştir dosyasını açtığımda "the formula contains unrecognized text" şeklinde aynı hatayı veriyor.

Ekteki örneğe bakın.

.

 

[Erdem Akdemir]

sayın yurttaş birleştirirken arada boşluk bırakıyor

bunu nasıl kaldırabiliriz, direkt koda müdahale ederek

Ctrl+H ile değiştirebiliyorum

 

[Merhum İdris SERDAR]

sayın yurttaş birleştirirken arada boşluk bırakıyor

bunu nasıl kaldırabiliriz, direkt koda müdahale ederek

Ctrl+H ile değiştirebiliyorum

Bu da boşluksuz.

.

 

[cihanal]

teşekkür

Sayın yurttaş teşekkürler. Çalışıyor. Sayın espiyonajl, size de ilginiz için teşekkür ederim.

 

[yeliz.yilmaz]

Yurttas Bey, Benim de bu sorunum vardi. sitede buldum. Yardiminiz icin ben de tesekkur etmek istiyorum.

selam

 

[odrcmn]

Teşekkürler

Teşekkürler..

 

[kayserciyes]

Merhaba
Yıllar önce Sayın YURTTAŞ ın yazdığı BirleştirA fonksiyonunu kullanıyordum
bu sene yeni fark ettim ki
hücrelerde 0 "sıfır" olursa SIFIRı görmüyor.
bu konu ile ilgilenen olursa sevinirim çalışmlarımda hatalı sonuç veriyor
yani
A1 B1 C1 değerleri
1 0 0 olsun =BİRLEŞTİRA(A1:C1) sunuç yüz "100" çıkması gerekirken 1 çıkıyor veya
1 0 2 olursa sonuç 12 çıkıyor

 

[ÖmerBey]

Hücrelere 0 yazarken '0 şeklinde metin olarak yazarsanız problem kalmaz.
Ya da kodda yer alan

If c <> Empty

kısmı

If c <> ""

şeklinde değiştirebilirsiniz.

 

[kayserciyes]

Eyvallah oldu veriyi Text dosyasından alıyorum
2. çözüm öneriniz sorunu çözdü
teşekkür ediyorum

 

[Nightwolf_03]

Elinize sağlık kod çok güzel çok işime yaradı

peki bu kod belli bir alanı yapıyor örneğin 1700 satırdan sonrasını yapmıyor yapması için nasıl bir düzenleme gerekir ?