bir formulle farklı satırlara kosullu bıcımlendırme

[kneehot]

arkadaslar merhaba konulara baktım ama bulamadım cevabı.elımde cok satır var ve her satıra tek tek kosullu bıcımlendırme vermem ımkansız bır kerede butun satırlar ıcın verebılırmıyım bunu dıye sormek ıstedım.her urunun en cok satılan ayının hucresı kırmızı olsun ıstıyorum.ornek ekte.ılgılenenlere tesekkurler.

 

[Ömer]

Merhaba,

2. satırdan başlayarak istediğiniz satırların tümünü seçiniz, Biçim / Koşullu Biçimlendirmede formül bölümüne,

=A2=MAK(2:2) yazarak istediğiniz biçimi seçerek deneyiniz..

 

[Necdet]

Merhaba,

Yapılmış örneği de burada, hemen hemen benzer yöntem.

 

[Ayhan Ercan]

Merhaba Sn kneehot


Benden de makrolu bir örnek..

Ek Dosyayı, "BUL" düğmesini çalıştırarak inceleyiniz....

Private Sub CommandButton1_Click()
Dim x As Long, son As Long, y As Range
son = Range("a65536").End(3).Row
    For i = 2 To son
        x = WorksheetFunction.Max(Range("A" & i & ":M" & i))
        Set y = Cells.Find(x)
        y.Interior.ColorIndex = 3
    Next
End Sub

 

[kneehot]

Cok Tesekkurler Arkadaslar.