Tabloda Boş Alana İlgili Satırdaki En Küçük Değeri Yazdırma

[iskitoxin]

Merhaba;

Ekli dosyada görebileceğiniz gibi bir tablo var burada boş veya "0" olan hücrelere ilgili satırdaki en düşük değeri farklı dolgu ve farklı renk ile yazdırmak istiyorum.

Örnek dosya üzerinden gidersek bu işlemin E2 ile L74 hücrelerinde çalışmasını;
H3 deki boş veya "0" olan değerin yerine ilgili satırdaki en düşük değer olan E3 deki değeri yazdırmak istiyorum. Bunu yazarken de misal Turuncu dolguya Kırmızı yazı tipi rengi şeklinde yazdırmak istiyorum.

burada nasıl bir yol izlemem gerekir formül mü makro mu gerekir. Yardımcı olabilir misiniz?

Şimdiden teşekkürler,

 

[ÖmerFaruk]

Aşağıdaki kodu bir modüle içine ekleyip, Makroyu renklendirmek istedğiniz sayfa içindeyken tetiklemeniz yeterli olacaktır.
Not: sorunuzda 3. satır için minimum değeri E3 diye belirtmişsiniz ancak L3 daha küçük.

Sub MinimumDegerYaz()
    For i = 2 To 74
        Kontrol = WorksheetFunction.CountIf(Range("E" & i).Resize(1, 8), 0)
        If Kontrol > 0 And Kontrol < 8 Then
            Minimum = WorksheetFunction.Small(Range("E" & i).Resize(1, 8), Kontrol + 1)
            For k = 5 To 12
                If Cells(i, k) < Minimum Then
                    Cells(i, k) = Minimum
                    Cells(i, k).Interior.ColorIndex = 3
                    Cells(i, k).Font.ColorIndex = 44
                End If
            Next k
        End If
    Next i
End Sub

 

[iskitoxin]

Doğrusunuz Ömer Faruk Bey, L3 daha küçük.
Orijinal dosyada H dan başladığı için kodda aşağıdaki gibi değişiklik yaptım. Sorunsuz çalıştı. Çok teşekkür ederim.

Sub MinimumDegerYaz()
    For i = 2 To 74
        Kontrol = WorksheetFunction.CountIf(Range("H" & i).Resize(1, 8), 0)
        If Kontrol > 0 And Kontrol < 8 Then
            Minimum = WorksheetFunction.Small(Range("H" & i).Resize(1, 8), Kontrol + 1)
            For k = 8 To 15
                If Cells(i, k) < Minimum Then
                    Cells(i, k) = Minimum
                    Cells(i, k).Interior.ColorIndex = 3
                    Cells(i, k).Font.ColorIndex = 44
                End If
            Next k
        End If
    Next i
End Sub

 

[ÖmerFaruk]

Rica ederim. Kolay gelsin.