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

Brod12

Yeni Üye
Katılım
27 May 2019
Mesajlar
1
En iyi yanıt
0
Puanları
1
Yaş
29
Konum
İzmir
Ad Soyad
Mustafa tuna
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.
 
Üst Alt