düşeyara hakkında [Archive]

Tüm Versiyonu Göster : düşeyara hakkında

ipkins

31-12-2004, 10:01

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

31-12-2004, 10:54

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

31-12-2004, 14:36

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

selamlar

ipkins

31-12-2004, 15:43

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

Özel Arama