ayni hucrede ikinci veri dogrulama

[emre eller]

Merhaba arkadaslar A5 hucesine bir kez veri dogrulama yaptik. Diyelim k A5 hucresine tekrardan baska bir veri dogrulama girebilir miyiz. Ilk veri dogrulama da iki sayilar arasidaki sayilar girilecek sadece.ikinci de ise A5:A10 arasindaki sayilar ardisik ise hata verecek sekilde olacak ilki tamam ama ikinci yok malesef bu konuda beni aydinlatmanizi dilerim tesekkur ederim simdiden

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırdığınızda A5:A10 aralığına veri girildiğinde ardışıklık kontrolü yapar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A5:a10]) Is Nothing Then Exit Sub
    If Abs([A5] - [A6]) = 1 And Abs([A6] - [A7]) = 1 And Abs([A7] - [A8]) = 1 And Abs([A8] - [A9]) = 1 And Abs([A9] - [A10]) = 1 Then
        Application.EnableEvents = False
        MsgBox "[A5:A10] aralığı ardışıktır!", vbCritical
        Target = ""
        Target.Select
        Application.EnableEvents = True
    End If
End Sub

 

[emre eller]

ardışık sayılar

Sayın Yusuf teşekkür ederim ilginiz için ancak kodu sayfanın kod bölümüne kopyaladım fakat çalıştırmadı acaba nedeni nedir.

 

[ÖmerBey]

Aşağıdaki formülü A5 hücresinin veri doğrulama kısmına kopyalayınız. Hangi iki sayı arasında olacaksa ona göre düzenleyiniz.

=VE(A5<=[COLOR="Red"]10[/COLOR];A5>=[COLOR="red"]1[/COLOR];MUTLAK(A5-A6)<>1;MUTLAK(A5-A4)<>1)