hangileri sorusuna yanıt?

[amelie]

Merhaba...Elimdeki bir veritanındaki bilgileri denetlerken (sorgularken) bazı soruları foknsiyonlarla çözebiliyorum.Mesela Ekteki örnekte olduğu gibi hangi üyenin kaç kitap aldığı sorusuna cevap bulabiliyorum ancak Üyenin hangi kitapları aldığı sorusuna ilişkin cevabı veremedim.Bu konuna nasıl bir yöntem izlemeliyim acaba arkadaşlar?
Saygılarımla.

 

[hamitcan]

Bir fonksiyon yazdım. Umarım işinize yarar.

Function hangikitap(isim)
For Each hucre In [a2:a10]
If isim = hucre Then sonuc = sonuc & hucre.Offset(0, 2) & ", "
Next
hangikitap = Mid(sonuc, 1, Len(sonuc) - 2)
End Function

 

[Merhum İdris SERDAR]

fomülle yapılmış dosya ekte.

 

[amelie]

Öncelikle her iki Üstada da cevapları için teşekkür ediyorum ve kendimi şanslı sayıyorum bu sitenin varlık amacına uygun siz değerli insanların fikirlerine ortak olabildiğim için.Öyle cevaplar ki hem VBA tarafından hem de fonksiyon tarafından anlamlı.Lakin henüz VBA tarafına yüklenemediğim için Sayın Yurttas'ın örneği benim gibi öncelikli olması gereken fonksiyon bilgisini güçlendirmek isteyen arkadaşlara büyük destek.Ve ümid ediyorum VBA tarafında da kendimi çalışmalar içinde bulabileceğim gün gelecektir.
Her iki Üstada da tekrar saygılarımı sunarım.
İçten Sevgilerimle.

 

[mesudiye_052]

Örnek çalışma

 

[amelie]

Sayın Mesudiye değerli katkınızdan ötürü size de teşekkür ederim.İşte bu sitenin en güzel tarafı tek bir soruya farklı bakışlar ve çözümler.
Katkınız için tekrar teşekkür ederim.
Saygılarımla.