محمد صبحى عبدالنعيم

للرفع

اشكرك اخى الفاضل لسعه صدرك المشكله تظهر فى الملف الناتج من التحويل حيث يظهر التاريخ سنه ثم شهر ثم يوم بدلا من العكس ارفقت صورة لهذه المشكلة اخى العزيز وقمت بتعديل الكود بالماكرو والخطاء ليس فى الماكرو بل فى الملف الناتج من التحويل تقبل تحياتى ExToWord1.rar

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

السلام عليكم ورحمة الله وبركاتة تحية اعزاز وتقدير لكل عضو من اعضاء المنتدى الكريم الرجاء المساعدة فى حل اخطاء تحويل نطاق من اكسيل الى الورد و التراجع مع الحماية بالملف المرفق المطلوب وهو حل الاخطاء التى تحدث عند تحويل نطاق فى الاكسيل الى الورد . 1- فى وندوز اكس بى اوفيس 2007 يعمل الماكرو مرة ويقف الثانية ويقع الخطاء عند With ActiveDocument.PageSetup 2- فى ويندوز 10 اوفيس 2010 لايعمبل الماكرو ويحدث الخطاء عند WordApp.Visible = True 3- هو تعديل التاريخ فى ملف الورد الناتج من التحويل فهو يظهر من اليسار لليمين .. مع العلم اننى اضفت مكتبه الورد الى ال VB Microsoft Word ??.0 Object Library ومرفق صور لارقام الاحطاء وملف الورد موضح به اتجاة كتابة التاريخ 4- وهو عدم الرجوع للخلف او التراجع عن مسح خليه فى شيت التفارير بسبب كود حماية المعادلات . تقبلوا خالص احترامى وتقديرى انتظر منكم المساعدة اخوكم محمد صبحى ExToWord.rar

استذى المبدع دائما ياسر خليل أبو البراء اشكرلك سعت صدرك وصبرك الجميل لكم اتمنى ان اصل الى جزء من عقلك المبدع معك كل الحق لقد قمت بما اصبو اليه انا فى ملف الاكسيل المطلوب التعديل عليه ولاكنى اطمع فى ان يكون بنفس محطياته اى الفورم الجميل الذى يستخدمه معلمنا الكبير استاذنا عبدالله بوقشير وكانت هناك محاولات منى للتعديل على الملف ليجعل حدث نقل البيانات يحدث مع الانتقال الى الصفحه المختارة ولاكن معلوماتى المتدنيه بالفجوال بيسك لم تتخطى عقبه هذا الكود لانه هو يحدد الشيت المختار لنقل البيانات Set Sh = Sheets("التقرير") اشكرك استاذى الفاضل ادعوا الله العلى القدير ان يزيدك من علمه وينعم عليك بالصحه والعافيه تقبل منى فائق الاحترام والتقدير

للرفع

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

بل اعتذر انا اخى الفاضل ومعلمنا ابو البراء اعلم ان الجميع بمن فيهم انا لديه مايشغلة من امور الحياه والعمل ؟ وسعدت كثيرا عندما وجدت اول رد على موضوعى منك اخى ابو البراء ؟ وطمعت ان اجد ضالتى فى موضوعى من احد الاخوة الافاضل بالمنتدى الكريم ؟ لانى مبتداء و قليل الخبرة فى التعامل مع الاكسيل , هذان هما الكودان المراد دمجهما Option Explicit ---------------------------------------------------------------------------------------------- 'الكود الاول لنقل بيانات الموظف Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 3 And Target.Row > 1 Then Application.ScreenUpdating = False Application.EnableEvents = False Cancel = True Dim Sh As Worksheet, lRow As Long Set Sh = Sheets("التقرير") lRow = Target.Row With Sh .Range("B3,C3,D3,E3,F3,G3").Value = "" .Range("H3,I3,J3,K3,L3").Value = "" If Not IsEmpty(Target) Then .Range("A3").Value = Date .Range("B3").Value = Cells(lRow, "B").Value .Range("C3").Value = Cells(lRow, "C").Value .Range("E3").Value = Cells(lRow, "D").Value .Range("F3").Value = Cells(lRow, "F").Value .Range("G3").Value = Cells(lRow, "H").Value .Range("H3").Value = Cells(lRow, "N").Value .Range("I3").Value = Cells(lRow, "T").Value .Range("J3").Value = Cells(lRow, "U").Value .Range("K3").Value = Cells(lRow, "V").Value .Range("L3").Value = Cells(lRow, "X").Value .Range("M3").Value = Cells(lRow, "Y").Value .Range("N3").Value = Cells(lRow, "Z").Value .Range("O3").Value = Cells(lRow, "AA").Value .Range("P3").Value = Cells(lRow, "AB").Value .Activate MsgBox "تم اعداد تقرير للموظف " & Cells(lRow, "C").Value & " Ýí æÑÞÉ ÇáÊÞÑíÑ", 64 End If End With Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub ---------------------------------------------------------------------------------------------- 'الكود الثانى لنقل الى ورقه التقرير المرادة Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Application.CommandBars("Workbook Tabs").ShowPopup End Sub انتظر المساعدة ولكم جزيل الشكر والتقدير

السلام عليكم ورحمة الله الاخوة الاعزاء السلام عليكم ورحمة الله الاخوة الاعزاء الرجاء المساعدة فى دمج كودين الكود الاول . هو كود ترحيل خلايا فى صف الى شيت اخر فى حدث دبل كليك على اسم الموظف ( الكود طبعا من منتداكم الرائع من موضوع تقرير منفصل لكل موظف ) الكود الثانى . هو كود فورم التنقل بين صفحات المصنف تظهر فى حدث رايت كليك على اسم الموظف (الكود طبعا من منتداكم الرائع من موضوع كود التنقل الى اي صفحة في ملف اكسيل ) المطلوب هو دمج الكودين بحيث عندما يضغط المستخدم رايت كليك على اسم الموظف تظهر فورم التنقل ويختار اى شيت يتم نقل بيانات الموظف الى هذا الشيت ولكم جزيل الشكر مرفق الملف للتعديل Book1.rar

سلمت يمينك ا ياسر

للرفع من 12 ابريل للرفع

السلام عليكم ورحمة الله بعد اذن اساتذتى الكرام اعتقد ان هناك اخطاء فى هذه الدوال واهمهم هو ازالة الصفر من اليسار لان لو اردنا ان نستخدم هذه الدوال فى اى رقم وليكن رقم تليفون ستكون النتيجه خطاء واعتقد ان افضلهم هى هذة الدالة =SUBSTITUTE(A2;" ";"") لانها تعمل فقط على المسافات تحياتى للجميع

بعد اذن استاذى الفاضل لماذا لانستخد هذة الدالة =LEN(SUBSTITUTE(A2;" ";""))

الاخ الفاضل محمد ابو البراء هل يمكنك تجربة المعادلة الاخيرة على هذا الرقم 0122768/1208 تجد ان الكود لايزيل الشرطه المائلة تقبل تحياتى