Çözüldü firmalar

[yuzun23]

üstadlarım ekteki belgede; SONUÇ Sayfasından Gelecek Veriler İle Hangi Firmada Kaç Kalem Kalmışsa Otomatik Yapılması, Örnek Olarak A Firmasını

 

[yuzun23]

Üstadlarım yardımlarınızı bekliyorum.

 

[Korhan Ayhan]

Merhaba,

Kullandığınız sürüm profilinizde 2010 olarak görünüyor. Bu bilgi güncelse çoklu birleştirme için makro kullanmanız gerekecektir.

 

[yanginci34]

Denermisiniz alternatif

 

[Korhan Ayhan]

Eki inceleyiniz.

Hem eski sürümler (KTF destekli) için hem de Ofis 365 sürümü için alternatif bulunuyor.

 

[yuzun23]

teşekkür ederim ellerinize sağlık

 

[yuzun23]

2016 biliyorum

 

[Korhan Ayhan]

Görselde gördüğünüz gibi profilinizde 2010 yazıyor.

Linki inceleyerek profilinizi güncellemenizde fayda var.

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr

 

[yuzun23]

Korhan bey kusura bakmayın, excel çalışma sayfasına sağ tıkladığımda özelliklerden excel2016 yazıyor.
birde yapmış olduğun formül çalışmıyor. hakkını helal et
{=EĞER(B2="";"";K_TEXTJOIN(SONUÇ!$B$3:$B$57;SONUÇ!$U$3:$U$57;B2;;", "))}

 

[Erkan Akayay]

Korhan Bey Office 365 için çözüm diye belirtmiş. 2016'da KTF'li çözümü uygulamalısınız.

 

[yuzun23]

bende fazla anlamıyorum sizin gibi üstadların sayesinde işimi yürütüyorum. hangi formülü uygulmamız gerekiyor

 

[Erkan Akayay]

Korhan Bey'in hazırladığı şu makroyu dosyanıza ekleyin.
Sonrasında Sayfa1 (Eski Sürüm) sayfasındaki formülü kullanabileceksiniz.
Kullanıcı Tanımlı Fonksiyonlar (KTF) sayfanızda formül olarak kullanabileceğiniz kodlardır.
Formül sayfasında = diyerek K'ya bastığınızda K_TEXTJOIN diye bir formül geldiğini göreceksiniz.
Not : Ben önceki mesajınızda başındaki K'yı görmeyerek 365 formülünü denediniz sandım. Asıl dosyanıza kod eklemediği için çalışmamış.

Function K_TEXTJOIN(Concatenate_Area As Range, Criteria_Area As Range, My_Criteria As Range, _
                     Optional Ignore_Emty_Cells As Boolean = True, Optional My_Seperator As String = "-") As String
    Dim Rng As Range, Count_Row As Long

    Application.Volatile True

    For Each Rng In Criteria_Area
        Count_Row = Count_Row + 1
        If Rng.Value = My_Criteria.Value Then
            If Ignore_Emty_Cells = True Then
                If Concatenate_Area.Cells(Count_Row).Value <> "" Then
                    If K_TEXTJOIN = "" Then
                        K_TEXTJOIN = Concatenate_Area.Cells(Count_Row).Value
                    Else
                        K_TEXTJOIN = K_TEXTJOIN & My_Seperator & Concatenate_Area.Cells(Count_Row).Value
                    End If
                End If
            Else
                If K_TEXTJOIN = "" Then
                    K_TEXTJOIN = Concatenate_Area.Cells(Count_Row).Value
                Else
                    K_TEXTJOIN = K_TEXTJOIN & My_Seperator & Concatenate_Area.Cells(Count_Row).Value
                End If
            End If
        End If
    Next
End Function

 

[Korhan Ayhan]

#5 nolu mesajda paylaştığım dosyada küçük bir revize yaptım.

"Sayfa1 (Eski Sürüm)" isimli sayfada B sütununda benzersiz liste oluşturan formül sıkıntılıydı. Onu revize ettim.

 

[yuzun23]

Hakkınızı helal edin. ellerinize sağlık.