soldan sağa giden verilerde bir sonraki bir öncekinden küçükse koşullu biçimlendirme

[modoste]

merhaba sayın hocalarım
ekli dosyada sorumu iletmeye çalıştım,

 

[bmutlu966]

Makro ile çözüm isterseniz ekteki dosyayı kullanabilirsiniz.

 

[modoste]

makro çalıştığında ekli resimdeki (mavi renkli 56897) verinin de sarı renkli olarak boyanması lazım ama hata var kontrol edebilir misiniz makroyu

 

[bmutlu966]

Kodu aşağıdaki şekilde değiştirin. Tekrar kontrol edersiniz.

Sub renklendir()

son = [N65000].End(3).Row
Range("O7:AE" & son).Interior.Color = xlNone

For s = 7 To son
For t = 15 To 150
    If Cells(s, t) <> "" And ilk = "" Then ilk = Cells(s, t)
    If Cells(s, t) <> "" Then son = Cells(s, t)
    If ilk > 0 And son > 0 And son < ilk Then Cells(s, t).Interior.Color = vbYellow: ilk = "": son = "": say = say + 1
    If son > ilk Then ilk = "": son = ""
Next
ilk = "": son = ""
Next

MsgBox say & " Adet hata isaretlendi.", vbCritical

End Sub

 

[modoste]

5632 yazıp makro çalışınca sarı dolgu olmuyo yine, bakabilir misiniz bu hataya sizde deneyin isterseniz

 

[Korhan Ayhan]

Deneyiniz.

P7:AE152 aralığını seçtikten sonra koşullu biçimlendirme formül bölümüne aşağıdaki formülü uygulayınız.

=P7<EĞERHATA(ARA(2;1/($O7:O7<>"");$O7:O7);0)

 

[modoste]

hocam çok teşekkür ederim çözüm için