ilgili hücre boşsa hedef hücreye değer girilmesin

[KAYA212]

Merhaba,
Merhaba,
Q Hücresine bekliyor/kabul/red vb değerleri yazıyorum fakat ÖLÇÜLDÜ yazıldığında K ve L hücreleri boşsa yada belirtilen formatta değilse hata versin ve giriş yapılamasın.Hücrelerin düzeltilmesi/tarih girilmesi istensin.Ayrıca 2. koşu olarak N sütununda ilgili satıra sayısal değerde girilmeli.Aksi halde hata mesajı vermeli.
Teşekkür ederim.

Saygılarımla

 

[Asri]

K ve L kolonları için aşağıdaki kodu sayfanın kod bölümüne yapıştırın.

N kolonu için veri doğrulama tam sayıyı kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim X As Byte
   If Intersect(Target, [Q:Q]) Is Nothing Then Exit Sub
    
    If Target.Value = "ÖLÇÜLDÜ" Then
    
       If Cells(Target.Row, "K") = "" And Cells(Target.Row, "L") = "" Then
           MsgBox ("Ölçüm başlangıç ve bitiş tarihleri boş geçilemez")
           Target.Value = ""
           Exit Sub
       End If
    
       If Cells(Target.Row, "K") = "" Then
           MsgBox ("Ölçüm başlangıç tarihi boş geçilemez")
           Target.Value = ""
       End If
       
       If Cells(Target.Row, "L") = "" Then
           MsgBox ("Ölçüm bitiş tarihi boş geçilemez")
           Target.Value = ""
       End If
       
    End If

End Sub

 

[KAYA212]

merhaba,
Cevabınız için teşekkür ederim fakat uygulamayı yapamıyorum.
örnekte uygulayabilir misiniz?

 

[Asri]

merhaba,
Cevabınız için teşekkür ederim fakat uygulamayı yapamıyorum.
örnekte uygulayabilir misiniz?

Mesaja dosya eklendi.