düşeyara hakkında

[ipkins]

arkadaşlar benim sorunum şu elimde bir liste var

birinci sutun ikinci sutun
a ali
a ahmet
a koray
a veli
b necmi
b kemal

listem bu şekilde uzayıp gidiyor benim sorum şu süz işlemi yapmadan a ya karşılık gelen sutunları bir yere toplamak mesela düşeyara gibi yapıyorum ama en fazla iki satırı buluyorum sınrası hey aynı geliyor bunun kısa bir formülü varmıdır teşekkürler

 

[hakan_bilgi]

AÞAÐIDAKİ KODLARI DÜN YAZDIM SENİNDE İÞİNİ GÃ?RÜR. AÞAÐIDAKİ KODLARI NE YAPACAÐINI BİLMİYOR İSEN BANA hakan_bilgi@hotmail.com veya MSN PROGRAMINDAN ULAÞABİLİRSİN. ADIM ADIM ANLATABİLİRİM.
SAYGILARIMLA


Function ACAYİPARAHB(Aranan_değer, Baş_nok_stun, Veri_Bölgesi, Sonuç_Stun_Sayısı, Kaçıncı_sonuç)

ADET = Application.WorksheetFunction.CountIf(Baş_nok_stun, Aranan_değer)
If ADET = 0 Then ACAYİPARAHB = "Kayda Raslanmadı": Exit Function
BAÞLANGIÇ = Application.WorksheetFunction.Match(Aranan_değer, Baş_nok_stun, 0)
'MsgBox ADET

If Kaçıncı_sonuç > ADET Then
ACAYİPARAHB = Kaçıncı_sonuç & ". Kayıt Yok"
Else
ACAYİPARAHB = Application.WorksheetFunction.Index(Veri_Bölgesi, (BAÞLANGIÇ - 1) + Kaçıncı_sonuç, Sonuç_Stun_Sayısı, 1)
End If

End Function

 

[Levent Menteşoğlu]

Bende size makroyla yapılmış bir örnek gönderiyorum. İnceleyiniz.

selamlar

 

[ipkins]

ellerinize sağlık çok güzel olmuş işimi gördü teşekkür ederim İYİ YILLAR dileğiyle :icelim: :hey: