Değer girilemesin 0 olsun.

[k0081]

Merhaba arkadaşlar;

G12
G13
G14
G15

bu hücre adreslerine sadece iki değer girilebilsin.. diğer iki tanesine değer girilemesin. 0 olsun..

Şöyle ki ;

G13: 75
G15: 36

girdim diyelim G12 ve G14 e değer giremesin, 0 olsun..

 

[Korhan Ayhan]

Merhaba,

Bu işlemi yapmak istediğiniz sayfanın kod bölümüne aşağıdaki kodu uygulayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Alan As Range, Veri As Range, Say As Byte
    Set Alan = Range("G12:G15")
    If Intersect(Target, Alan) Is Nothing Then Exit Sub
    For Each Veri In Alan
        If Veri.Value <> 0 Then
            Say = Say + 1
        End If
    Next
    If Say > 2 Then Target = 0
    Set Alan = Nothing
End Sub

 

[k0081]

Merhaba,

Hocam çok teşekkürler, ama kodu worksheet_change kısmına yapıştırdım. Fakat herhangi bir değişiklik olmuyor..

**************************

Hocam çok pardon tamamdır, sorunsuz çalışıyor,, özür..

 

[Korhan Ayhan]

Hücrelere veri girip deneyin.