Koşullu Biçimlendirme.

[s.savas]

İyi akşamlar arkadaşlar.
Ekte sunduğum belgenin Mukayese Cetveli isimli sekmesinde F4:AI150 aralığında 1. ve 2. uygun fiyatları koşullu biçimlendirme ile vurguluyorum.
Satır sayısı fazla olunca dolayısıyla dosya boyutuda büyüyor.
Aşağıdaki koşullu biçimlendirme formüllerini makro ile yapabilirmiyiz.

=F4=KÜÇÜK($F$4:$AI$4;1)

hücre rengi fıstık yeşili oluyor.

=F4=KÜÇÜK($F$4:$AI$4;2)

hücre rengi açık mavi oluyor.

 

[leumruk]

Merhaba,
Sayfa kodunuzun uygun bir yerine ekleyin.

   Target.Interior.ColorIndex = xlNone
   If Target = WorksheetFunction.Small(Range("f" & Target.Row & ":AI" & Target.Row), 1) Then
   Target.Interior.ColorIndex = 4
   ElseIf Target = WorksheetFunction.Small(Range("f" & Target.Row & ":AI" & Target.Row), 2) Then
   Target.Interior.ColorIndex = 8
   End If

 

[s.savas]

Merhaba,
Sayfa kodunuzun uygun bir yerine ekleyin.

   Target.Interior.ColorIndex = xlNone
   If Target = WorksheetFunction.Small(Range("f" & Target.Row & ":AI" & Target.Row), 1) Then
   Target.Interior.ColorIndex = 4
   ElseIf Target = WorksheetFunction.Small(Range("f" & Target.Row & ":AI" & Target.Row), 2) Then
   Target.Interior.ColorIndex = 8
   End If

Teşekkür ederim hocam çok makbule geçti.

 

[leumruk]

Teşekkür ederim hocam çok makbule geçti.

Rica ederim. k::