Seçilen ismin karşısına denk gelen açıklama

[sdegirmenci]

Merhaba;
Ekteki örnek dosyamda açıkladığım gibi "B" sütunuda isimler var ve sürekli isimler tekrar ediyor, her tekrarda ("c" sütunu) karşısına gelen açıklama farklı. Açılır kutudan seçtiğimiz isim en son olarak hangi satırda yazıldı ise o satırın karşısına gelen açıklamanın hücremize gelmesi için hangi formülü yazmalıyız.Bir nevi dizin formülü. gibi. Yardımcı olabilirseniz sevinirim. İşleriniz kolay gelsin.

 

[Ömer]

Merhaba,

=ARA(2;1/(B8:B30=C4);C8:C30)

Bu şekilde deneyiniz..

.

 

[sdegirmenci]

Kıymetli Ömer Hocam,
İlginize çok teşekkür ediyorum. Uyguladım çalışıyor. İşleriniz hep kolay gelsin.

 

[alfalf]

peki ömer hocam aynı şekilde "ali" nin karşısındaki hücreye bütün açıklamaları sıra ile ardarda yazdırabilirmiyiz D4 hücresine.teşekkürler.

 

[Ömer]

Merhaba,

Eki inceleyiniz. İstediğiniz bu mu?

.

 

[alfalf]

buda güzel elinize sağlık. ama ömer hocam aynı hücreye örnekteki "d4" hücresine mesela aralarına virgül koyarak demek istemiştim sanırım yanlış anlattım. ilginize teşekkürler. olabirlirse çok iime yarayacak. başımda bi sipariş kabusu var içinden çıkmaya çalışıyorum.

 

[alfalf]

buda güzel elinize sağlık. ama ömer hocam aynı hücreye örnekteki "d4" hücresine mesela aralarına virgül koyarak demek istemiştim sanırım yanlış anlattım. ilginize teşekkürler. olabirlirse çok iime yarayacak. başımda bi sipariş kabusu var içinden çıkmaya çalışıyorum.

 

[Ömer]

Eklediğini dosyadan birşey anlayamadım maalesef. Olmasını istediğiniz şeklide manuel hazırlayarak açıklarmısınız.

İlk dosyaya göre D4 hücresine birleştirme istiyorsanız aşağıdaki kodları kullanabilirsiniz.

Sayfa1'in kod sayfası bölümüne kopyalayın ve C4 hücresindeki seçeneği değiştirerek gözlemleyin..

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Application.ScreenUpdating = False
If Intersect(Target, [C4]) Is Nothing Then Exit Sub
Range("D4").ClearContents
    For i = 8 To [B65536].End(3).Row
        If Cells(i, "b") = Target Then
            Range("D4") = Range("D4") & "," & Cells(i, "c")
        End If
    Next i
Range("D4") = Right(Range("D4"), Len(Range("D4")) - 1)
Application.ScreenUpdating = True
End Sub

.

 

[alfalf]

Dosya ekte. Istediğimi anlatmaya çalıştım. Ilginize teşekkür ederim.