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...