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

Katılım
19 Mayıs 2019
Mesajlar
61
Excel Vers. ve Dili
Excel 2010 türkçe
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Dener misiniz ?
Kod:
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
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Satırı bu şekilde değiştirin.
Kod:
 ElseIf hcr.Interior.Color = vbGreen Then
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Dosyanız ektedir.:cool:
Kod:
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
 

Ekli dosyalar

Katılım
19 Mayıs 2019
Mesajlar
61
Excel Vers. ve Dili
Excel 2010 türkçe
İlgilendiğiniz için teşekkür ederim. Sayenizde hallettim.
 
Katılım
19 Mayıs 2019
Mesajlar
61
Excel Vers. ve Dili
Excel 2010 türkçe
Rica ederim.
İyi çalışmalar.:cool:
Sizden son bir ricada bulunabilir miyim? Renklendirdiğim hücreleri renk sırasına sokabilirmiyiz? :unsure: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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Kaç tür renk olacak?
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Önceden olan renklerimi sıraya dizicez.
Bir örnek dosya yollarmısınız.:cool:
 
Katılım
19 Mayıs 2019
Mesajlar
61
Excel Vers. ve Dili
Excel 2010 türkçe
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Son yaptığımamı ilave kod yazılacak(Sıralama),yoksa başka bir kodmu yazılacak?
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Bir resim ekleyin bari.Ben hala anlamadım.:cool:
 
Katılım
19 Mayıs 2019
Mesajlar
61
Excel Vers. ve Dili
Excel 2010 türkçe
Bir resim ekleyin bari.Ben hala anlamadım.:cool:
Ö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.(y)
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Tam anlamadım ama birşeyler yaptım.
Buyurun.:cool:
Kod:
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
 
Katılım
19 Mayıs 2019
Mesajlar
61
Excel Vers. ve Dili
Excel 2010 türkçe
Hallettim. İlginiz için teşekkür ederim.
 
Üst