soldan düşeyarama makro

[sirkülasyon]

D17 hücresinde yazılı rakamı D314 aralığında arayacak.
Aradığı rakam C3:C14 "C3:C14 aralığı sabit aralık" aralığında hangi isme denk geliyorsa C17 hücresine yazacak.

Yalnız bu işlemi
D18 hücresinde yazılı rakamı e3:e14 aralığında arayacak. C18 hücresine yazacak.

bunun için benim bakacağı rakamı arama yapacağı aralığı ve yazacağı hücreyi değiştire bileyim.

Yardımcı olmanızı rica ediyor saygılarımı sunuyorum.

 

[sirkülasyon]

Ekli dosyada dilimin döndüğünce belirttim. Yardımlarınızı bekliyorum

 

[Ömer BARAN]

Merhaba.

İlk formül (D17 için) ile kaçıncı büyük sayıyı bulmak istiyorsanız sondaki 1 sayısını ona göre değiştirebilirsiniz.
İkinci formülde (C17 için) de kırmızı kısımdaki sütun adını değiştirerek arama yapacağınız sütunu belirlersiniz.

=BÜYÜK($D$3:$D$14;[B][COLOR="Red"]1[/COLOR][/B])

=İNDİS($C$3:$C$14;KAÇINCI(D17;$[B][COLOR="red"]D[/COLOR][/B]$3:$[B][COLOR="red"]D[/COLOR][/B]$14;0);0)

Sanırım diğerlerini de buna göre yaparsınız.
.

 

[sirkülasyon]

Ömer Abim
Formülle değil de makro ile örnek vermeniz mümkün mü?

 

[Ömer BARAN]

Merhaba.
Mevcut tablo yapınız kod ile çözüm aramanızın anlamını kaybetmesine neden oluyor gibi.
Bence formülleri uygulayıp sonra bunları değere dönüştürmenizde yarar var.
Kurulacak bir döngü yok gibi, veri alanı (başlıklarını kast edeyirom) ile sonuç istediğiniz alan arasında ortak nokta yok gibi.

 

[sirkülasyon]

Canınız Sağ olsun Teşekkür Ederim.
Hakkınızı Helal Edin

 

[Ömer BARAN]

Başka bir öneride bulunayım.
Bu formülleri aşağı doğru kopyaladığınızda diğer dersler için de sonuç elde etmiş olursunuz,
yani sütun belirlemenize (derse ait sütun) gerek kalmaz,
sadece D17 için önerdiğim formülün sonundaki kırmızı 1'i değiştirerek kaçıncı büyüğü elde etmek istiyorsanız onu değiştirirsiniz).

D17 için;

=BÜYÜK(DOLAYLI(ADRES(3;SATIRSAY($D$16:D16)+3;4)&":"&ADRES(14;SATIRSAY($D$16:D16)+3;4));[B][COLOR="Red"]1[/COLOR][/B])

C17 için;

=İNDİS($C$3:$C$14;KAÇINCI(D17;DOLAYLI(ADRES(3;SATIRSAY($D$16:D16)+3;4)&":"&ADRES(14;SATIRSAY($D$16:D16)+3;4));0);0)

Ayrıca;
-- P sütunu için (dizi formülü)

=ORTALAMA(EĞER(ÇİFTMİ(SÜTUN($D3:$O3));$D3:$O3;D3:O3))

-- Q sütunu için (dizi formülü)

=ORTALAMA(EĞER(TEKMİ(SÜTUN($D3:$O3));$D3:$O3;D3:O3))

 

[Ömer BARAN]

Önceki cevaba ekledim.

 

[Muzaffer Ali]

Ekteki dosyayı inceleyin.
Sayfaya eklediğim "Ara Bul Yaz" butonuna tıklayarak açılan forma gerekli bilgileri girdiğinizde istediğiniz sonucu veriyor.

 

[Muzaffer Ali]

Yüzdeleri hesaplamak için gerekli kodları yazmayı unutmuşum.

Sub YuzdeleriHesapla()
    Dim Bak As Integer
    For Bak = 30 To 41
        Range("N" & Bak) = (Range("M" & Bak) - Range("L" & Bak)) / (Range("L" & Bak) / 100)
    Next
End Sub

 

[sirkülasyon]

Ellerinize sağlık. Hakkınızı Helal edin.
TEŞEKKÜR EDERİM

 

[Muzaffer Ali]

Helal olsun, rica ederim.