Aynı sütundaki verileri renklendirme

[ferhatgurbuz]

Aslında bu konuyu aşağıdaki linkte açmıştım ama bir türlü çözüm bulamadım. Formül bilgim o kadar iyi değil yani örmeklerden de çıkartamıyorum. Aklıma başka bir çözüm geldi

K Sutunundaki verilere göre M sutunundaki veriyi renklendirmek istiyorum.

Örnek vercek olursam K11 hücresinde "Doğum İzni" yazıyor ise M11 hücresi sarı dolgu rengi alsın. Ben bunu diğer sutunlardada farklı farklı uygulamak istiyorum. Sonra da bu aynı renkleri toplatmak istiyorum. Eğer farklı bir çözüm yada basit bir yolu varsa yardımcı olursanız sevinirim.

http://www.excel.web.tr/f47/ayny-satyrda-bulunan-ayny-verileri-toplama-t110162.html

 

[ferhatgurbuz]

Bu şekilde bir kodu buldum. Ama bu kod ile sadece K sutununu halledebiliyorum. Benim yaklaşık 10 sutun için bir işlem yapmam gerekiyor. Kodu nasıl düzenleriz yada başka birşey yapabilir miyiz.





Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K11:K21")) Is Nothing Then Exit Sub
Select Case Target
Case "Doğum İzni"
Range("M" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 3
Case "Askerlik"
Range("M" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 4
Case "Hastalık İzni"
Range("M" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 6
Case "Mazeret İzni"
Range("M" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 7
Case "Yıllık İzin"
Range("M" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 8
Case Else
Range("M" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = xlNone
End Select
End Sub

 

[ferhatgurbuz]

bu konuda yardımcı olacak yadı bir fikri olan yokmu

 

[numan şamil]

Merhaba
Ekli dosyada D ve m sutunları kontrol edin
Butona ile makrolar çalışıyor
Modül 1 deki kodları inceleyin istediğiniz kadar sutuna uygulayabilirsiniz
Umarım işinize yarar

 

[numan şamil]

4.Nolu mesajdaki ekli dosya güncellendi

 

[ferhatgurbuz]

çok teşekkür ederim. Hücreye veri girildiğinde olmuyor mu bu kod. Yani buton ile değil d e hücreye veri girişi olduğu anda olsa.

 

[numan şamil]

Merhaba
Ekli dosyayı incelermisiniz
Sayfa1 Kod sayfasını İncelermisiniz