Koşullu Renklendirme ??

[ozgurpeh]

Merhaba,
Aslında bu konu hakkında forumda detaylı güzel örnekler var fakat ben işin içinden çıkamadım ekte örneğim üzerinden anlatacak olursam eğer E sütununda depo yazıyosa ve K sütununda evet yazmıyosa bu hücre sarı olsun ??? bunu sayfaya macro olarak nasıl tanımlarız bilenlerden lütfen yardım bekliyorum. Teşekürler..

 

[ozgurpeh]

özür dilerim dosyayı unutmuşum

 

[nadirornek]

hücrenin dolgu rengini hazırlayamadım ama K sütununda EVET yazınca depo yazı rengi sarı oluyor.

http://uploaded.to/?id=czv1dh

 

[Ali]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E:E,K:K]) Is Nothing Then Exit Sub
satirlar = "B" & Target.Row & ":J" & Target.Row
If Target.Value = "DEPO" And Target.Offset(0, 6).Value = "" Then
Range(satirlar).Interior.ColorIndex = 6
Else
Range(satirlar).Interior.ColorIndex = xlNone
End If
End Sub

 

[ozgurpeh]

hücrenin dolgu rengini hazırlayamadım ama K sütununda EVET yazınca depo yazı rengi sarı oluyor.

http://uploaded.to/?id=czv1dh

Teşekür Ederim;

İşte ben onu yapmaya çalşıyorum ayrıca yanlış belitmişim sadece depo yazan hücre değil örenktede belirttiğim gibi b den J ye kadar olan tüm satır sararsın istiyorum

 

[ozgurpeh]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E:E,K:K]) Is Nothing Then Exit Sub
satirlar = "B" & Target.Row & ":J" & Target.Row
If Target.Value = "DEPO" And Target.Offset(0, 6).Value = "" Then
Range(satirlar).Interior.ColorIndex = 6
Else
Range(satirlar).Interior.ColorIndex = xlNone
End If
End Sub

Teşekür ederim tam benim istediğim gibi fakaT sanırım sen örneği esas alıp yapmışsın bu kodu, normalde sayfayı boş kabul edelim satırlar doldukça olay şekillensin

 

[Orion1]

Ekli dosyayı inceleyiniz.
Koşullu biçimlendirme ile yapıldı.

 

[ozgurpeh]

Ekli dosyayı inceleyiniz.
Koşullu biçimlendirme ile yapıldı.

Orion Hocam, şu hayır seçeneği olmasa işte boş olunca sarı olsa ??

TAMAM PARDON ÇALIŞIYOR ÇOK TEŞEKÜR EDERİM

 

[Orion1]

Orion Hocam, şu hayır seçeneği olmasa işte boş olunca sarı olsa ??

TAMAM PARDON ÇALIŞIYOR ÇOK TEŞEKÜR EDERİM

Ekli dosyayı inceleyiniz.İstediğniz bumu?

 

[ozgurpeh]

Ekli dosyayı inceleyiniz.İstediğniz bumu?

EVET NASIL YAPTIN ??

 

[Orion1]

EVET NASIL YAPTIN ??

Koşullu biçimlendirme ile

 

[ozgurpeh]

Koşullu biçimlendirme ile

onu nasıl yaptın macro ile yapılmazmı bu ??

 

[Orion1]

onu nasıl yaptın macro ile yapılmazmı bu ??

İşinizi görüyorsa bu,makrodan dağa iyidir.

 

[ozgurpeh]

İşinizi görüyorsa bu,makrodan dağa iyidir.

BÜTÜN HÜCRELERE NASIL TANIMLIYCAM BU BİÇİMLENDİRMEYİ PEK BİLGİM YOK BENİM AÇIKÇASI

 

[Orion1]

BÜTÜN HÜCRELERE NASIL TANIMLIYCAM BU BİÇİMLENDİRMEYİ PEK BİLGİM YOK BENİM AÇIKÇASI

Kopyala yapıştır yapınız.
Satırı seçiniz kopyala ,sonrada yapıştırılacak bölgeyi seçiniz yapıştır yapınız.

 

[ozgurpeh]

Kopyala yapıştır yapınız.
Satırı seçiniz kopyala ,sonrada yapıştırılacak bölgeyi seçiniz yapıştır yapınız.

Güzel Söylüyosun ama ben bunu tüm hücreleri dolu bir çalışmaya uygulamak istiyorum bu yüzden makro olsun istiyorum

 

[Orion1]

Güzel Söylüyosun ama ben bunu tüm hücreleri dolu bir çalışmaya uygulamak istiyorum bu yüzden makro olsun istiyorum

Ali bey makrolu çözüm sunmuş.İşinizi görmüyormu?

 

[ozgurpeh]

Ali bey makrolu çözüm sunmuş.İşinizi görmüyormu?

HAYIR TAM İSTEDİĞİM DEĞİL O BEN TEKRAR ÖZETLİYİM DİĞER ARKADAŞLAR İÇİN

A VE I SÜTUNLARI ARASINDA YALNIZCA D SÜTUNUN HERHANGİ BİR SATIRINA DEPO YAZILINCA VE I SÜTUNUNDA DEPO YAZILAN SATIRINDA HERHANGİ BİR YAZI OLMADIĞI ZAMAN A DAN H YE KADAR TÜM SATIR SARASIN FAKAT EVET YAZINCA A DAN H YE KADAR TÜM SATIR BEYAZ OLSUN DİYORUM BEN KISACA

 

[Ali]

Eklediğiniz örneğe göre düzenlenmiştir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E:E")) Is Nothing Then
    satirlar = "B" & Target.Row & ":J" & Target.Row
    If Target.Value = "DEPO" And Target.Offset(0, 6).Value = "" Then
    Range(satirlar).Interior.ColorIndex = 6
Else
Range(satirlar).Interior.ColorIndex = xlNone
End If
End If
   If Not Intersect(Target, Range("K:K")) Is Nothing Then
    satirlar = "B" & Target.Row & ":J" & Target.Row
    If Target.Value = "" And Target.Offset(0, -6).Value = "DEPO" Then
    Range(satirlar).Interior.ColorIndex = 6
Else
Range(satirlar).Interior.ColorIndex = xlNone
End If
End If
End Sub

 

[ozgurpeh]

Eklediğiniz örneğe göre düzenlenmiştir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E:E")) Is Nothing Then
    satirlar = "B" & Target.Row & ":J" & Target.Row
    If Target.Value = "DEPO" And Target.Offset(0, 6).Value = "" Then
    Range(satirlar).Interior.ColorIndex = 6
Else
Range(satirlar).Interior.ColorIndex = xlNone
End If
End If
   If Not Intersect(Target, Range("K:K")) Is Nothing Then
    satirlar = "B" & Target.Row & ":J" & Target.Row
    If Target.Value = "" And Target.Offset(0, -6).Value = "DEPO" Then
    Range(satirlar).Interior.ColorIndex = 6
Else
Range(satirlar).Interior.ColorIndex = xlNone
End If
End If
End Sub

[/QUOT

Teşekürler Ali Bey ve Orion2 sonuca ulaştım sonunda