maxdan. minimuma doğru süzüp max değerin değeri aldığı kolonun rengine boyanması

[ismayil]

merhaba,

ekli dosyada a'dan f'ye kadar 6 tane kolon var. ankara satırının büyükten küçüğe doğru sıralanıp max. değerin değeri aldığı kolonun rengi ile aynı renk olmasını nasıl sağlayabilirim .

tşk.

 

[veyselemre]

Örneğinizi inceleyin,

Kullanılan makro,

Sub Sirala()
With WorksheetFunction
    For x = 2 To 4
        a = Range("b" & x & ":g" & x)
            For y = 1 To 6
                Cells(x, y + 7) = .Large(a, y)
                Cells(x, y + 7).Interior.ColorIndex = Cells(1, 1 + .Match(.Large(a, y), a, 0)).Interior.ColorIndex
            Next y
    Next x
End With
End Sub

 

[ismayil]

merhaba,

ekli dosyada a'dan f'ye kadar 6 tane kolon var. ankara satırının büyükten küçüğe doğru sıralanıp max. değerin değeri aldığı kolonun rengi ile aynı renk olmasını nasıl sağlayabilirim .

tşk.

teşekkürler. bir sorum daha olacak. eğer hücredeki değer 0 ise sıfırı sıralamaya dahil etmemesini nasıl sağlayabilirim

 

[veyselemre]

Sub Sirala()
With WorksheetFunction
  Range("h2:m4").Select
  Selection.Interior.ColorIndex = xlNone
  Selection.ClearContents
    For x = 2 To 4
        a = Range("b" & x & ":g" & x)
            For y = 1 To 6
                deg = .Large(a, y)
                If deg > 0 Then
                    Cells(x, y + 7) = deg
                    Cells(x, y + 7).Interior.ColorIndex = Cells(1, 1 + .Match(deg, a, 0)).Interior.ColorIndex
                End If
            Next y
    Next x
End With
End Sub