AccessTr.neT

Merhaba Arkadaşlar;

Ekte, kullanmış olduğum Excel dosyasından ufak bir kesinti aldım. Bu dosya yaklaşık 10 kişiye paylaşım yapıyorum ve her personel kendi sayfasını dolduluyor. Bir sorunum var, ilgili kişi "İŞİN ADI" girdiğinde muhakkak "İŞE BAŞLAMA TARİHİ /SİPARİŞ TARİHİ" girme zorunlku olsun, her sheet için bunu nasıl yapabilirm.

Yardımlarınız için şimdiden teelkkür ederim.

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.

(18/09/2024, 09:00)atoykan yazdı: [ -> ]

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.

İlginiz için çok teşekkür ederim, ellerinize sağlık...