eğer bir hücre dolu ise başka bir hücreye değer girmeden kaydetmesin

[quixotic79]

merhaba arkadaşlar yapmak istediğim şey şu; ekteki dosyada deneme sekmesinde bulunan F2 hücresine 22 den daha büyük değer girilemeyecek. Ayrıca f3 hücresi dolu ise mutlaka f2 hücresine 0-22 arasında bir değer girmek zorunda olsun yoksa dosyayı kaydetmesin.şimdiden teşekkürler.[URL=https://dosya.co/ydu0ai1j8ncn/1-_PUANTAJ_HAZIRLIĞI_KİRALIK_ARAÇLAR_(1).xlsx.html]1- PUANTAJ HAZIRLIĞI KİRALIK ARAÇLAR (1).xlsx - 43 KB[/URL]

 

[çıtır]

deneme sayfası kodu olarak kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
If Intersect(Target, [F2]) Is Nothing Then Exit Sub
Target.NumberFormat = " #"
If Target.Value > 22 Or Target.Value < 0 Then
Target.Value = ""
MsgBox "0 - 22 Arasında değer giriniz", vbInformation
Exit Sub
End If
End Sub

Çalışma kitabı kodu olarak kopyalayınız.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("deneme").Range("F2") = "" Then
Cancel = True
End If
End Sub

 

[quixotic79]

Çok teşekkür ederim, istediğim şey oldu.Bir ricam daha olacak bu durumlar gerçekleştiğinde kayıt yapmıyor gayet güzel, bir de kayıt yapmadığını "fazla mesai boş bırakılamaz" diye bir uyarı ile bildirim yapmak için bir kod yazabilirmisiniz? Şimdiden çok teşekkürler.

 

[çıtır]

Çallışma kitabı kodunu aşağıdaki şekilde değiştirin

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("deneme").Range("F2") = "" Then
MsgBox "FAZLA MESAİ BOŞ BIRAKILAMAZ.", vbInformation, "DİKKAT!"
Cancel = True
End If
End Sub

 

[quixotic79]

teşekkür ederim tekrar son bir ricam olacak zahmet olmazsa. bu kodu "deneme" sayfası için değil de bütün sekmelere uygulamanın yolu var mı? yani ismi değişebilir sekmlerin ve çok fazla puantaj sekmesi olabilir.

 

[çıtır]

Deneyiniz.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For i = 1 To Worksheets.Count
If Sheets(i).Range("F2") = "" Then
MsgBox "FAZLA MESAİ BOŞ BIRAKILAMAZ.", vbInformation, "DİKKAT!"
Cancel = True
End If
Next i
End Sub