Hücreye Girilen Veriyi Sınırlama

[ormann]

İyi günler;

G19:G30000 hücre aralığına üç basamaklı ve tek sayı girişini nasıl engelleriz?. Yardımcı olur musunuz ?

 

[Muzaffer Ali]

Merhaba.
Sayfa adını sağ tıklatın "Kod Görüntüle" seçin, açılan kod sayfasına aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("G19:G30000")) Is Nothing Then Exit Sub
    If Not IsNumeric(Target.Value) Or Len(Target.Value) = 3 Or Len(Target.Value) = 1 Then
        With Application
            .EnableEvents = False
            .Undo
            .EnableEvents = True
        End With
    End If
End Sub

Belirtilen aralığa sadece bir basamaklı ve üç basamaklı hariç rakam girişine izin verir.
Aksi halde hücredeki önceki değeri getirir.

 

[Cengiz Demir]

Alternatif olarak bu kodu deneyebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

sat = Target.Row
sut = Target.Column

If sut = 7 And sat > 18 And sat < 30001 Then

    If Target > 99 Or (Target / 2) - Int(Target / 2) <> 0 Then
        Target = ""
        Target.Select
    End If

End If

End Sub

End Sub

 

[ormann]

Çok teşekkür ederim.Bu işlem formül ile yapılabilir mi?

 

[çıtır]

G19,G30000 seçiniz.Veri doğrulama özel.Aşağıdaki formülü kopyalayınız.

=VE(YADA($G19<100;$G19>999);MOD($G19;2)=0)