Satırı boyamak "A yazınca satır kırmızı olsun"

[howitget]

Merhaba arkadaşlar buraya girmeden önce geçmiş konularda arama yaptım ama satırı bir şey yazınca boyayan bir forum açılmamış herhal.
Bnm sorunum şöyle ben D sütünunda diyelim ki elma girince o satırın kırmızı renge boyandığını portakal girince girdiğim o satırın turuncu olmasını armut girince girilen o satırın yeşil olmasını istiyorum, yani D sütünunda bir kelimeye karşılık bir renkle o girdiğim satırın tamamının boyanmasını istiyorum yazı rengi değil ama arka beyaz rengi bunu nasıl yapabilirim!!
Yardım olabilirseniz sevinirim.
Kolay gelsin,
şimdiden teşekkürler.

 

[uzmanamele]

merhaba
foruma hoşgeldiniz.

koşullu biçimlendirme örneklerini inceleyiniz
http://www.excel.web.tr/f60/kosullu-bicimlendirme-cond-t-onal-formatt-ng-t7558.html

 

[howitget]

Çok teşekkürler arkadaşım
Yaptım
Koaly gelsin, iyi çalışmalar.

 

[howitget]

Yaa tam yapamamışım herhall 3 taneden fazla koşul olmuyor :S
yani elma,portakal,armut oluyor ama muz deyince sarıya boyatamıyorum onun için ne yapmam gerek?

 

[Necdet]

Makro kullanmak gerek yaaaaaaaaaaaaa valla bak

 

[howitget]

Valla 1. koşul için =$E2="RED"
2.koşul için =$E2="blue"
3.koşul için =$E2="black" yazdım mesela belli bir bölgeyi işaretleyip buraya kadar oldu tmm ama 4. bir renk yazamıyorum kaldıki 5 6 7 renk yazmak istiyorum ve ona göre tüm satırları boyasın istiyorum orda tıkandım makroyuda sadece yüzeysel olarak biliyorum.
Nasıl yapcaz?? :S

 

[howitget]

Ekte F24 hanesine ben RST KESİK,REDRESÖR, SANTRAL JENERATÖRDEN ÇALIŞIYOR,RST+REDRESÖR,KABLO ALARMI gibi tümcelerden birini yazdığım zaman o satırı o renge boyamasını istiyorum. Ama koşullu biçimlendirmede 3 tane koşul olduğundan dolayı en fazla 3 renge boyayabiliyorum.Yada 3 tercih için bu işlemi yapabiliyorum.Mesela ben F 5 hücresindeki REDRESÖRÜ silip oraya KABLO ALARMI yazdığım zaman pembe olmasını istiyorum.

 

[fedoom]

selam ben de butip bir koşullu biçimlendirme yaptım fakat problemim her satır için ayrı ayrı formül yazmam gerekiyor bunun daha kolay bir yolu varmı ( 500 adet satıra ayrı ayrı formül yazmam gerekiyor kopyala yapıştırda yapamıyor) yardım lütfen

 

[Necdet]

Merhaba,

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

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
If Trim(Target.Value) = "RST KESİK" Then
    Renk = 15
ElseIf Trim(Target.Value) = "REDRESÖR" Then
    Renk = 19
ElseIf Trim(Target.Value) = "SANTRAL JENERATÖRDEN ÇALIŞIYOR" Then
    Renk = 34
ElseIf Trim(Target.Value) = "RST+REDRESÖR" Then
    Renk = 37
ElseIf Trim(Target.Value) = "KABLO ALARMI" Then
    Renk = 40
ElseIf Trim(Target.Value) = "NECDET" Then
    Renk = 3
Else
    Renk = 2
End If
Range("A" & Target.Row & ":F" & Target.Row).Interior.ColorIndex = Renk
End Sub

 

[Necdet]

selam ben de butip bir koşullu biçimlendirme yaptım fakat problemim her satır için ayrı ayrı formül yazmam gerekiyor bunun daha kolay bir yolu varmı ( 500 adet satıra ayrı ayrı formül yazmam gerekiyor kopyala yapıştırda yapamıyor) yardım lütfen

Merhaba,

Sorunuzu örnek dosya ile destekleyiniz lütfen.

 

[howitget]

Çok saolun Necdet Bey,
Ama ben bu kodları pek bilmediğim için sayfanın neresine koyacağımıda bulamadım.
Araçlar ---> makro ----> visual basic düzenleyicisi
Araçlar ---> makro ----> Microsoft komut dosyası düzenleyicisinden birine mi? kopyalayacam ve de neresine tam olarak kopyalayacağımı bulamadım.
yada yanlış yerde mi arıyorum cevabı?
yinede teşekkürler.
kolay gelsin.

 

[howitget]

Buldum buldum
Çok saol tekrar arkadaşım çok güzel olmuşş yarın iş yerimde uygulayayım.
Hadi kolay gelsin.
byy

 

[howitget]

Günaydın Necdet Bey,
Formül çalışıyor da ama satır ekleyip silince bir hata mesajıyla karşılaşıyorum
'
Run time error '13' :
Type mismatch

Continue End Debug Help
'
Diye bir uyarı mesajı çıkıyor bu neden kaynaklanıyor veya nasıl çözebilirim?
Kolay gelsin.

 

[Necdet]

Merhaba,

Kodları aşağıdaki ekleri yapınca düzelmesi gerek, dener misiniz?.

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
[B][COLOR=red]On Error GoTo Son
[/COLOR][/B]If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
If Trim(Target.Value) = "RST KESİK" Then
    Renk = 15
ElseIf Trim(Target.Value) = "REDRESÖR" Then
    Renk = 19
ElseIf Trim(Target.Value) = "SANTRAL JENERATÖRDEN ÇALIŞIYOR" Then
    Renk = 34
ElseIf Trim(Target.Value) = "RST+REDRESÖR" Then
    Renk = 37
ElseIf Trim(Target.Value) = "KABLO ALARMI" Then
    Renk = 40
ElseIf Trim(Target.Value) = "NECDET" Then
    Renk = 3
Else
    Renk = 2
End If
Range("A" & Target.Row & ":F" & Target.Row).Interior.ColorIndex = Renk
[B][COLOR=red]Son:[/COLOR][/B]
End Sub

 

[fedoom]

tamam hocam hallettim formüllerde ( $B$3 ) $ simgelerini yazmayıp B3 gibi yazarsanız kopyalaya biliyorsunuz sağolun