Koşullu Biçimlendirme

[tifose]

Merhaba,

Bir sutunda bulunan 4 kelime grubunu tarayıp, kelimeye bulunduğu satıra göre A dan P ye kadar belirlenmiş olan renk ile koşullu biçimlendirme yapmak istiyorum.

Ek' de bulunan test dosyasında ki bir şey olmasını istiyorum ama beceremedim.

Yardımlarınız için şimdiden teşekkur ederim.

 

[security]

dosyanız ekte..

 

[tifose]

Merhaba,
Çok teşekkur ederim, istediğim tam olarak böyle ama nasıl yaptığınızı anlatmanız mümkün mü acaba ben bakıp anlayamadım.

 

[security]

Merhaba,
Çok teşekkur ederim, istediğim tam olarak böyle ama nasıl yaptığınızı anlatmanız mümkün mü acaba ben bakıp anlayamadım.

Rica Ederim...
Koşullu biçimlendirme ile değil Makro İle Yapılmıştır...

 

[tifose]

Peki koşullu biçimlendirme ile yapmak mümkün olmaz mı illa makro mu olması gerekiyor bu tarz bir işlem için ?

 

[security]

Peki koşullu biçimlendirme ile yapmak mümkün olmaz mı illa makro mu olması gerekiyor bu tarz bir işlem için ?

Olur Tabiki Fakat koşullu Biçimlendirmeye 3 koşul ekleyebilirsiniz Sizin ise 4 koşulunuz var o yüzden makro ile hazırladım...

 

[tifose]

Olur Tabiki Fakat koşullu Biçimlendirmeye 3 koşul ekleyebilirsiniz Sizin ise 4 koşulunuz var o yüzden makro ile hazırladım...

Kusura bakmazsanız makroyu buraya yapıştırmanız mümkün mü?

 

[security]

Ekli dosyada Mevcut... Sayfanın kod bölümüne bakınız...

 

[abuzerkilli]

Private Sub Worksheet_Change(ByVal Target As Range)
'Coder By Security 2012
If Intersect(Target, Range("B1:B65536")) Is Nothing Then Exit Sub
Select Case Target
Case "Urgent"
Range("A" & Target.Row & "" & Target.Row).Interior.ColorIndex = 3
Case "High"
Range("A" & Target.Row & "" & Target.Row).Interior.ColorIndex = 4
Case "Medium"
Range("A" & Target.Row & "" & Target.Row).Interior.ColorIndex = 6
Case "Longterm"
Range("A" & Target.Row & "" & Target.Row).Interior.ColorIndex = 7
Case Else
Range("A" & Target.Row & "" & Target.Row).Interior.ColorIndex = xlNone
End Select
End Sub

 

[tifose]

Private Sub Worksheet_Change(ByVal Target As Range)
'Coder By Security 2012
If Intersect(Target, Range("B1:B65536")) Is Nothing Then Exit Sub
Select Case Target
Case "Urgent"
Range("A" & Target.Row & "" & Target.Row).Interior.ColorIndex = 3
Case "High"
Range("A" & Target.Row & "" & Target.Row).Interior.ColorIndex = 4
Case "Medium"
Range("A" & Target.Row & "" & Target.Row).Interior.ColorIndex = 6
Case "Longterm"
Range("A" & Target.Row & "" & Target.Row).Interior.ColorIndex = 7
Case Else
Range("A" & Target.Row & "" & Target.Row).Interior.ColorIndex = xlNone
End Select
End Sub

Çok Teşekkur ederim...

 

[abuzerkilli]

Private Sub Worksheet_Change(ByVal Target As Range)
'Coder By Security 2012
If Intersect(Target, Range("B1:B65536")) Is Nothing Then Exit Sub
Select Case Target
Case "Urgent"
Range("A" & Target.Row & "" & Target.Row).Interior.ColorIndex = 8
Case "High"
Range("A" & Target.Row & "" & Target.Row).Interior.ColorIndex = 4
Case "Medium"
Range("A" & Target.Row & "" & Target.Row).Interior.ColorIndex = 6
Case "Longterm"
Range("A" & Target.Row & "" & Target.Row).Interior.ColorIndex = 7
Case Else
Range("A" & Target.Row & "" & Target.Row).Interior.ColorIndex = xlNone
End Select
End Sub

 

[security]

Rica Ederim ... İyi Çalışmalar...