Ara Bul Yanına Yaz.

[sarman61]

Merhaba Excelde 2 sayfalık bir çalışmam var. Şimdi ilk sayfada numaralar yazmakta. 2. sayfada ise bu numaraların karşısında ürün isismleri yazmakta. Ben 1. sayfadaki numaranın yanına 2. sayfada ki ürün isimlerini nasıl yazdırabilrim.


1. Sayfa

----A------
1- 1
2- 2
3- 3
.
.
.

Diye devam ediyor.

2. Sayfa

------A------|------B------
1- 1 | OMO
2- 1 | CİF
3- 2 | PRİL
4- 3 | ARİEL
5- 3 | OMO


Yapmak istediğim.

1. Sayda

-------A------|------B-------
1- 1 | OMO, CİF
2- 2 | PRİL
3- 3 | ARİEL, OMO

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub BulGetir()
    Dim c   As Range
    Dim i   As Long
    Dim adr As String
    
    For i = 2 To [A65536].End(3).Row
        With Sheets("Sayfa2").Range("a:a")
            Set c = .Find(Cells(i, "A"), LookIn:=xlValues, LookAt:=xlWhole)
            If Not c Is Nothing Then
                adr = c.Address
                Do
                   If Len(Cells(i, "B")) = 0 Then
                        Cells(i, "B") = Sheets("Sayfa2").Cells(c.Row, "B")
                    Else
                        Cells(i, "B") = Cells(i, "B") & ", " & Sheets("Sayfa2").Cells(c.Row, "B")
                    End If
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> adr
            End If
        End With
    Next i
End Sub

 

[İhsan Tank]

eki inceler misiniz ufak bazı değişikliklerle sonuca ulaştım.
ayrıca Syn : Necdet yeşertener Uzman'a Çözüm İçin Teşekkür ederim

 

[sarman61]

Kusura bakmayın geç cevap verdim ama tam istediğim gibi olmuş Necdet hocamın kinin kullanımı biraz daha rahat ayrıca ihsan hocam senin örneğinide kaydettim işime yarayabilecek fonksiyon mevcut içinde tekrardan herkezlere teşekkür ederim

 

[İhsan Tank]

Kusura bakmayın geç cevap verdim ama tam istediğim gibi olmuş Necdet hocamın kinin kullanımı biraz daha rahat ayrıca ihsan hocam senin örneğinide kaydettim işime yarayabilecek fonksiyon mevcut içinde tekrardan herkezlere teşekkür ederim

rica ederim
iyi çalışmalar :mutlu: