Ali Mohamed Ali

كده يعنى يعمل فعليك الإنتظار الى ان يفتح

أهلا بك اخى الكريم فى المنتدى يمكنك الإستعانة بهذه الروابط والفيديوهات : https://www.officena.net/ib/topic/49392-جعل-ملف-الأكسل-مشترك-على-اكثر-من-جهاز/ https://www.youtube.com/watch?v=BIkzEM3i-tA https://www.youtube.com/watch?v=EN18dfR2mhw https://www.youtube.com/watch?v=XYXFp9CqKzk

بارك الله فيك استاذنا الكبير جعله الله فى ميزان حسناتك

وعليكم السلام بارك الله فيك وجعله فى ميزان حسناتك ولتعم الفائدة -كلمة السر والحماية : 123

لا يوجد مشكل بالنسبة للغة العربية سوى هذا ابحث لعل البرنامج لا يعمل الا على 32 بت مثلا وانت لديك الويندوز 64 بت

عليك بضبط اللغة العربية على جهازك -وذلك بالدخول على لوحة التحكم Control Panel ثم الدخول على Region Language ثم بعد ذلك انظر الى الصورة

وعليكم السلام تفضل المنتدى الالوان.xlsx

بارك الله فيك استاذ سليم كود ممتاز جعله الله فى ميزان حسناتك

المشاركة مكررة يجب حذفها فقد تم الرد والإجابة على هذا الرابط https://www.officena.net/ib/topic/87966-طلب-مساعدة-طريقة-عمل-مفكرة-مكتبية/

وعليكم السلام تفضل هذا أفضل بالتأكيد Calendar.xlsm

اخى الكريم الملف يعمل بكل كفاءة فقط عليك تحديث برنامج فك الضغط لديك وعموماً تفضل البرنامج مرة اخرى The-Magic-Form-اليوزرفورم السحرى.rar

وعليكم السلام تفضل غير كما تشاء دفتر الحضور.xlsm

تفضل لك ما طلبت _المستودع 2018 - نسخة.xlsm

بعد اذن استاذنا الكبير سليم اذا كان مثلا النطاق الذى تريده من A2:A50 فالمعادلة تكون كالتالى =COUNT(A2:A50)

وعليكم السلام كان عليك من البداية استخدام خاصية البحث فى المنتدى فهناك العديد من الموضوعات مثل طلبك تفضل : https://www.officena.net/ib/topic/86483-تجميع-مجموع-بيانات-في-ملفات-اكسل-في-ملف-واحد/?tab=comments#comment-548015 https://www.officena.net/ib/topic/70789-كيفية-دمج-ملفين-إكسيل-أو-أكثر-في-ملف-واحد/?tab=comments#comment-458486

وعليكم السلام اخى الكريم تم الحل بمعادلة معرفة وهى : Lookup_concat جمع التواريخ في خلية.xlsm

انه امر سهل للغاية كما بالصور

أولا لابد من الضغط على Alt+F11 وليس F11 بمفردها وهذا الكون من أعمال وابداعات استاذنا الكبير ياسر خليل له منا كل المحبة والإحترام Sub ImportDataFromClosedWBUsingVLOOKUP() 'تعريفات المتغيرات Dim WBK As Workbook Dim Rng As Range Dim LastRow As Long 'إيقاف تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'ايقاف خاصية رسائل التنبيه Application.DisplayAlerts = False ' والموجود فى نفس مسار المصنف الحالى Createdليساوى المصنف المسمى [WBK] تعيين قيمة للمتغير 'يقوم هذا السطر ايضا بفتح المصنف فى المسار المذكور Set WBK = Workbooks.Open(ThisWorkbook.Path & "\Created.xlsb") 'تعيين قيمة للنطاق المراد جلب البيانات منه من المصنف المسمى Created Set Rng = Range("A2:b" & Cells(Rows.Count, 1).End(xlUp).Row) '[Sheet1]بدء التعامل مع المصنف الحالى فى ورقة العمل With ThisWorkbook.Sheets("Sheet1") 'تحديد رقم صف أخر خليةبها بيانات فى العمود الأول LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'وضع معادلة دالة البحث فى العمود الثانى والحصول على النتيجةمن العمود الثانى فى المصنف Created With .Range("B2").Resize(LastRow - 1) .Formula = "=IFERROR(VLOOKUP(A2," & Rng.Address(, , , True) & ",2,False),"""")" .Value = .Value End With End With 'اغلاق المصنف المأخوذ منه البيانات بدون حفظ WBK.Close SaveChanges:=False 'إعادة تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub

بارك الله فيك استاذ محمد ان شاء الله هيكون برنامج ممتاز جعله الله فى ميزان حسناتك

تفضل تجربة.rar

وعليكم السلام -أهلا بك اخى الكريم فى المنتدى يمكنك الإستعانة بهذا البرنامج وكلمة السر للدخول للملف هى : 102030 وفيديو الشرح https://www.youtube.com/watch?v=ruZdfrjxgqQ تاريخ الشيكات1.xlsm

تفضل لك ما طلبت ملف النسبه.xlsx

إخوانى الكرام هذا الملف يلغى خاصية القص واللصق وليس عن امكانية حذف الملف ام لا اذا كنت تريد برنامج لعدم حذف الملفات فعليك بتحميل وتسطيب هذا البرنامج وتفعيله دائما على جهازك -كما ان بالمرفقات فيديو لشرح البرنامج واعتقد ان هذا كل طلباتك Prevent-حماية ملفاتك في الحاسوب من النسخ و القص و الحذف.rar

يمكنك وضع هذه الأكواد فى حدث ThisWorkBook Private Sub Workbook_Activate() Application.CutCopyMode = False Application.OnKey "^c", "" Application.CellDragAndDrop = False End Sub Private Sub Workbook_Deactivate() Application.CellDragAndDrop = True Application.OnKey "^c" Application.CutCopyMode = False End Sub Private Sub Workbook_WindowActivate(ByVal Wn As Window) Application.CutCopyMode = False Application.OnKey "^c", "" Application.CellDragAndDrop = False End Sub Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) Application.CellDragAndDrop = True Application.OnKey "^c" Application.CutCopyMode = False End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.CutCopyMode = False End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) Application.OnKey "^c", "" Application.CellDragAndDrop = False Application.CutCopyMode = False End Sub Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Application.CutCopyMode = False End Sub وهذا هو الملف -منع القص او اللصق.xlsm

بارك الله فيك وجزاك الله كل خير وشكرا على رفعك الحل الذى توصلت اليه حتى يكون مرجعا هما لمن يحتاجه