renge göre değer verme

  1. B

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

    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...
Üst Alt