Ali Mohamed Ali

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

بارك الله فيك

تفضل اتمنى ان يكون الأمر اصبح بسيط معك-فهذا كان يحدث معك كان لديك مشكلة فى ملفك فى تنسيق الرقم القومى غير مطابق للتنسيق الموجود فى الصفحة التى سيتم جلب البيانات منها فلذلك كان يحدث الخطأ معك 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

طالما ان هذا لم يعجبك فعليك برفع الملف مدعوم بشرح كافى عن المطلوب حتى تتمكن الأساتذة من مساعدتك فلا يمكن العمل على التخمين

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

وعليكم السلام-طالما انك لم تقم برفع ملف , فيمكنك الإستعانة بالملف الموجود على هذا الرابط وكان عليك من البداية استخدام خاصية البحث فى المنتدى قبل رفع مشاركتك ,فهناك العديد من الموضوعات التى تخص طلبك https://www.officena.net/ib/topic/92655-مشروع-صغير/?tab=comments#comment-579758

تفضل هذه البرامج-وبالتأكيد تكون بمقابل وليس مجانىة https://pioneers-solutions.com/programs-clinics-management-program وهذا اخر https://gradplatform.com/ وهذا برنامج ثالث https://www.daftra.com/برنامج-إدارة-العيادات-والمراكز-الطبية وهذا رابع https://becreativesystem.com/private-medical-clinics-management-program/ وهذا خامس https://www.pediafree.com/archives/441 وهذا سادس https://digitalcairo.com/simple_emr_arabic.aspx واخيراً http://www.theeastsoft.com/ar/?p=2348

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

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

أنا لم أفهمك اخى الكريم لأنى قمت بعمل كل اللى انت طلبته ولم يعجبك فماذا أفعل ؟!!!! كما ترى بالصورة واذا كان التفقيط يظهر لك بلغة غريبة عما هو موجود بالصورة فلابد من ضبط اللغة العربية عندك فبها مشكلة ويتم ضبطها من لوحة التحكم (Control Panel)

وعليكم السلام تفضل هذه المعادلة لعدد التمويل الشخصى =SUMPRODUCT(--($A$10:$A$26=$A32),--($C$10:$C$26<>"")) أما معادلة التمويل العقارى فهى : =SUMPRODUCT(--($A$10:$A$26=$A32),--($D$10:$D$26<>"")) 1255555.xlsx

جرب الملف الأن تم التعديل ولا تظهر هذه الرسالة

ليس هناك مشكلة في هذا -أهم حاجة ان الملف يعمل بكل كفاءة

فقط عليك الضغط على Alt +F11 وفتح مديول جديد ووضع هذا الكود به مع تحديد الرينج المطلوب كما بالكود وربطه بالزر Sub Print1() Range("a2:b74").PrintOut End Sub

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

وعليكم السلام-تفضل الأثاث.xlsm

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