Makro ile Farklı Renkleri Değiştirme

[ronal39]

Merhabalar,

Elimde yüzlerce soruların olduğu soru havuzu var. Cevaplar tek bir hücrede ve alt alta gelecek şekilde yapılmış. Doğru cevap yeşil olarak belirtilmiş.

Yapmak istediğim sayfadaki RGB(0, 128, 0) olan renk değerlerini RGB(0, 176, 80) olarak değiştirmek.

Desteklerinizi bekliyorum.

 

[AdemCan]

Merhaba, aktif sayfadaki renkleri değiştiren kodlar.

Sub test()
Application.ScreenUpdating = False
Dim hucre As Range

For Each hucre In ActiveSheet.UsedRange
    If hucre.Interior.Color = RGB(0, 128, 0) Then
        hucre.Interior.Color = RGB(0, 176, 80)
    End If
Next

Application.ScreenUpdating = True
End Sub

 

[ronal39]

Sanırım yapamadım. Renkler değişmedi. Değişen renkler arasında çok fark yok, ton farkı var gerçi ama değişmedi yine de.

https://drive.google.com/file/d/1yqvBtXo4_4xKgk-R_6U-cpV1xSBUpmUl/view?usp=sharing

 

[AdemCan]

Paylaştığınız bağlantı Oturum Açma gerektiriyor, Dosyanın görünüm ayarlarını değiştirip yeniden paylaşır mısınız?

 

[ronal39]

Kusura bakmayın. Şimdi düzenledim.

 

[AdemCan]

İlk paylaştığım kod dolgu rengi içindi ancak dosyanızda yazı tipi rengi olduğu için kodu değiştiriniz.
Aktif sayfanın B sütununda cevapların olduğu hücrelerin yazı tipi rengini değiştirir.

Sub test()
Application.ScreenUpdating = False

For i = 3 To ActiveSheet.Cells(Rows.Count, 2).End(3).Row Step 2
    ActiveSheet.Cells(i, 2).Font.Color = RGB(0, 51, 102)
Next i

Application.ScreenUpdating = True
End Sub

 

[ronal39]

Aslında yapmak istediğim değişiklik yeri geldiğinde doğru şıkların yeri geldiğinde de diğer şıkların rengini değiştirebilmek.
Yani sayfada sorularda cevaplarda dahil olmak üzere ........ renk kodunu içerenleri ........ renk kodu ile değiştirmek istiyorum. mevcut ve yeni renkler değiştiğinde direkt müdahale edebilmek istiyorum.

 

[AdemCan]

Paylaştığınız dosyada olmasını istediğiniz sonucu da ekler misiniz?

 

[ronal39]

Paylaştığınız dosyada olmasını istediğiniz sonucu da ekler misiniz?

Mevcut ve olması gereken diye sayfaları ekledim dosyaya. Dediğim gibi doğru cevap renklerinin tonları değişti sadece.

MALİ İŞLER.xlsb

drive.google.com

 

[ronal39]

Merhabalar,
Sorum günceldir.