Bir Hücrede İki Farklı Kriter (Veri Doğrulama)

[yorum.halil]

Sizlerden İsteğim Kısaca Şöyle…Günlük Ücret Bölümüne Sadece Rakam Yazılabilsin. Fakat Eğer ADI SOYADI bölümü dolu değil ile günlük ücret bölümüne RAKAM DAHİ yazılmasın…Yani Adı soyadı varsa diğer bölümü kullanabilsinler. Veri doğrulama ile sadece birini yapabilidim. İki koşulu aynı anda nasıl kullanbilirim acaba

Şimdiden tşk.

 

[yorum.halil]

• Ya Adminler Grevde bizim haberimiz yok...
• Ya Sitede "Cevap Verilmeyecek Üyeler" diye KARA LİSTE var ve bende o listenin içindeyim...
• Ya Bana sıra gelmedi...
• Yada çok saçma bir soru sordum da o yüzden cevap yazılmadı...

Acaba hangisi :hihoho:

 

[Orion1]

Aşağıdaki kodları çalışma sayfasının kod bölümüne yazınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C4:C65536]) Is Nothing Then Exit Sub
If Target.Value = Empty Then Exit Sub
If Target.Offset(0, -1).Value = "" Then
    MsgBox "Adı Soyadı bölümü boş olamaz..!", vbCritical, "DİKKAT"
    Target.Value = Empty
    Target.Select
    Exit Sub
End If
If Not IsNumeric(Target.Value) Then
    MsgBox "[ " & Target.Value & " ] Sayısal bir değer değil..!!", vbCritical, "DİKKAT"
    Target.Value = Empty
    Target.Select
    Exit Sub
End If
End Sub

 

[yorum.halil]

Daha anlaşılır olsun diye basit bir örnek dosya hazırlamıştım.. Ama sizin cevabınızı gördükten sonra benim asıl dosyaya uyarlanmayacağını gördüm. Çünkü asıl dosyada C Sütunu gibi 3 sütun daha var...

Yeni dosya göndermeye de yüzüm yok. Kusura bakma üstad senide gecenin bir yarısı uğraştırdım. Hakkını helal et....

 

[Ayhan Ercan]

....... asıl dosyada C Sütunu gibi 3 sütun daha var...

Aşağıdaki Satırda bunu halledebilirsiniz..

If Intersect(Target, Range("C4:C65536,E4:E65536,K4:K65536")) Is Nothing Then Exit Sub