Soru Metinleri Araya NoktalıVirgül koyarak birleştirme

[bulentkars]

Arkadaşlar Merhaba,

Forumdan kolaybirleştir makrosunu buldum, kodta değişiklik yapmamzı mümkün mü acaba, ekteki dosyada örnek olarak gösterdim. a2:a10 arasına formul verdiğimde sadece bu aralıktaki dolu hücrelere noktalı virgük koyamasını istiyorum, arada boş bir hücre varsa sadece bir adet noktalı virgül koymasını istiyorum. yardımcı olabilirseniz sevinirim. Şİmdiden Teşekkürler

 

[Haluk]

Function KolayBirlestir(Alan As Range) As String
    Dim arrData(), Bak As Range, i As Integer
    
    For Each Bak In Alan
        If Not Bak = 0 Then
            i = i + 1
            ReDim Preserve arrData(1 To i)
            arrData(i) = Bak
        End If
    Next
    
    KolayBirlestir = Join(arrData, ";")
End Function

.

 

[bulentkars]

Haluk Bey Merhaba,

Çok teşekkür ederim. istediğim gibi olmuş ancak, boş yerler formul ile oluşmakta örneğin a2:a10 arasında formul ile gelen bilgiler var, a4 satırı boş formüllü olduğu için noktalı virgülü fazla veriyor, formülü sildiğimde oluyor.

 

[Korhan Ayhan]

Alternatif;

Sorgu için arama sonuçları: K_BİRLEŞTİR

www.excel.web.tr

 

[Haluk]

If Not Bak = "" Then

.

 

[bulentkars]

Haluk Bey,

Çok çok teşekkür ederim. emeğinize sağlık..