Koşullu Biçimlendirme Kod Kısaltma

[tamer42]

Merhaba,
Sayfada "E" sütununda sayılar bulunuyor.
"E" sütunudaki değeri, bu sütunun maksimum değerine eşit olması durumunda aynı satırdaki C hücresini (koşullu biçimlendirme) olarak sarıya boyamak için;

for . . . next döngüsü ile aşağıdaki kodu oluşturdum,

for . . . next döngüsüne gerek kalmadan bunu nasıl kısaltabiliriz.

teşekkürler,
iyi Çalışmalar.

Sub KosulluBicimlendirme()
Dim r As Integer
Dim MyRng As Range

r = ActiveSheet.Range("A1").CurrentRegion.Rows.Count

For i = 2 To r
Set MyRng = ActiveSheet.Range("C" & i)

MyRng.FormatConditions.Delete

    MyRng.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=$E" & i & "=MAK($E$2:$E$" & r & ")"
    
    MyRng.FormatConditions(1).Interior.Color = RGB(255, 255, 0)
    
    Set MyRng = Nothing
 Next i
 
End Sub
[end sub

 

[ÖmerFaruk]

Makroyla değil de direkt Koşullu Biçim menüsünden yapabilirsiniz. Daha basit olur kanaatindeyim

 

[tamer42]

Makroyla değil de direkt Koşullu Biçim menüsünden yapabilirsiniz. Daha basit olur kanaatindeyim

r = ActiveSheet.Range("A1").CurrentRegion.Rows.Count

Set MyRng = ActiveSheet.Range("C2:C" & r)

MyRng.FormatConditions.Delete

    MyRng.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=$E2=MAK($E$2:$E$" & r & ")"
  
    MyRng.FormatConditions(1).Interior.Color = RGB(255, 255, 0)

bu şekilde çözüldü,

her şey için teşekkürler,