+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Paylaşımlı Excel Dosyası (/konu-paylasimli-excel-dosyasi.html)
Paylaşımlı Excel Dosyası - cdenktas - 18/09/2024
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.
RE: Paylaşımlı Excel Dosyası - atoykan - 18/09/2024
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 SubRE: Paylaşımlı Excel Dosyası - cdenktas - 19/09/2024
(18/09/2024, 09:00)atoykan yazdı:ş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.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
İlginiz için çok teşekkür ederim, ellerinize sağlık...