yüksek değerini bulma

[1903emre34@gmail.com]

arkadaşlar merhaba C2:C6 ve C8:C13 aralığına bakarak D sütününde C2:C6 ve C8:C13 aralığında en yüksek rakamları karşısına yüksek yazısı getirecek şekikde eğer förmülü oluşturuldu ama makro kodu varsa daha uygun olur?

 

[hamitcan]

Aralıklar sabit mi ?

 

[1903emre34@gmail.com]

evet sabit

 

[hamitcan]

Sub Yuksek()
    With WorksheetFunction
        a = .Large([c2:c6], 1)
        b = .Large([c8:c13], 1)
        Cells(.Match(a, [c1:c100], 0), 4) = "Yüksek"
        Cells(.Match(b, [c1:c100], 0), 4) = "Yüksek"
    End With
End Sub

 

[1903emre34@gmail.com]

teşekkürler

 

[qloat]

Selamün Aleyküm Peki hocam söyle bir sayılarımız olsa 1,2,3,4,57,57,56,5,6,7,8,9,10 gibi sayılarımız olsa birinci en büyük sayı ve ikinci en büyük sayı nasıl bize verecek.

=MAX(....:....;1) YAPSAK 57 verecek =MAX(....:....;2) YAPSAK 57 gene verecek
=LARGE(....:....;1) YAPSAK 57 verecek =LARGE(....:....;2) YAPSAK 57 gene verecek

Peki hangi formül bize birincisini 57 ikincisini 56 olarak verecektir. Şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

Selamün Aleyküm Peki hocam söyle bir sayılarımız olsa 1,2,3,4,57,57,56,5,6,7,8,9,10 gibi sayılarımız olsa birinci en büyük sayı ve ikinci en büyük sayı nasıl bize verecek.

=MAX(....:....;1) YAPSAK 57 verecek =MAX(....:....;2) YAPSAK 57 gene verecek
=LARGE(....:....;1) YAPSAK 57 verecek =LARGE(....:....;2) YAPSAK 57 gene verecek

Peki hangi formül bize birincisini 57 ikincisini 56 olarak verecektir. Şimdiden teşekkür ederim.

. . .

Tablo Örneği:

Sub kod()

    Dim SD As Worksheet: Set SD = Sheets("Sayfa1")
    Dim dic As Object, liste(), dizi()
    
    son = SD.Cells(Rows.Count, "A").End(3).Row
    liste = SD.Range("A1:A" & son).Value
    
    ReDim dizi(1 To son, 1 To 1)
    Set dic = CreateObject("scripting.dictionary")
    For x = 1 To UBound(liste, 1)
        aranan = liste(x, 1)
        If Not dic.exists(aranan) Then
            n = n + 1
            dic.Add aranan, n
            ReDim Preserve dizi(1 To son, 1 To 1)
            dizi(n, 1) = liste(x, 1)
        End If
    Next x
    
    MsgBox WorksheetFunction.Large(dizi, 1)
    MsgBox WorksheetFunction.Large(dizi, 2)
    MsgBox WorksheetFunction.Large(dizi, 3)

End Sub

. . .