Soru Macro ile tablo içindeki hücreleri şarta göre renklendirme.

[hamza2011]

Merhaba;

Örnek dosyadaki tablo içinde örneğin;

A3040 ile A3060 arasındakileri mavi renge,
A3061 ile A3083 arasındakileri kırmızı renge makro ile nasıl boyayabilirim. Lütfen konu hakkında yardım eder misiniz

 

[Ömer BARAN]

Merhaba.
Bence makro yerine KOŞULLU BİÇİMLENDİRME uygulamak daha pratik ve kullanışlı olur
ayrıca renkler de hücre değerleri değiştirildiğinde yeni değerlere göre değişebilir.
İlgili alanın tümünü seçip, KOŞULLU BİÇİMLENDİRME => FORMÜL KULLAN seçeneğinde;
-- =VE(PARÇAAL(E3;2;4)*1>=3040;PARÇAAL(E3;2;4)*1<=3060) formülünü uygulayıp mavi rengi seçmek,
-- =VE(PARÇAAL(E3;2;4)*1>=3061;PARÇAAL(E3;2;4)*1<=3083) formülünü uygulayıp kırmızı rengi seçmek,
daha anlamlı bence.
Bu arada eğer ilk harfler hep "A" ise formüller =VE(E3>="A3040";E3<="A3060") ve =VE(E3>="A3061";E3<="A3083") şeklinde daha da kısatılabilir.
.

 

[hamitcan]

Sub Boya()
    [e3:s11].Interior.ColorIndex = xlNone
    For Each hcr In [e3:s11]
        a = Right(hcr.Text, 4)
        Select Case a
        Case 3040 To 3060
            hcr.Interior.Color = vbBlue
        Case 3061 To 3083
            hcr.Interior.Color = vbRed
        End Select
    Next
End Sub

 

[hamza2011]

Ömer BARAN ve Hamitcan ;

Sizlere çok teşekkür ederim.

 

[Ömer BARAN]

Eyvallah.
Keşke açtığınız diğer konuya verilen cevap ile ilgili de geri dönüş yapsaydınız.
.

 

[hamza2011]

Ömer Hocam;
Evet hatırladım, yanılmıyorsam iş yerimde toplantı sırasında açmıştım. Aksi halde cevap yazıyorum. Özrümü kabul edin lütfen!