a1 hücresi değiştiğinde makro

[Crazy Drake]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Z = ActiveSheet.Index + 1
If Z = 0 Then Exit Sub
Sheets(Z).Range("c6").Value = Range("B1").Value
End Sub

koduyla b1 hücresi değiştirildiğinde bir sonraki sayfadaki c6 hücresine kopyalıyorum ancak a1 hücresi değiştirildiğindede aşağıdaki kodu çalıştırmasını istiyorum bi türlü yapamadım

    Dim DoğumGünü As Date
    Dim Yaş
    DoğumGünü = Range("A1").Value
    Yaş = FormatNumber(DateDiff("m", DoğumGünü, Now) / 12, 1)
    If Yaş < 18 Then
        MsgBox "Yaş: " & Yaş & vbLf & "18 yaşıdan küçük"
    End If

 

[Korhan Ayhan]

Selamlar,

İkinci kodunuzuda Worksheet_Change olayına yazıp deneyin.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim DoğumGünü As Date, Yaş As Byte
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    DoğumGünü = Range("A1").Value
    Yaş = FormatNumber(DateDiff("m", DoğumGünü, Now) / 12, 1)
    If Yaş < 18 Then
        MsgBox "Yaş: " & Yaş & vbLf & "18 yaşından küçük"
    End If
End Sub