56 Renkli Biçimlendirmede Hata

[CAFERCİFTCİ]

Değerli Arkadaşlar,Üstadlar,
Kurumuma ait 2010 yılı evrak kayıt cetvelinde J ve O sütunlarında kullanmış olduğum "56 Koşullu Biçimlendirme"çalışmaz oldu.Hatanın kaynağını bulamadım.Yardımlarınızı istirham ediyorum.Saygılarımla...(Ekleme yapabilmek için dosyanın boyutlarını çok küçültmek zorunda kaldm.)

 

[Korhan Ayhan]

Selamlar,

Kodlarınız arasında aşağıdaki kod bloğu bulunmaktadır. Bu kodu bulamadığı için hata veriyor.

Call sirala

Eğer hata bundan kaynaklanmıyorsa "sirala" isimli makronuzuda ekleyiniz.


Ayrıca kodlarınız içinde O sütunu renk işlemi için tanımlanmış görünüyor.

Set rng = Application.Intersect(Target, Me.Range("O:O"))

Bu kodu aşağıdaki şekilde değiştirip deneyin.

Set rng = Application.Intersect(Target, Me.Range("[COLOR=red]J:J[/COLOR],O:O"))

 

[CAFERCİFTCİ]

Sorun Çözüldü

Sayın Korhan Bey,
Dediğiniz gibi sadece O sütununu tanımlamışım.J:O şeklinde tanımladım ve sorun çözüldü,teşekkür ediyorum.Saygılarımla...