Hücrelerde 18 yaş altı olduğu zaman sesli uyarı vermesi

[ASLAN7410]

3 ayrı hücrede şahısların doğum tarihlerini girdiğimde diğer başka bir hücrede günün tarihinden otomatik çıkartarak, şahıs 18 yaşından küçükse sesli uyarı mesajı vermesini istiyorum, şimdiden teşekkürler.

 

[mersilen]

3 ayrı hücrede şahısların doğum tarihlerini girdiğimde diğer başka bir hücrede günün tarihinden otomatik çıkartarak, şahıs 18 yaşından küçükse sesli uyarı mesajı vermesini istiyorum, şimdiden teşekkürler.

Merhaba
D1 hücresine istediğiniz tarihini yazın yada now() olarak kullanın
A1-A2-A3 hücrelerine doğum tarihlerini yazarak deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1,A2,A3,A10")) Is Nothing Then
    'If Format((Cells(1, "d") - Target.Value), "yy") < 18 Then
    If Format(Now() - Target.Value), "yy") < 18 Then
      Beep
      MsgBox "Hello"
    End If
End If
End Sub

 

[baydeniro]

Sayın mersilen teşekkürler. Kodda 2 durum var :
1) If Format((Now() satırında Format yazısından sonra (( 2 adet aç parantez olmalı.
2) Kod End Sub bölümünde hata mesajı veriyor !!

 

[ASLAN7410]

kodlar çalışmadı

 

[ASLAN7410]

ilginize teşekkürler ama,
If Format(Now() - Target.Value), "yy") < 18 Then
üstte yazılı bu formül kırmızı yazı ile belirtiyor ayrıca, herhangi bir de uyarı vermiyor

 

[ASLAN7410]

Çok teşekkür ederim Allah razı olsun, çalışmalarınızda başarılar dilerim.

 

[mersilen]

ilginize teşekkürler ama,
If Format(Now() - Target.Value), "yy") < 18 Then
üstte yazılı bu formül kırmızı yazı ile belirtiyor ayrıca, herhangi bir de uyarı vermiyor

Haklısınız
Parantezin biri eksikmiş.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1,A2,A3,A10")) Is Nothing Then
    'If Format((Cells(1, "d") - Target.Value), "yy") < 18 Then
    If Format[COLOR="Red"]([/COLOR](Now() - Target.Value), "yy") < 18 Then
      Beep
      MsgBox "Hello"
    End If
End If
End Sub