eğer ve birleştir

[firadin]

istediğim şey eğer x sayfasının A stunundaki değerler y sayfasındaki C1 değeri ile aynı ise x sayfasındaki B sutunundaki değerleri boşluklu bir şekilde C3 sutununda birleştirsin

şimdiden teşekkür ederim

 

[Ömer]

Merhaba,

Eşleşen değerler 1 den fazla sanırım. Eğer öyleyse formül değil makro kullanmak gerekir?

 

[firadin]

evet 1 günde yapılan proje idlerini birleştirmeye çalışıyorum hangi makroyu naısl kurabilirim yardımcı olur musunuz

 

[Ömer]

Kodları module kopyalayın.

Function LISTELE(hucre As Range, bak As Range, sonuc)

    Dim S1 As Worksheet, S2 As Worksheet, a As Range, d As String
    
    Set S1 = Sheets("x")
    Set S2 = Sheets("y")
    
    Application.Volatile True

    For Each a In hucre
        If IsError(a.Value) = False Then
            If a.Value = bak Then
                d = d & " " & WorksheetFunction.Index(sonuc, a.Row)
            End If
        End If
    Next a
    
    LISTELE = Trim(d)
    
End Function

Kullanımı:
Sonuçları görmek istediğiniz hücreye aşağıdaki mantıkla hücre aralıklarını yazın.

=LISTELE(aranan_aralık;aranan_değer;sonuçların_geleceği_aralık)

Örnek;

=LISTELE(x!A1:A20;C1;x!B1:B20)

Gibi.

Eki inceleyiniz.

İndir ara birlestir

Dosyayı indir ara birlestir

dosya.co

.

 

[firadin]

İŞE YARAMADI VEYA BEN YAPAMADIM BİLMİYORUM

 

[Ömer]

Mesajda paylaşım linkinde örnek dosya eklemiştim, incelemediniz mi?

 

[firadin]

Onun üstüne exceli kurunca çalıştı çok teşekkür ederim. 0 dan kendim yapmayı deneyince "ambiguous name detected" hatası alıyorum nedeni nedir acaba? Biliyor musunuz?

 

[Korhan Ayhan]

Merhaba,

Rica etsem profilinizde yazan (türkçe) excel sürüm bilgisini güncelleyebilir misiniz?