Ali Mohamed Ali

لماذا تصعب على نفسك ؟!!!! ولما لا تضع هاتين الصفحتين فى ملف واحد بدل من ملفين ؟! عموماً تفضل لك ما طلبت 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

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

وعليكم السلام-لابد ان يحدث معك هذا الخطأ لأنك تقوم بكتابة المعادلة بطريقة غير صحيحة فلابد ان تكون المعادلة هكذا في كل الصفحات فمثلا اذا كان المبلغ المكتوب بالأرقام الذى تريد تفقيطه في الخلية R2 =kh_TextNum($R2,ورقة1!$E$3,ورقة1!$E$4,ورقة1!$E$5,ورقة1!$E$6,$E$7,$E$8,$E$9) صندوق.xlsm

وعليكم السلام -تفضل 29-7-TOTEXT.xlsm

تفضل يمكنك تفهم هذا من هذه الصورة , ثم بعد خطوات الصورة يمكنك عمل Cut للكود ثم التعديل عليه كما تريد وهذا هو الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("A1:h1,H3:H4,E2:G1004,C1000:C1004"), Target) Is Nothing Then Target.Offset(0, 1).Select End If End Sub

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

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

جزاك الله كل خير أستاذ مجدى -عمل رائع , جعله الله في ميزان حسناتك

وعليكم السلام-أهلا بك في منتدانا الكريم ,تفضل لك ما طلبت رسالة تنبيه.xlsx

بارك الله فيك وفى كل من قدم المساعدة لكى يخرج هذا العمل بهذا الشكل وجزاكم الله جميعا كل خير

وعليكم السلام تم تنفيذ طلبك بمعادلة IF مع دالة معرفة LETTEROUT Function LETTEROUT(RNG As Range) Dim I As Integer For I = 1 To Len(RNG) Select Case Asc(Mid(RNG.Value, I, 1)) Case 0 To 64, 123 To 197 LETTEROUT = LETTEROUT & Mid(RNG.Value, I, 1) End Select Next I End Function وهذه هي المعادلة المطلوبة =IF(RIGHT(B2,2)="AM",LETTEROUT(B2),IF(RIGHT(B2,2)="PM",LETTEROUT(B2)+12,"")) A.xlsm

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