Yazıya bağlı olarak renklendirme

Katılım
14 Mart 2008
Mesajlar
119
Excel Vers. ve Dili
XP TR
Merhaba arkadaşlar.
Ekteki dosyada anlattığım gibi bir bilgiye ihtiyacım var. Herhangi bir hücreye yazılan belirlenmiş bir yazıya göre istediğim aralıktaki hücrelerin dolgu rengini değiştirmek istiyorum. Detaylı ve örnekli olarak eklediğim dosyayı inceleyiniz.

Şimdiden çok teşekkür ederim:)
 

Ekli dosyalar

Katılım
5 Aralık 2008
Mesajlar
73
Excel Vers. ve Dili
Türkçe.
Ilk ücü için örnek yaptım incelersen kosullu biçimlendirme bölümünden digerlerini yapabilirsin ;)
dolgu rengini değiştirmek istedigin hücreleri sectikten sonra kosullu biçimlendirme > Yeni Kural > Biçimlendirilecek hücreleri belirlemek için formül kullan > seçtikten sonra formül kısmına : =F7="SEVK EDİLDİ" seçtikten sonra biçimlendirmeyi yapabilirsin...
 

Ekli dosyalar

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,444
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Koşullu biçimlendirme ile yapmak olası ama, koşul sayısı 3 ten fazla olduğu için makro ile çözüm gerekir.

Aşağıdaki kodların ilgili sayfanın kod bölümünde olmalı.

Kod:
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
If Target.Row < 5 Then Exit Sub
If Target.Value = "hazır" Then
    Range("B" & Target.Row & ":F" & Target.Row).Interior.ColorIndex = 6
ElseIf Target.Value = "iptal" Then
    Range("B" & Target.Row & ":F" & Target.Row).Interior.ColorIndex = 3
ElseIf Target.Value = "sevk edildi" Then
    Range("B" & Target.Row & ":F" & Target.Row).Interior.ColorIndex = 4
ElseIf Target.Value = "beklemede" Then
    Range("B" & Target.Row & ":F" & Target.Row).Interior.ColorIndex = 15
Else
    Range("B" & Target.Row & ":F" & Target.Row).Interior.ColorIndex = xlNone
End If
Son:
End Sub
 

Ekli dosyalar

Katılım
5 Aralık 2008
Mesajlar
73
Excel Vers. ve Dili
Türkçe.
Sn. NEcdet Yeşertener,
Haklısınız. Çok basit ve aslında çözüm olmayan bir sonuç yazdığımı ben de şimdi farkettim. Sizin gibi ustalar sayesinde bizler de öğreneceğiz zamanla.
Teşekkür ederim
 
Katılım
5 Aralık 2008
Mesajlar
73
Excel Vers. ve Dili
Türkçe.
Hocam ekteki örneği güncelledim ve ilk satırı yaptım. Sanırım oldu. İncelermisiniz?
 

Ekli dosyalar

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,444
Excel Vers. ve Dili
Ofis 365 Türkçe
Hocam ekteki örneği güncelledim ve ilk satırı yaptım. Sanırım oldu. İncelermisiniz?
Merhaba,

Koşullu biçimlendirme uygulanacak alan seçildikten sonra formüller aşağıdaki şekilde olmalı

Kod:
=$F5="HAZIR"
=$F5="İPTAL"
=$F5="SEVK EDİLDİ"
 

Ekli dosyalar

Üst