başka bir hücredeki 3 den fazla koşul için biçimlendirme

[sakalein]

Sorum kısaca şu.
Örneğn A1=15-254 gibi bir değer olsun a2 hücresi o zaman kırmızı, a2=f234-28 olduğunda mavi gibi.... A1 hücresinin 30 dan fazla değeri için a2 hücresini renklendirmem gerekiyo bunu koşullu biçimlendirme ile yapamıyorum. orada sadece 3 koşul için biçimlendirme oluyo. bana bu konuda yardım edebilecek veya bir link verebilecek biri varsa lütfen yardım etsin

 

[Necdet]

Yaw sakalein bi yerinde duramıyon, peşinden koşup duruyon

Bi orda bi burda konu açıyon hangisine yazcaaaz

Aşağıdaki linkte basit bir örnek verdim, ona bi bakıver sonra yine yeni konular açarsın

http://www.excel.web.tr/showthread.php?p=225179#post225179

 

[sakalein]

öncelikle teşekür ederim ama burada sütün için olmuş ve ben kodlardan pek bişey anlamıyorum bana tek bir hücre için tek bir hücreyi değiştirebileceğim bir kod gönderebilirmisin. benim yapmak istediğim biraz farklı. eki incelerseniz demek istediğimi daha iyi anlayacaksınız

 

[Necdet]

Merhaba,

Sorunuzu tam olarak anlamadım. Herhangi bir hücreye ag5 (ag6.. ag8)yazıldığı zaman mı renk değişecek yoksa belirli bir sütunda bu değerler yazıldığında mı verdiğiniz renkler oluşacak?

Ben herhangi bir hücreye ag5-8 yazıldığında renklenen örnek yaptım. Beğenirseniz geliştirilebilir.

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalamak gerek. Örnek dosyadaki kodlarda böyledir.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
'If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
    i = Target.Row - 1
    j = Target.Column - 1
    If i = 0 Then i = 1
    If j = 0 Then j = 1
    If Target.Value = "a5g" Then
       Range(Cells(i, j), Cells(i + 2, j + 2)).Interior.ColorIndex = 6
    ElseIf Target.Value = "a6g" Then
       Range(Cells(i, j), Cells(i + 2, j + 2)).Interior.ColorIndex = 24
    ElseIf Target.Value = "a7g" Then
       Range(Cells(i, j), Cells(i + 2, j + 2)).Interior.ColorIndex = 43
    ElseIf Target.Value = "a8g" Then
       Range(Cells(i, j), Cells(i + 2, j + 2)).Interior.ColorIndex = 3
    End If
Son:
End Sub

 

[sakalein]

teşekürler

Çok teşekür ederim yapmak istediğim şey için gerekli olan kodu buldum sayende VBA dan pek anlamıyorum ama delphiden az biraz anlarım bunlarda bizim pascal da kullnadığımız kodlara benziyor biraz uğraşarak hallederim çok teşekür ederim

 

[Necdet]

Rica ederim, fikir verebildiysem ne mutlu bana.