Makro ile koşullu biçimlendirme

[ottto]

Merhabalar;

"Plan" isimli çalışma sayfamda aşağıdaki işlemi Makro kodu olarak yazmak istiyorum. Yardımcı olursanız sevinirim.

C8 - I29 hücrelerinden oluşan 7 x 22 hücrelik alan içerisinde yolcu sayıları yer almaktadır.

Eğer bu hücrelerdeki sayılar 10 ile 20 arasında ise, hücreyi sarı boya
Eğer bu hücrelerdeki sayılar 10'dan küçük ise, hücreyi turuncu boya

Şimdiden teşekkür ederim.

 

[Murat OSMA]

Makroya gerek yok. Koşullu Biçimlendirme ile yapabilirsiniz.

 

[ottto]

Hocam dosyayı her gün yeniliyoruz. O yüzden makroya ihtiyacımız var. Makrosunu nasıl yaparız

 

[Murat OSMA]

O hâlde bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim Rky As Range
    For Each Rky In Range("[COLOR="Red"]C8:I29[/COLOR]")
        Select Case Rky
            Case [COLOR="red"]10[/COLOR] To [COLOR="red"]20[/COLOR]
                Rky.Interior.ColorIndex = [COLOR="red"]6[/COLOR]
            Case Is [COLOR="red"]< 10[/COLOR]
                Rky.Interior.ColorIndex = [COLOR="red"]44[/COLOR]
        End Select
    Next Rky
    Set Rky = Nothing
End Sub[/FONT]

 

[merakli_72]

farketmez,
dosyayı yenileseniz de yeni değerler koşullu biçimlendirmeye göre yeniden renklendirilirler

 

[ottto]

Sayfa içindeki verileri başka sayfalardan makro ile çekiyoruz. Makroyu çalıştırıp verileri yenileyince kayıtlı olan koşullu biçimlendirme çalışmıyor maalesef. Şimdi yukarıda Murat OSMA hocamın makrosunu, bizim makronun içine ekleyeceğim.

 

[merakli_72]

aslında verileri makro ile başka sayfadan çeksenizde koşullu biçimlendirme gene çalışır
koşullu biçimlendirmede şart yanlış verilmiş olabilir, yada makro ile veri çekmeden önce koşullu biçimlendirmeler siliniyor olabilir, bilgi amaçlı yazdım sadece
Sayın Murat Beyin kodları işinizi gördüyse sorun yok

Saygılarımla

 

[ottto]

Hocam dosyada bir sorun var. Ne olduğunu çözemedik.
Makroyu çalıştırdıktan sonra koşullu biçimlendirmeleri kontrol ediyorum, aynen tanımladığımız gibi duruyor. Ama hücreleri boyama işini yapmıyor. Hatta şöyleki, sadece iki hücreyi boyuyor, diğerlerini boyamıyor.
Ama şimdi murat beyin kodlarını ilave edince sorun çözüldü.

 

[Murat OSMA]

Çözüldüğüne sevindim.

İyi günler.