Aynı satırdaki sayılardan en büyüğünün dolgu rengini değiştirme

[mavi.ist]

Merhaba yüklediğim dosyadaki gibi bir tabloda aynı satırdaki sayılardan en büyüğünün dolgu rengini değiştiren bir makroya ihtiyacım var.Sütün için olanını buldum ama satıra çeviremedim lütfen yardım.

 

[Necdet]

Neden Makro?

Koşullu Biçimlendirme olmaz mı?

B3:Q1443 aralığını seçtikten sonra Koşullu Biçimlendirme Formül :

=B3=MAK($B3:$Q3)

 

[mavi.ist]

Teşekkür ederim Necdet bey koşullu biçimlendirmeden yapabiliyorum ama bu düzenli olarak yaptığım farklı hedef kitlelerede uyguladığım bir biçimlendirme olacak ayrıca farklı bir makro daha çalıştıyorum.Bunda da makro yazarsam ikisini birleştirip daha kullanışlı hala getirebilirim diye makro istiyorum.

 

[Necdet]

Merhaba,

Kodları dener misiniz?

Sub Makro1()
    
    On Error Resume Next
    
    Dim i   As Long
    
    i = Cells(Rows.Count, "A").End(3).Row
    
    Cells.FormatConditions.Delete
    With Range("B3:Q" & i)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=B3=MAK($B3:$Q3)"
        .FormatConditions(1).Interior.ColorIndex = 3
    End With
    
End Sub

 

[mavi.ist]

Merhaba Necdet bey, kodu çalıştırdığımda ekteki ekran alıntısı gibi bir sonuç verdi.

 

[Necdet]

Merhaba,

Ben gönderdiğiniz örnek dosya üzerinde denedim sorun yoktu.

Yine denedim yine sorun yok.

 

[mavi.ist]

Merhaba

Bende hala aynı hatayı veriyor burdaki dosyayıda indirip tekrar denedim yine aynı sonuç çıktı.Sorun ne anlamadım.

Teşekkür ederim yardım için.

 

[Necdet]

Merhaba,

Dosyayı bir inceleyin bakalım, aynı sorun olacak mı? Butonu kullanın.

 

[mavi.ist]

Bu dosyada da aynı sorun oldu.Office 2007 ya da 2010 olması nedeniyle doğru çalışmıyor olabilir mi.

 

[Ömer]

Merhaba,

Excel sürümüne göre kodu çalıştırmadan önce imlecin bulunduğu satırdan dolayı bu şekilde sorunlar olabiliyor.

Bu şekilde deneyin. İlaveyi kırmızı ila işaretledim.

Sub Makro1()
 
    On Error Resume Next
 
    Dim i   As Long
 
    i = Cells(Rows.Count, "A").End(3).Row
 
    [COLOR=red]Range("B3").Select[/COLOR]
 
    Cells.FormatConditions.Delete
    With Range("B3:Q" & i)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=B3=MAK($B3:$Q3)"
        .FormatConditions(1).Interior.ColorIndex = 3
    End With
 
End Sub

.

 

[mavi.ist]

Merhaba,

Teşekkür ederim Ömer bey kod şimdi çalıştı.Necdet bey size de çok teşekkür ederim.