Min. Max. ortalama değer bulma -süzme

[omt123]

Merhaba,

Ekli resimde belirttiğim gibi. Stok kodunun altına yer alan birim fiyatların her bir stok kodu için min. max ve ort. değerlerini bulmak istiyorum.

Bu konuda yardımcı olabilir misiniz. Forum'daki örneklerde bunu bulamadım. Stok kodunun altındaki birim fiyat satır sayıları 1 ile 1000 arasında değişmektedir.

 

[omt123]

Tekrar merhaba. Görüntülenme sayısı oldukça yüksek fakat soruma yanıt bulamıyorum. Excel üstadlarından yardım bekliyorum oldukça önemli benim için.

 

[Murat OSMA]

Örnek dosyanızı eklerseniz çözüme daha hızlı bir şekilde ulaşabilirsiniz.

 

[omt123]

Min Max ve ortalama değer bulma

Merhaba,

Ekli dosyadaki işlemleri yapıp, satın aldığımız stok kodlu ürünlerin min max ve ort. alış değerlerini bulmak istiyorum.

Yardımcı olabilir misiniz. Konularda bulamadım.

 

[yakamoz3535]

dosyanız ektedir

Dosyanız ektedir.

 

[Murat OSMA]

Şu kodları bir deneyiniz;

Sub Emre()
    Dim i%, a%, b%, liste()
    liste = Array("Min Değer", "Max Değer", "Ort. Değer")
    a = 2: son = Range("J65536").End(3).Row + 1
    For i = 2 To Range("B65536").End(3).Row
        If Cells(i, 1) <> "" Then
            Cells(a, 9) = Cells(i, 1)
            For b = 0 To 2
                Cells(son, "j") = liste(b)
                son = son + 1
            Next b
            Cells(son - 3, "K") = WorksheetFunction.Min(Cells(i, 2))
                Else
            satır = i
            Cells(son - 2, "K") = WorksheetFunction.Max(Range("B" & satır - 1 & ":B" & i))
            Cells(son - 1, "K") = WorksheetFunction.Average(Range("B" & satır - 2 & ":B" & i))
            a = Range("J65536").End(3).Row + 1
        End If
    Next i
    i = Empty: a = Empty: b = Empty: Erase liste
End Sub

 

[omt123]

Murat bey, verdiğiniz makroyu nereye kopyalamam gerekiyor.

 

[Murat OSMA]

Sayfadayken ALT+F11 tuşlarına birlikte basın yada sayfa sekmesi üzerinde sağ tıkayın ve Kod görüntüleyi seçin.
Sonrasında açılan pencerenin üst menülerinden sırayla Insert'i ve Module'yi seçerek verdiğim kodları buraya yapıştırın ve F5 tuşuna basın.