Koşullu biçimlendirme ile renklendirme de yardım

[Washanq]

Merhaba arkadaşlar,

Elimde bir dosya var, bu dosyada statü sütunun da "Tamamlandı" (tırnaklar dahil değil) yazdığımda o satırı C2 hücresinden V2 hücresine kadar renklendirmek istiyorum. Bunu Tekil olarak 1 satırda yaptım ama tablonun tamamına nasıl uygularım?

Bu renklendirme de 2 koşul olacak Statü'de Tamamlandı var, yada Boş. Referans alınacak değer bu olacak.

Yardımlarınız için şimdiden teşekkür ederim.

 

[TEGCreative]

Merhaba washanq ; varsayım olarak konuşuyorum. Örneğin dosyanız da "Tamamlandı" ibaresi C sütununda yazılıyor diyelim. Ve sizde C2'den V2'ye kadar. Burayı renklendirmek istiyorsunuz. O zaman o sayfanın kod bloğuna girip

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = "3" And Target.Value = "Tamamlandı" Or Target.Value = "tamamlandı" Then
Range("A" & Target.Row & ":V" & Target.Row).Interior.ColorIndex = 38 '38 değeri renk kodudur.
Else
Range("A" & Target.Row & ":V" & Target.Row).Interior.Color = xlNone
End If
End Sub

Kod şunu yapar. Eğer C sütununda tamamlandı yazısını görürse belirtmiş olduğumuz satır aralığını 38 kodlu renk ile boyar. Değilse hiçbir dolgusuz olarak kalır.

 

[Washanq]

Merhaba washanq ; varsayım olarak konuşuyorum. Örneğin dosyanız da "Tamamlandı" ibaresi C sütununda yazılıyor diyelim. Ve sizde C2'den V2'ye kadar. Burayı renklendirmek istiyorsunuz. O zaman o sayfanın kod bloğuna girip

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = "3" And Target.Value = "Tamamlandı" Or Target.Value = "tamamlandı" Then
Range("A" & Target.Row & ":V" & Target.Row).Interior.ColorIndex = 38 '38 değeri renk kodudur.
Else
Range("A" & Target.Row & ":V" & Target.Row).Interior.Color = xlNone
End If
End Sub

Kod şunu yapar. Eğer C sütununda tamamlandı yazısını görürse belirtmiş olduğumuz satır aralığını 38 kodlu renk ile boyar. Değilse hiçbir dolgusuz olarak kalır.

Öncelikle Allah razı olsun. İstediğim sorunun tam cevabını vermiş oldunuz.

Peki bunu şu şekilde geliştirmek istesem yardımcı olma şansınız var mıdır?

Önemlilik Derecesini koşullu biçimlendirmiştim hücre de çalışıyor,

Oradaki Değer;

1 ise tüm satırı kırmızı
2 ise tüm satırı turuncu
3 ise tüm satırı sarı
4 ise tüm satırı açık yeşil
5 ise tüm satırı yeşil

statü değeri tamamlandı ise tüm satırı gri arka font (index 16) yazı rengi beyaz olacak şekilde düzenlemek çok yüssüz bir isteğim olur mu :biggrin:
Statü boş ise renk değerini tüm satır önemlilik derecesinden alacak.

Dosyayı şu link'e yükledim

 

[TEGCreative]

NOT : Belirtmeyi unuttum. Koşullu biçimlendirmeyi tüm sayfanızdan iptal ediniz. Ondan sonra kodun çalışmasını deneyiniz.

Merhaba ; istediğiniz bu mudur acaba ?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = "8" And Target.Value = "Tamamlandı" Or Target.Value = "tamamlandı" Then
Range("A" & Target.Row & ":V" & Target.Row).Interior.ColorIndex = 16
Range("A" & Target.Row & ":V" & Target.Row).Font.ColorIndex = 2
ElseIf Target.Column = "2" And Target.Value = "1" Then
Range("A" & Target.Row & ":V" & Target.Row).Interior.ColorIndex = 3
ElseIf Target.Column = "2" And Target.Value = "2" Then
Range("A" & Target.Row & ":V" & Target.Row).Interior.ColorIndex = 46
ElseIf Target.Column = "2" And Target.Value = "3" Then
Range("A" & Target.Row & ":V" & Target.Row).Interior.ColorIndex = 6
ElseIf Target.Column = "2" And Target.Value = "4" Then
Range("A" & Target.Row & ":V" & Target.Row).Interior.ColorIndex = 43
ElseIf Target.Column = "2" And Target.Value = "5" Then
Range("A" & Target.Row & ":V" & Target.Row).Interior.ColorIndex = 4
End If
End Sub

 

[Washanq]

Allah razı olsun, çok teşekkür ederim hakkınızı helal ediniz. İstediğimin cevabı oldu kesinlikle.

