Bir Hücredeki Bilgiye Göre Bulunduğu Satırı Renklendirme

[canat]

Arkadaşlar merhaba,

ekteki dosyadaki bilgilere göre satır renklendirmek istiyorum.
yardımcı olursanız sevinirim.
Olmasını istediğim şey,

Ekli dosyadaki Status bölümünde yazan bilgiye göre tüm satırı renklendirmek
Açık İş Emri : beyaz renkte kalacak
Hatta : yeşil renk olacak
Stoktan Kaymış : Sarı renk olacak
Testte : turkuaz renk olacak
Sevke Hazır : kırmızı renk olacak

Ama sadece o hücre değil tüm satır statustaki durumuna göre renk alacak.

Ayrıca Sevk Edildi Sütünda EVET yazıyorsa statustaki durumu gözardı edilecek renk mavi olacak

 

[Ömer]

Merhaba,

Module kopyalayıp çalıştırın.

Sub Renklendir()
 
    Dim i As Long, c As Range, Adr, Renk
 
    Range("A2:Y" & Rows.Count).Interior.ColorIndex = 0
 
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "Y") = Range("AA9") Then
            Renk = Range("Z9").Interior.ColorIndex
            Range("A" & i, "Y" & i).Interior.ColorIndex = Renk
        Else
            With Range("AA3:AA7")
                Set c = .Find(Cells(i, "O"), , xlValues, xlWhole)
                If Not c Is Nothing Then
                  Adr = c.Address
                    Do
                      Renk = Cells(c.Row, "Z").Interior.ColorIndex
                      Range("A" & i, "Y" & i).Interior.ColorIndex = Renk
                      Set c = .FindNext(c)
                    Loop While Not c Is Nothing And c.Address <> Adr
                End If
            End With
        End If
    Next i
 
End Sub

.

 

[canat]

Ömer Bey merhaba,

Yardımınız için teşekkür ederim. Rica Etsem onu excell dosyasına siz eklermisiniz. Ben makroyu kullanamıyorum pek fazla. Kurcaladım ama çalıştıramadım.
Şimdiden teşekkürler

 

[Ömer]

Dosyanız ektedir.

.

 

[canat]

Çok teşekkür ederim emeğinize sağlık tam istediğim gibi oldu.

 

[aslanbey41]

Bu benimde işime yarayacak teşekkürler amabende birşey sorsam? mesela B sutununa "FATURA" yazdığımda (B:J) satırı istediğim renkde olsun isterim formülü nasıl olmalı?
Şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Koşullu biçimlendirme size daha uygun olacaktır. Linki inceleyiniz.

Koşullu biçimlendirme (conditional formatting)

.

 

[aslanbey41]

Teşekkür ederim ömer bey yalnız koşullu biçimlendirmede seçip yapmak falan gerekte ben kısaca formülle mümkün mü acaba dedim.
Teşekkür ederim.

 

[Ömer]

Koşullu biçimlendirmeyi formülle yapabilirsiniz.

Örneğin B1:J25 aralığın seçin, koşullu biçimlendirmede formül bölümüne;

=$B1="Fatura"

yazıp biçimden istediğiniz rengi seçin ve tamam ile işlemi bitirin.

Eğer istediğiniz formül değilde makro ise belirtirseniz ona göre kod yazarım.