Çözüldü If döngü hatası

[brod12]

Rica ederim.
İyi çalışmalar.

Ufak bir sorum daha olacak. Şimdi örnektede olduğu gibi bir buton sayesinde hücre renklerini kırmızıdan maviye, maviden yeşile, yeşilden de beyaza çeviriyoruz. Ama en sonunda hepsi beyaz oluyor. Ama ilk beyaz olanla son beyazı ayırt etmek istiyorum. Hücre rengine göre yan hücreye değer yazdırmak ve eğer renk değişmesse bu değerin artmasını istiyorum. Bu konuda da yardımlarınızı bekliyorum.

 

[Orion1]

Kodlarınızı yazarsanız yardım edecek kişiye,yardım etmiş olursunuz.

 

[brod12]

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

Kod satırı böyle. Renklerin bir yan hücresine renge göre değer versin. 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örebileyim.