Rapor Oluşturma Yardım

[silka]

Sevgili hocalarım benim sorunum şu. Elimde upuzun bi liste var (A1:M2000) arasında ve her hafta buraya en az 40 adet veri ekliyorum ben bu listenin bi raporunu oluşturmak istiyorum. Nasıl yapabilirim. Düşeyara formülü ile verileri getirebiliyorum fakat takıldığım konu şu mesela E7 hücresindeki isimden e91 de de var. herşeyi aynı gelecek fakat sonuç kısmında yazan verinin en son tarihli olanını başka bir sayfaya diğer kişisel bilgileri ile birlikte getirmesini istiyorum. bunu düşeyara formülü ile yapamadım acaba bunun için bi makro mu yapmam lazım yoksa başka bi çözüm yolu varmı.

 

[Orion1]

Dosyanız ekte
Kullanıcı tanımlı fonksiyonunuzda aşağıda.

Function sonbul(deg As Range, alan As Range, sut As Byte)
Dim k As Range
Set k = alan.Find(deg, , xlValues, xlWhole, , xlPrevious)
If Not k Is Nothing Then
    sonuc = k.Offset(0, sut).Value
    sonbul = sonuc
    Else
    sonuc = "bulunamadı"
End If
End Function

 

[silka]

çok teşekkürler süpersiniz gerçekten

 

[silka]

peki son bulduğum değerin karşılığında olan tarihi de ayrı bi sütuna yazdırabilirmiyiz

 

[Orion1]

peki son bulduğum değerin karşılığında olan tarihi de ayrı bi sütuna yazdırabilirmiyiz

KTF deki kodlarda
aşağığıdaki kırmızı yeri değiştirin ve altındaki formülü giriniz.

Function sonbul(deg As Range, alan As Range, [B][COLOR="Red"]sut As Integer[/COLOR][/B])

Formül : =sonbul(A6;liste!C:C;-2)

 

[silka]

Ya GerÇekten SÜpersİn Bende Çok ÖĞrenmek İstİyorum Kursa Falan Mi Gİtmem Lazim

 

[Orion1]

Ya GerÇekten SÜpersİn Bende Çok ÖĞrenmek İstİyorum Kursa Falan Mi Gİtmem Lazim

Rica ederim.
O sizin süperliğiniz.
Siteyi takip edin ve sitede satılan kitaplardan bir tane edinebilirsiniz.

 

[silka]

evren bey bu yazmış olduğunuz kod çok işime yaradı ama kullanırken sorun oluyo çok kasıyo çünkü elimdeki liste yaklaşık 6000 lik falan bunu hızlandırma imkanımız varmı

 

[silka]

Evren Bey Bİlİyorum MeŞgulsÜnÜz Ama Çok Acİl Lazim

 

[Orion1]

evren bey bu yazmış olduğunuz kod çok işime yaradı ama kullanırken sorun oluyo çok kasıyo çünkü elimdeki liste yaklaşık 6000 lik falan bunu hızlandırma imkanımız varmı

KTF'de yazdığım kod en hızlı çalışan koddur .daha hızlı çalışmaz.

 

[silka]

ilgi ve alakanıza teşekkürler