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

Katılım
19 Mayıs 2019
Mesajlar
61
Excel Vers. ve Dili
Excel 2010 türkçe
Rica ederim.
İyi çalışmalar.:cool:
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Kodlarınızı yazarsanız yardım edecek kişiye,yardım etmiş olursunuz.:rolleyes::D
 
Katılım
19 Mayıs 2019
Mesajlar
61
Excel Vers. ve Dili
Excel 2010 türkçe
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
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.
 
Üst