Yardım Hücre rengine göre değer atama

Brod12 · 27 May 2019

Kod:

Sub DoluÇerçeve1_Tıklat()
Dim hcr As Range
If MsgBox("Renkler güncellensin mi?", vbYesNo + vbQuestion) = vbYes Then
For Each hcr In Range("D3:D20")

If hcr.Interior.Color = vbRed Then
hcr. Interior. Color = vbBlue

If hcr.Interior.Color = vbBlue Then
hcr. Interior. Color = vbYellow

If hcr.Interior.Color = vbYellow Then
hcr. Interior. Color = vbGreen

If hcr.Interior.Color = vbGreen
hcr.Interior.Color = vbWhite

Next
GoTo 10
Else
MsgBox "Renkler güncellenmedi."
Exit Sub
End If
10:
MsgBox "Renkler güncellendi."
End Sub

Merhaba. Yukarıdaki kod satırına ekleme yapmak istiyorum. Renklerin bir yan hücresine renge göre değer verdirmek istiyorum. Kırmızıya 1, maviye 2... böyle sıralı bir şekilde gitsin ama ilk beyaz olan bir daha renk değiştirmeyeceği için yan hücredeki değerin her butona bastığımda artmasını istiyorum. Böylece ilk beyaz olan ile son beyaz olan arasındaki farkı görebilmek istiyorum. Yardımlarınızı bekliyorum.

Yardım Hücre rengine göre değer atama

Brod12