Ali Mohamed Ali

تفضل هذا الفيديو فبه ما تطلب وترغب https://www.youtube.com/watch?v=mX6JOfgb2hc ولكن فى نهاية الفيديو عند الضغط على Finish & Merge يمكنك الضغط على Edit Individual Documents بدلا من Print Document وذلك للحصول على الملف بالوورد وليس بتنسيق أخر وليس هناك طريقة سوى هذه وهذا هو ملف الوورد المطلوب المرتبات.docx

تفضل تم عمل المطلوب project1.xlsx

الأمر في غاية البساطة كليك يمين على عمود الأرقام مثلا ثم اختيار Format Cells ثم اختيار Number ثم Ok كما بالصورة

على الرغم انك لم تقم الا برفع ملف خالى من البيانات ولم تقوم بشرح المطلوب عليه, الا وقد تم عمل المطلوب كما تريد , تفضل project.xlsx

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

بارك الله فيك وجزاك الله خير الثواب

ليس هناك مشكلة بالملف الذى ارسلته فالملف والمعادلة يعملان بكل كفاءة كما ترى أظن ان المشكلة في نسخة الإكسيل لديك فربما تستخدم نسخة اقل من 2010 او هناك مشكلة في نسخة 2019 غير مكتملة

وعليكم السلام- نورت المنتدى تفضل لك ما طلبت vehicle trip1.xlsx

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

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

بارك الله فيك استاذ عبد اللطيف وزادك الله من فضله

يمكنك تجربة هذا الملف للأستاذ أحمد حمور https://www.officena.net/ib/topic/34679-دليل-هاتف-عصري-نسخه-عربيه-v2/page/3/ PHONE BOOK.xls

تفضل الكود داخل الملف #If Win64 Then Private Declare PtrSafe Function MsgBoxTimeout _ Lib "user32" _ Alias "MessageBoxTimeoutA" ( _ ByVal hwnd As LongPtr, _ ByVal lpText As String, _ ByVal lpCaption As String, _ ByVal wType As VbMsgBoxStyle, _ ByVal wlange As Long, _ ByVal dwTimeout As Long) _ As Long #Else Private Declare Function MsgBoxTimeout _ Lib "user32" _ Alias "MessageBoxTimeoutA" ( _ ByVal hwnd As Long, _ ByVal lpText As String, _ ByVal lpCaption As String, _ ByVal wType As VbMsgBoxStyle, _ ByVal wlange As Long, _ ByVal dwTimeout As Long) _ As Long #End If Sub btnMsgbox() Call MsgBoxTimeout(0, "اللهم صلى على سيدنا محمد", "منتدى أوفيسنا", vbInformation, 0, 4000) Call Test End Sub Sub Test() Application.OnTime Now + TimeValue("00:10:00"), "btnMsgbox" End Sub رسالة الصلاة على سيدنا محمد 2.xlsm

نفس اللى قلته لك قبل ذلك تنسيق الرقم القومى كانوا غيى متطابقين بالصفحتين فتم ضبط التنسيق وعلى ذلك فالمعادلة تمت بكل كفاءة

تم ضبط الملف وتم الإرسال

بارك الله فيك

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

اذا كان هناك شيتين منفصلين فلابد ومن الأفضل عمل المعادلات بهذا الكود ويتم وضع هذا الكود فى الملف المراد وضع المعادلة به ,بعد الضغط على Alt F11 ثم فتح مديول جديد ولصق هذا الكود به وربطه بزر كما فى الملف المرسل لك Sub ToList() Dim finalrow As Long Dim wsd As Workbook Dim wsl As Workbook Dim wsdd As Worksheet Dim wsll As Worksheet 'Open Book with database Set wsd = Workbooks.Open("C:\Users\Ali Mohamed\Desktop\Next.xlsx")'لابد من تغيير عنوان الملف هذا لما هو فى كمبيوترك 'Copy using Index and match to worksheet Set wsll = ThisWorkbook.Worksheets("Sheet1") With wsll.Range("g2") < 0 wsll.Range("g2").Formula = "=INDEX([Next.xlsx]Sheet1!$B$2:$B$5000,MATCH(A2,[Next.xlsx]Sheet1!$A$2:$A$5000,0))" 'Copy row down based on first cell where formula is place finalrow = wsll.Cells(Rows.Count, 1).End(xlUp).Row wsll.Range("g2").AutoFill Destination:=wsll.Range("g2:g" & finalrow) End With 'Activate sheet where formula is placed wsll.Activate wsll.Cells(1, 1).Activate End Sub أما فى حالة نفس الملف بصفحتين مختلفين فالأمر لا يحتاج سوى معادلة Index & Match عادية ولا يحتاج الأمر الى كود =IFERROR(INDEX(Sheet1!$B:$B,MATCH(A2,Sheet1!$A:$A,0)),"")

وهذا ايضا برنامج مجانى للعيادة برنامج العيادة الطبية.rar

أهلا بك في المنتدى-تفضل طالما انك لم تقم برفع ملف مدعوم بشرح كافى ووافى ,يمكنك رؤية هذا الفيديو https://www.youtube.com/watch?v=E2MVMaskbJs

هذه تعتبر معادلة وتقرأ وترأى ما يتم إدخاله فلا يمكن تعديلها ولكن ماذا تقصد لو تم وضع درجة في عمود التحريرى فهو بالفعل يكون به درجة ؟!!!!!! لا افهمك يمكنك التوضيح أكثر على الملف ولكن عموما المعادلات لا ترى هذا

بارك الله فيك أستاذ عمر طالما انك لم تقم برفع ملف مدعوم بشرح كافى عن المطلوب فعليك بمشاهدة هذه الفيديوهات فبها شرح ما تريد https://www.youtube.com/watch?v=Llkad07y4fE https://www.youtube.com/watch?v=J6GASMB1Fps وأيضا بهذا الرابط برنامج كامل لشئون الطلاب https://www.officena.net/ib/topic/78948-برنامج-شئون-الطلاب-كامل-ومفتوح-المصدر-فى-انتظار-تعليقاتكم/ وعلى هذا الرابط أيضا برنامج اخر للأستاذ محمد الدسوقى https://www.officena.net/ib/topic/78332-برنامج-شئون-الطلبه-للاستاذ-محمد-الدسوقي/?tab=comments#comment-503333

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

تفضل https://www.officena.net/ib/topic/45082-تحويل-المعادلات-إلى-أكواد-vba/?tab=comments#comment-264202

لماذا تصعب على نفسك ؟!!!! ولما لا تضع هاتين الصفحتين فى ملف واحد بدل من ملفين ؟! عموماً تفضل لك ما طلبت Basic.xlsm Next.xlsx