Bende iç içe else kullanarak yapayım diyordum meğerse bir sonraki için elseif yazmam gerekiyormuş "block if without end if" bu hatayı alıp duruyordum

 

[TEGCreative]

Allah burada birbirine yardım eden herkesten razı olsun. İş gördüyse ne mutlu. İnceleyerek öğreniliyor bu meret. Daha da öğrenilecek o kadar çok şey var ki.. Kolay gelsin iyi çalışmalar.

 

[Washanq]

Teşekkürler, Size de.

 

[nes432]

peki bi sıralama butonu ekleyerek renkli satırlar başta olmak üzere örneğin b sütunundaki veriye göre eskiden yeni tarihe göre sıralama yaptırılabilir mi her butona basışta sıralicak

 

[Washanq]

Allah burada birbirine yardım eden herkesten razı olsun. İş gördüyse ne mutlu. İnceleyerek öğreniliyor bu meret. Daha da öğrenilecek o kadar çok şey var ki.. Kolay gelsin iyi çalışmalar.

Merhaba,

Bu konuyla ilgili bir soru daha sorabilir miyim?

Planlanan Bitiş Tarihi G sütununda,
Bitiş Tarihi H sütununda,
İş Durumu D sütununda,

Bu alanlara göre,

Bitiş tarihi alanı boş ise, iş durumu devam ediyor (metin) ve planlanan bitiş tarihi bugünün tarihinden küçükse satırı kırmızıya boyama kodu ile ilgili olarak yardımcı olabilir misiniz?

önceki postlarınıza göre statü durumlarına göre yapabiliyorum ama bugünün tarihi kısmını dahil edemedim

 

[TEGCreative]

Merhaba,

Bu konuyla ilgili bir soru daha sorabilir miyim?

Planlanan Bitiş Tarihi G sütununda,
Bitiş Tarihi H sütununda,
İş Durumu D sütununda,

Bu alanlara göre,

Bitiş tarihi alanı boş ise, iş durumu devam ediyor (metin) ve planlanan bitiş tarihi bugünün tarihinden küçükse satırı kırmızıya boyama kodu ile ilgili olarak yardımcı olabilir misiniz?

önceki postlarınıza göre statü durumlarına göre yapabiliyorum ama bugünün tarihi kısmını dahil edemedim

Merhaba sayın washanq; deneme şansım olmadı

ElseIf Target.Column = "7" And Target.Value < Date Then
Range("A" & Target.Row & ":V" & Target.Row).Interior.ColorIndex = 3
ElseIf Target.Column = "7" And Target.Value = "" Then
Range("H" & Target.Row).Value = "Devam Ediyor"

Kod bloğunda "End If" 'den önce bu kodları ekler misiniz ?
Deneyip sonucu yazarsanız sevinirim.

 

[Washanq]

Merhaba sayın washanq; deneme şansım olmadı

ElseIf Target.Column = "7" And Target.Value < Date Then
Range("A" & Target.Row & ":V" & Target.Row).Interior.ColorIndex = 3
ElseIf Target.Column = "7" And Target.Value = "" Then
Range("H" & Target.Row).Value = "Devam Ediyor"

Kod bloğunda "End If" 'den önce bu kodları ekler misiniz ?
Deneyip sonucu yazarsanız sevinirim.

Elinize sağlık veriyi girdiğimde bugünün Tarihinden küçükse otomatik olarak kırmızıya çekiyor, esas istediğim belirtmedim ama o mantıkla çalışıyordur diye düşünüyorum, bugünün tarihini girdim yarın baktığımda otomatik olarak kırmızıya çekecek mi ilgili satırı yoksa manuel giriş kontrolü sağlayıp mı algılayacak onun için de yarın dönüş yapacağım size.

Tekrar teşekkür ederim.

 

[Washanq]

Merhaba sayın washanq; deneme şansım olmadı

ElseIf Target.Column = "7" And Target.Value < Date Then
Range("A" & Target.Row & ":V" & Target.Row).Interior.ColorIndex = 3
ElseIf Target.Column = "7" And Target.Value = "" Then
Range("H" & Target.Row).Value = "Devam Ediyor"

Kod bloğunda "End If" 'den önce bu kodları ekler misiniz ?
Deneyip sonucu yazarsanız sevinirim.

Gün bazında denetimi otomatik olarak gerçekleştirmiyor maalesef, veri satırında güncellemeyi manuel yaparsak tarih dilimini algılıyor. Bunun otomatik olmasını sağlatabilir miyiz?

 

[TEGCreative]

Merhaba, dün akşam yazdığınızda bir kaç şey denedim fakat bilgim ancak bu kadarına yetebildi. Üstadlardan yardımcı olan çıkar belki.

 

[1903hilal]

Merhaba;
elimdeki dosyada üç satırda bir renklendirme yapmak istiyorum.
=MOD(SATIR();2)=1 formülüyle beceremedim koşullu biçimlendirmede yardımcı olabilir misiniz?