Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    If Sh.Cells(Target.Row, "I").Value <> "" And Sh.Cells(Target.Row, "Q").Value = "" Then

        MsgBox "Lütfen İŞE BAŞLAMA TARİHİ / SİPARİŞ TARİHİ giriniz.", vbExclamation

        Sh.Cells(Target.Row, "Q").Select

    End If

End Sub

şeklinde gireceğiniz bir kod ile kitabınızı makro içeren çalışma kitabı olarak kaydederek paylaşırsanız işin adını giren kim olursa olsun başlama tarihi girmesi uyarı ile ilgii hücreye yönlendirilir.