Ali Mohamed Ali

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

أولا لابد من الضغط على 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

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

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

جرب هذا عمل شاشة افتتاحية بطريقة احترافية.xlsm

وعليكم السلام-اهلا بك اخ كريم فى المنتدى تفضل تم عمل اللازم وتم عمل ترقيم تلقائى لرقم الفاتورة ايضا داخل الكود INVOICE CARGO.xlsm

أهلا بك اخ كريم فى المنتدى عليك برفع الملف حتى يمكن العمل عليه تجنبا لإهدار الوقت ولا يمكن العمل على التخمين

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

تفضل لك ما طلبت http://www.mediafire.com/file/9oypdhqpw7m22ix/شيت+مستر+ملاك+2019.rar

وعليكم السلام لك ما طلبت تحول التاريخ الى نص.xlsm

أهلا بك اخى الكريم فى المنتدى تفضل لك ما طلبت بمعادلات المصفوفة مثال.xlsx

أخى الكريم اهلا بك فى المنتدى عليك باستخدام خاصية البحث فى المنتدى فهمو مليء بكنوز من نفس الموضوع

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

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

وهذه هى المعادلة الثانية =OR(AND(CELL("row")=ROW(),CELL("col")+1>COLUMN()),AND(CELL("col")=COLUMN(),CELL("row")+1>ROW()))

وعليكم السلام تفضل مثال.xlsx

ادخل وشوفهابنفسك من Conditional Fprmattring

تم ايضا الرد على هذا الرابط https://www.officena.net/ib/topic/87863-أريد-عمل-نموذج-مثل-هذه-الصفحة-تلوين-الصف-والعمود/ ورجاءا لا تقوم بتكرار المشاركات لنفس السؤال فهذا مخالف لشروط ومبادىء المنتدى بارك الله فيك

من قائمة Home ثم Conditional Fprmattring ثم بعد ذلك كتابة المعادلات الموجودة كما بالصور للون الأصفر واللون الأزرق ثم كتابة بعد ذلك هذا الكود فى حدث ThisworkBook Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.ScreenUpdating = True End Sub