şarta göre hücre birleştirme

[YASINT]

Merhabalar

Yapmak istediğim A sütunundaki no'lara göre B sütunundaki verileri hem aralık vererek birleştirme hemde kaç tane var ise hepsini birleştirmek örnek ektedir arkadaşlar yardımlarınızı bekliyorum.

 

[mustafaine1]

Merhaba ornek dosyayi inceleyiniz.

Ornek dosyaniz icin uygulanan ktf;

Function ara_birlestir(Arama_Terimi As String, _
Sutunda_Ara As Range, Sutuna_Don As Range)
Dim i As Long
Dim sonuc As String
For i = 1 To Sutunda_Ara.Count
If Sutunda_Ara.Cells(i, 1) = Arama_Terimi Then
sonuc = sonuc & "-" & Sutuna_Don.Cells(i, 1).Value
End If
Next
ara_birlestir = Mid(sonuc, 2, 1000)
End Function

Uygulanisi e7 icin;

=ara_birlestir(D7;$A$7:$A$11;$B$7:$B$11)

En kucuk en buyuk degerler icin formul;

=MIN(IF($A$7:$A$11=D7,$B$7:$B$11,""))&" - "&MAX(IF($A$7:$A$11=D7,$B$7:$B$11,""))

 

[YASINT]

Çok teşekkür ederim Ellerinize sağlık

 

[mustafaine1]

Rica ederim dosyayi eklemeyi unutmusum, uygulayabildiginizi dusunerek tekrardan dosyayi eklemiyorum, iyi calismalar.