Koşullu Biçimlendirme-Tüm satır

[zaxaza]

Herkese merhaba, yapmak istediğimi forumda arattım, ilgili başlıkları inceledim fakat istediğimi bulamadım.

Yapmak istediğim şey şu: Elimde bir kelime listesi var ve A sütununa 1 ya da 0 yazıyoruz. Ve Her satır A hücresindeki 1 ya da 0 değerine göre renk değiştirsin.
Yani A1 hücresinde 1 yazıyorsa 1. satır gri, 0sa ya da boşsa sarı olsun.

Ekte dosyayı gönderiyorum. İngilizce-Türkçe kelime listesi.Hem işine yarayanlar da olabilir.

İlgilenenlere şimdiden teşekkürler.İyi günler.

 

[Orion1]

Merhaba.
Koşullu biçimlendirme uygulandı.
Ekli dosyayı inceleyiniz.

 

[zaxaza]

dosyayı açarken sorun çıkıyo.Açamıyorum. Tekrar eklemeniz mümkün mü acaba? Teşekkürler

 

[AS3434]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
For a = 1 To [a65536].End(3).Row
If Cells(a, 1) = 1 Then
Rows(a).Interior.ColorIndex = 15
Else
Rows(a).Interior.ColorIndex = 36
End If
Next
End Sub

 

[Orion1]

dosyayı açarken sorun çıkıyo.Açamıyorum. Tekrar eklemeniz mümkün mü acaba? Teşekkürler

Dosyayı tekrardan ekledim.
Eski mesajımdan indirebilirsiniz.

 

[zaxaza]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
For a = 1 To [a65536].End(3).Row
If Cells(a, 1) = 1 Then
Rows(a).Interior.ColorIndex = 15
Else
Rows(a).Interior.ColorIndex = 36
End If
Next
End Sub

Çok teşekkür ederim.İstediğim gibi olmuş.Bunu yapmanın kodsuz da bir yolu var mı acaba? Öğrenmek açısından soruyorum. Tekrar çok teşekkürler. İyi çalışmalar.

 

[AS3434]

Sayın Orion2'nin eklediği dosyayı indirin.
Koşullu Biçimlendirme ile yapılmıştır.

 

[Orion1]

Bunu yapmanın kodsuz da bir yolu var mı acaba? Öğrenmek açısından soruyorum. Tekrar çok teşekkürler. İyi çalışmalar.

Koşullu biçimlendirme ile ,aşağıdaki mesajımı dikkate alınız.:cool

Dosyayı tekrardan ekledim.
Eski mesajımdan indirebilirsiniz.

 

[zaxaza]

Dosyayı tekrardan ekledim.
Eski mesajımdan indirebilirsiniz.

Dosyada hata algılandı diyor. Acaba benden mi kaynaklanıyor. Neyse yine de saolun. Kolay gelsin.