DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
selamlar,
ekteki örnek dosyayı incelermisiniz.
C3:d20 hücre aralığına veri doğrulama uygulanmıştır.
Korhan bey öncelikle teşekkür ederim. Peki daha kompleksini yapabilirmiyiz acaba onuda örneğe ekledim. Ayrıca önceki dosya için elinize sağlık bu tarfını düşünemiştim. Size zahmet birde ekli dosyayı incelermisiniz lütfen..
Selamlar,
Ekteki örnek dosyayı incelermisiniz.
C320 hücre aralığına veri doğrulama uygulanmıştır.
Merhaba; BU konu ileilgili cevap alamadım, olmuyosa bilgilendirebilirsneiz sevinirim. Teşekkürler.
teşekkürler arkadaşlar
Teşekkürler yazmışsınız ama ben dosyada bir değişiklik göremedim yani benim eski dosyam bu ? neden eklediğinizi anlayamadım. Teşekkürler.
=VE($F3<>ZAMAN(4;0;0);$D3>=ZAMAN(1;30;0))
=VE($F3<>ZAMAN(4;0;0);$D3>=ZAMAN(1;30;0))
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C3:E65536")) Is Nothing Then Exit Sub
If Cells(Target.Row, "F") > TimeValue("11:00:00") Then
MsgBox "NET sütunundaki değer 11:00 değerinden büyük olamaz !" & Chr(10) & _
"Lütfen girdiğiniz değeri düzeltin !", vbCritical
Target = ""
Target.Select
ElseIf Cells(Target.Row, "F") > TimeValue("04:00:00") Then
If Cells(Target.Row, "D") <> "" And Cells(Target.Row, "D") < TimeValue("01:30:00") Then
MsgBox "NET sütunundaki değer 04:00 değerinden büyük olduğu için MOLA sütunundaki değeriniz 01:30 değerinden küçük olamaz !" & Chr(10) & _
"Lütfen MOLA sütunundaki değeri düzeltin !", vbCritical
Cells(Target.Row, "D") = ""
Cells(Target.Row, "D").Select
Exit Sub
End If
End If
End Sub