Veri Kontrol

[bulentkars]

Arkadaşlar Merhaba Ekteki dosyada veri doğrulama ya benzer yardıma ihtiyacım var bu konuda yardımlarınızı bekliyorum şimdiden teşekkür ediyorum

 

[Necdet]

Merhaba,

C sütunu seçin ve Veri Doğrulama-İsteğe Uyarlanmış (Custom) da Formül :

=C1>=B1

 

[ozgretmen]

Ekteki örneği inceler misiniz ?

 

[bulentkars]

ynt

ilginiz için çok teşekkür ederim fakat benim istediğim koşullu biçimlendirme değil eğer girilen rakam uymuyorsa uyarı versin yani izin vermesin vba makroda uyarı versin istiyorum

 

[ozgretmen]

İlgili sayfanın kod yapısına ekleyiniz...

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
i = ActiveCell.Row - 1
a = Cells(i, 3).Value
b = Cells(i, 2).Value
If a < b Then
MsgBox "Girdiğiniz değer Çok Fazla"
Else
End If
End Sub

 

[Necdet]

Merhaba,

Makro ile istemişsiniz. Aşağıdaki kodları ilgili sayfanın kod bölümüne koplayınız. Alternatif olsun.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
    If Target.Offset(0, -1) <> "" And Target.Value < Target.Offset(0, -1) Then
        MsgBox "Satış Değeri Alış Değerinden Büyük Olmalı"
    Target.Offset(0, 0).Select
    ElseIf Target.Offset(0, -1) = "" And Target.Value > "" Then
        MsgBox "Alış Değerini Yazmadınız...."
        Target.Offset(0, -1).Select
    End If
Son:
End Sub

 

[bulentkars]

elinize sağlık olmuş fakat tamama tıkladığımda izin veriyor.ve uyarıda mınımum nekadar gırmesı gerektıgını gostermıyor yanı hucreyı

 

[ozgretmen]

Birde Bu şekli ile deneyiniz...

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C4:C100]) Is Nothing Then Exit Sub
i = ActiveCell.Row - 1
a = Cells(i, 3).Value
b = Cells(i, 2).Value
If a < b Then
Cells(i, 3).Select
Selection.ClearContents
MsgBox "Minimum Değer:" & b
Else
End If
End Sub

 

[bulentkars]

çok teşşekur ederım oldu

 

[ozgretmen]

İyi çalışmalar...