İlk büyük değeri renklendir

[CenTay]

Selamlar arkadaşlar N13 te bir sayı var N19:N50 arasındaki sayılardan N13 ten büyük olan ilk sayı renklensin istiyorum Teşekkürler

 

[Ömer]

Merhaba,

N19:N50 arası koşullu biçimlendirme formül:

=KAÇINCI(1;--($N$19:$N$50-$N$13>0);0)=(SATIR(N19)-18)

.

 

[antonio]

Alternatif olarak makrolu çözüm:

Sub renklendir()
Dim sh As Worksheet, aranan, alan As Range, k As Range

Set sh = Sheets("Sayfa1")
aranan = sh.Range("N13").Value
Set alan = sh.Range("N19:N50")
alan.Interior.ColorIndex = xlNone
byk = WorksheetFunction.Max(alan)
If byk > aranan Then
    Set k = alan.Find(byk, , xlValues, xlWhole)
    If Not k Is Nothing Then
        sh.Range("N" & k.Row).Interior.ColorIndex = 6
    End If
End If
End Sub

 

[CenTay]

Teşekkürler arkadaşlar çok sağolun iyiki varsınız.