En Büyük Değer, En Küçük Değer Ataması

[bluefalcon]

Arkadaşlar hepinize merhaba,
Ekte gönderdiğim listede belli görevler mevcut.Bu görevlere tekabül eden en yüksek ve en düşük ücretleri yukarıdaki listeye aktarmak ve aritmetik ortalamasını ortalama kısmına aktarmak istiyorum. Detaylı açıklama dosyada mevcut.Yardımcı olacak arkadaşlara şimdiden teşekkürler...

 

[Necdet]

Merhaba,

2 değişik yöntemle çözülmüş dosyayı inceleyiniz.

1. Dizi Formül
2. Özet Tablo (Pivot Table)

 

[bluefalcon]

Nejdet hocam bravo teşekkür ederim süper çalışıyor.Peki bunu VBA kodları ile nasıl yapabileceğim hakkında bir bilgin var mı? Çünkü bu işlem bir projenin küçük parçalarından takıldığım parçası.

 

[Necdet]

Merhaba,

Sorunun makro bölümünde sorulduğuna bakmadan yanıt vermişim.
Makro konusunda daha yetkili arkadaşlar yanıt verirler bu soruya, beni şimdilik aşıyor.

 

[bluefalcon]

Hocam olsun hiç problem değil.Yardım severliğiniz benim için ziyadesiyle yeterli.Çok teşekkür ederim.

 

[bluefalcon]

Arkadaşlar VBA kodları yoluyla bu işlemi çözebilir miyiz? Yardımcı olabilecek var mı acaba?

 

[bluefalcon]

Arkadaşlar yok mudur bir yardımcı olabilecek zat-ı muhterem?

 

[Ali]

I4 hücrenize

=MAK(EĞER(($D$4:$D$24=H4);$E$4:$E$24))

yazıp direk enter tuşuna basmadan CTRL+SHIFT+ENTER tuşlarına birlikte basarak dizi formülü oluşturup aşağı doğru çekiniz.

J4 hücrenize

=MİN(EĞER(($D$4:$D$24=H4);$E$4:$E$24))

yazıp direk enter tuşuna basmadan CTRL+SHIFT+ENTER tuşlarına birlikte basarak dizi formülü oluşturup aşağı doğru çekiniz.

K4 hücrenize

=ORTALAMA(EĞER(($D$4:$D$24=H4);$E$4:$E$24))

yazıp direk enter tuşuna basmadan CTRL+SHIFT+ENTER tuşlarına birlikte basarak dizi formülü oluşturup aşağı doğru çekiniz.

Not: Excel formül başına ve sonuna otomatik olarak { } ayıraçlarını ekleyecektir. Elle ekleme yapılmamalıdır.

 

[Ali]

Necdet Bey bu cevabı vermiş dikkat etmedim.

 

[bluefalcon]

Ali Bey çok teşekkür ederim. Ancak olayı VBA kodları ile çözüme kavuşturmak istiyorum çünkü bu programın takıldığım yeri.Fonksiyon ile saolsun Nejdet Bey yardımcı oldu.Kodlar ile çözüme kavuşturabilsem tam süper olacak.

 

[hamitcan]

Sub Makro1()
    For i = 4 To 10
        With Cells(i, "i")
            .FormulaArray = "=MAX(IF(R4C4:R24C4=RC[-1],R4C5:R24C5))"
            .Value = .Value
        End With
        With Cells(i, "j")
            .FormulaArray = "=MIN(IF(R4C4:R24C4=RC[-2],R4C5:R24C5))"
            .Value = .Value
        End With
        With Cells(i, "k")
        .FormulaArray = "=AVERAGE(IF(R4C4:R24C4=RC[-3],R4C5:R24C5))"
        .Value = .Value
        End With
    Next
End Sub

şeklinde dener misiniz?

 

[bluefalcon]

Hamitcan kardeşim çok teşekkür ederim. Eline, koluna, beynine sağlık

 

[hamitcan]

Burada Necdet ve Ali beylere de emeklerinden ötürü teşekkür etmek lazım. Nitekim bu formüllerin çoğunu ben de onlardan öğrendim diyebilirim.