Çözüldü Hücre arkaplan rengi değişikliği

[brod12]

Merhaba. Excel sayfasına bir buton eklemek istiyorum. Butonun işlevi arkaplan rengi kırmızı olanları maviye, yeşil olanları sarıya çevirmek olacak. Renkleri ve sütun sayılarını örnek olsun diye verdim. Mantığını anlarsam ben kendime göre düzenlerim. Sitede ve internette baktım koşullu biçimlendirme menüsü var ama o içeriğe göre biçimlendiyor.

 

[hamitcan]

Dener misiniz ?

Sub RenkDegistir()
    For Each hcr In Selection
        If hcr.Interior.Color = 255 Then
              hcr.Interior.Color = vbBlue
        ElseIf hcr.Interior.Color = 5296274 Then
              hcr.Interior.Color = vbYellow
        End If
    Next
End Sub

 

[brod12]

Böyle bir hata verdi.
Resim

 

[hamitcan]

Satırı bu şekilde değiştirin.

 ElseIf hcr.Interior.Color = vbGreen Then

 

[brod12]

Satırı bu şekilde değiştirin.

 ElseIf hcr.Interior.Color = vbGreen Then

Hata olmadı ama herhangi bir işlevide yok. Size zahmet bir örnek yapabilir misiniz? Ben bir yerde hata yapıyor olabilirim.

 

[brod12]

Satırı bu şekilde değiştirin.

 ElseIf hcr.Interior.Color = vbGreen Then

Şeçili hücrelerdeki sarı renkleri mavi yaptı. Peki ben iki hücre arasını belirtemez miyim? Örnek A1 ile A20 arasını renklendirsin.

 

[Orion1]

Dosyanız ektedir.

Sub DoluÇerçeve1_Tıklat()
Dim hcr As Range
For Each hcr In Range("A1:H22")
    If hcr.Interior.Color = vbRed Then
        hcr.Interior.Color = vbBlue
    ElseIf hcr.Interior.Color = 5296274 Then
        hcr.Interior.Color = vbYellow
    End If
Next
End Sub

 

[brod12]

İlgilendiğiniz için teşekkür ederim. Sayenizde hallettim.

 

[Orion1]

İlgilendiğiniz için teşekkür ederim. Sayenizde hallettim.

Rica ederim.
İyi çalışmalar.

 

[brod12]

Rica ederim.
İyi çalışmalar.

Sizden son bir ricada bulunabilir miyim? Renklendirdiğim hücreleri renk sırasına sokabilirmiyiz? Mesela sarılar ilk sırada ondan sonra mavi ondan sonra kırmızı gibi. Ayrıca bunu bir buton vasıtasıyla yapmak istiyorum.

 

[Orion1]

Kaç tür renk olacak?

 

[brod12]

Kaç tür renk olacak?

Şimdilik 5 tür yeterli olacaktır.

 

[Orion1]

Önceden olan renklerimi sıraya dizicez.
Bir örnek dosya yollarmısınız.

 

[brod12]

Sizin eklemiş olduğunuz dosyadan yapabilir misiniz. Ben daha sonra üzerinde değişiklik yapabilirim diye düşünüyorum.Maalesef askeri birlikte olduğumdan dolayı dosya paylaşımı yapamıyorum.

 

[Orion1]

Son yaptığımamı ilave kod yazılacak(Sıralama),yoksa başka bir kodmu yazılacak?

 

[brod12]

Son yaptığımamı ilave kod yazılacak(Sıralama),yoksa başka bir kodmu yazılacak?

Son yaptığınız örneği sıralamaya sokmak. Bu sıralama işleminide bir butona atamak istiyorum.

 

[Orion1]

Bir resim ekleyin bari.Ben hala anlamadım.

 

[brod12]

Bir resim ekleyin bari.Ben hala anlamadım.

Örnek hücreler sırası ile şu renkte sarı, kırmızı, mavi, sarı, kırmızı gördüğünüz gibi sarı ve kırmızı renkler farklı yerlerde. Ben bir buton vasıtasıyla bunları sıralamaya sokmak istiyorum. 1. Sıra sarı renkli hücreler 2. Sıra kırmızı renkli hücreler daha sonra mavi renkli hücreler gibi. Renk sayıları ve renk sıralaması artabilir. Ben kodun mantığını anlarsam onları halledebilirim.

 

[Orion1]

Tam anlamadım ama birşeyler yaptım.
Buyurun.

Sub DoluÇerçeve2_Tıklat()
Dim hcr As Range
For Each hcr In Range("A1:H22")
    If hcr.Interior.Color = vbYellow Then
        hcr.Interior.ColorIndex = xlNone
        Cells(hcr.Row, "A").Interior.Color = vbYellow
    End If
    If hcr.Interior.Color = vbRed Then
        hcr.Interior.ColorIndex = xlNone
        Cells(hcr.Row, "B").Interior.Color = vbRed
    End If
    If hcr.Interior.Color = vbBlue Then
        hcr.Interior.ColorIndex = xlNone
        Cells(hcr.Row, "C").Interior.Color = vbBlue
    End If
Next
MsgBox "işlem tamam"
End Sub

 

[brod12]

Hallettim. İlginiz için teşekkür ederim.