• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan canat
  • Başlangıç tarihi Başlangıç tarihi
Katılım
24 Kasım 2010
Mesajlar
5
Excel Vers. ve Dili
2003-2007-2010 tr
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
 

Ekli dosyalar

Merhaba,

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

Kod:
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
.
 
Ö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
 
Çok teşekkür ederim emeğinize sağlık tam istediğim gibi oldu.
 
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.
 
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.
 
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.
 
Geri
Üst