وائل الاسيوطي قام بنشر سبتمبر 20, 2015 مشاركة قام بنشر سبتمبر 20, 2015 كنت محتاج كل مربع من اللي تحت التاريخ تكون عباره عن زر لظهور نمموذج الادخال اللي في الصفحه اللي بعده تبعا للتاريخ بحيث كل زر يظهر نفس نموذج الادخال بس ليوم مختلف system new.rar رابط هذا التعليق شارك More sharing options...
وائل الاسيوطي قام بنشر سبتمبر 22, 2015 الكاتب مشاركة قام بنشر سبتمبر 22, 2015 لو في صعوبه ياجماعه في الطلب ممكن نتناقش بحيث نوصل لحل تاني سهل انا متهيألي شفت طريقه الادخال المطلوبه في ملف الموظفين لاخي محمد الريفي بس انا عايز اخليها عباره عن ازرار لان الموظف هو اللي هايتعامل مع الملف رابط هذا التعليق شارك More sharing options...
أبوعيد قام بنشر سبتمبر 22, 2015 مشاركة قام بنشر سبتمبر 22, 2015 هل هذا هو طلبك ؟ تفضل system new1.rar 1 رابط هذا التعليق شارك More sharing options...
وائل الاسيوطي قام بنشر سبتمبر 22, 2015 الكاتب مشاركة قام بنشر سبتمبر 22, 2015 شاكر مرورك اخي ابوعيد ولكن مااريده هو مثلا فتحت يوم 1/9 فيظهر نموذج الادخال فسيقوم الموظف بادخال البيانات وتحفظ وعند الضغط مثلا علي يوم 2/9 فيظهر نموذج اخر فارغ لهذا اليوم وهكذا رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر سبتمبر 22, 2015 مشاركة قام بنشر سبتمبر 22, 2015 اخي ابو جنا جرب المرفق واخبرني النتيجة فضلا دبل كليك علي اي خلية تحت التاريخ تحياتي system new2.rar 1 رابط هذا التعليق شارك More sharing options...
وائل الاسيوطي قام بنشر سبتمبر 23, 2015 الكاتب مشاركة قام بنشر سبتمبر 23, 2015 فعلا استاذ عادل لك مني كل شكر وامتننان هذا بالفعل مااردته تماما ولكن استأذنك في طريقه عملها او الكود المستخدم حتي استطيع تطبيقها علي باقي الملف رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر سبتمبر 23, 2015 مشاركة قام بنشر سبتمبر 23, 2015 السلام عليكماحي ابو جنا الحمد لله انه سيلبي حاجتك اما بالنسببة لعمله اولا الشيت الذي اريد نسخه منه باستمرار اسميته Source وجعلته مخفيا يظهر لاخذ نسخة منه ثم يختفي مرة اخري طبعا بالكود الكود المستخدم في شيت اليوم Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row <> 8 Then Exit Sub If Target.Column < 3 And Target.Column > 16 Then Exit Sub If Cells(Target.Row - 1, Target.Column) <> "" Then Application.ScreenUpdating = False Sheets("Source").Visible = True Sheets("Source").Copy After:=Sheets("اليوم") ActiveSheet.Name = Format(Cells(Target.Row - 1, Target.Column), "dd_mm_yyyy") Sheets("Source").Visible = False Application.ScreenUpdating = True End If End Sub وان ا, اردت اي استفسار لايهمك تحياتي 3 رابط هذا التعليق شارك More sharing options...
ابو يوسف المصري قام بنشر سبتمبر 23, 2015 مشاركة قام بنشر سبتمبر 23, 2015 بارك الله لنا فيك وفي علمك استاذ عادل وعيد سعيد رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر سبتمبر 23, 2015 مشاركة قام بنشر سبتمبر 23, 2015 ويبارك الله فيك اخي ابو يوسف وعيد سعيد علينا جميعا تحياتي رابط هذا التعليق شارك More sharing options...
وائل الاسيوطي قام بنشر سبتمبر 23, 2015 الكاتب مشاركة قام بنشر سبتمبر 23, 2015 بارك الله فيك اخي عادل ولكن عندي سؤال هل يمكن استدعاء تلكك الايام لمعالجة البيانات المدخله ؟ثانيا هل يصلح اني لو غيرت الشهر من 9 الي عشره هاتتغير التواريخ اللي موجوده في المربعات بالطبع بس ساعتها هاتفتح يوم جديد ولا هايفتح القديم؟ رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر سبتمبر 23, 2015 مشاركة قام بنشر سبتمبر 23, 2015 اخي ابو جنا الذي تم هو ترحيل وليس معادله فغير كما شئت ستجد البيانات كما هي لا تقلق وعلي فكرة الكود الموجود سيغير التاريخ حسب اليوم الفعلي وذلك لما سيرحل وليس مارحل تحياتي 1 رابط هذا التعليق شارك More sharing options...
وائل الاسيوطي قام بنشر سبتمبر 23, 2015 الكاتب مشاركة قام بنشر سبتمبر 23, 2015 لا تصف كلماتي مهما كانت مساعدتك وسرعه ردك اخي عادل بارك الله فيك وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.