Düşeyara ile birden fazla sonucu bulup yan yana yaz

[Antepliislam]

Merhabalar,

Ekteki dosyamda aradıgım degeri düşeyara ile arattım fakat birden fazla sonuç buldugu için çıkartmadım. Benim istedigim bir sütunda birden fazla sonuç bulunca yan yana yazmasını istiyorum.

Şimdiden teşekkürler

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. Ancak kodları çalıştırmadan önce şunları yapınız:

DEĞERLERİN ARANACAĞI SAYFA dosyasındaki Sayfa1'in adını arama olarak değiştirin ve bu sayfayı diğer dosyaya taşıyın. Yani iki sayfa da aynı dosyada olsun ve arama yapılacak sayfanın adı arama olsun. Verilerinizin çokluğuna göre işlemin sonlanması zaman alabilir:

Sub kontrol()

Set s1 = Sheets("arama")
Set s2 = Sheets("Sayfa1")

sonara = s1.Cells(Rows.Count, 1).End(3).Row
sonkontrol = s2.Cells(Rows.Count, 1).End(3).Row

For i = 1 To sonara
    For j = 1 To sonkontrol
        If s1.Cells(i, "F") = s2.Cells(j, "EM") Then
            yeni = s2.Cells(j, Columns.Count).End(xlToLeft).Column + 1
            s2.Cells(j, yeni) = s1.Cells(i, "A")
        End If
    Next
Next

End Sub

 

[Antepliislam]

Çok teşekkür ederim, emeginize saglık

 

[Antepliislam]

Düşeyara ile başka bir sütunda arama yaptırıyorum ama tam eşleşme yapınca sonuç bulamıyor, neden acaba?

 

[YUSUF44]

Düşeyara ile başka bir sütunda arama yaptırıyorum ama tam eşleşme yapınca sonuç bulamıyor, neden acaba?

Örneklemezseniz anlamamız zor.

 

[Antepliislam]

O sorunumu çözdüm Peki bana yukarıdaki formülün açıklamasını yapar mısnız başka bir yerde kullanacagım

 

[YUSUF44]

Set ile s1 ve s2'yi sayfalar için kısayol olarak ayarlıyoruz.

Sonara ve sonkontrol ile o sayfaların 1. Yani A sütunlarındaki en son dolu hücrenin satır numarasını buluyoruz.

For/next ile o sayfalarda birinci satırdan daha önce bulduğumuz son dolu satıra kadar işlem yaptırıyoruz

If ile arama sayfasının F sütunundaki hücre ile diğer sayfanın EM sütunundaki hücre aynı ise diyoruz ve sonra yapılacak işi belirtiyoruz

yeni ile o anki satırdaki ilk boş hücrenin kaçıncı sütunda olduğunu buluyoruz

Ve son olarak ilk boş hücreye veri girdiriyoruz.

 

[ahmet.tmy]

Merhaba,
Kodlar için teşekkür ederim fakat benim bir detaya daha ihtiyacım var, benzer olanı listelemesini istemiyorum. sadece benzersiz olanları listelesin. Bu mümkün mü acaba

 

[Korhan Ayhan]

En son liste oluştuktan sonra menüdeki özelliği kullanabilirsiniz. Bu işlemi makro kaydet yöntemini kullanarak elde ettiğiniz makro kodlarını yukarıdaki koda entegre edebilirsiniz.

 

[ahmet.tmy]

En son liste oluştuktan sonra menüdeki özelliği kullanabilirsiniz. Bu işlemi makro kaydet yöntemini kullanarak elde ettiğiniz makro kodlarını yukarıdaki koda entegre edebilirsiniz.

Ekli dosyayı görüntüle 235885

Sutunlara yan yana kopyalıyor, ve çok fazla benzer çıkıyor kopyala yapıştır yaparak uyarlamaya çalıştım başaramadım malesef

 

[Korhan Ayhan]

Örnek dosyanızı paylaşıp izah ederseniz yardım almanız kolaylaşır.