Yazma Şartı

[musaagac]

Arkadaşlar B1 ile B10 hücresi aralarına değer giriyor girdiğim değerlerden dolayı A1 hücresi renk oluşuyor. Eğer A1 Hücresi kırmızı olursa B sutununa daha veri girişi olmayacak nasıl yapabilirim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz. Ben A1 hücresinin renklenme koşulu bilmediğim için düz mantıkla kodu düzenledim. Koşulu verirseniz kodu güncellerim.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("B1:B10")) Is Nothing Then Exit Sub
    If Range("A1").Interior.ColorIndex = 3 Then
        Application.EnableEvents = False
        Application.Undo
        MsgBox "Veri girişi yapmazsınız!", vbCritical
        Application.EnableEvents = True
        Exit Sub
    End If
    If WorksheetFunction.Sum(Range("B1:B10")) = 45 Then
        Range("A1").Interior.ColorIndex = 3
    End If
Son: Application.EnableEvents = True
End Sub