Brod12
Yeni Üye
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.