ضاحي الغريب

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

الاخ الكريم // ابو أدم بارك الله فيك وجاري عمل فورم ايصال ان شاء الله عما قريب ارفقه لك تقبل تحياتي

الأخ الكريم // أحمد بكر عمل رائع تسلم ايديك بارك الله فيك ولك منا دعوة طيبة لتغيير اسم الظهور الي العربية علي الرابط التالي http://www.officena.net/ib/index.php?showannouncement=21&f=135 تقبل تحياتي

أخي الحبيب // حمادة عمر ( روح المنتدي) بارك الله فيك وجزاك الله خيرا الأخ الكريم // القنوع ما اجمل من لغة الضاد فقد كرمها الله سبحانه وتعالي واكرمنا اننا منها الأخ الحبيب / محمد الحاج فقد ان الاوان لجني الثمار ماشاء الله بارك الله فيك مشاركة جميلة وادعوا الله لك بمزيد من التقدم تقبلوا تحياتي جمعيا

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

أخي الكريم // حسام وبعد اذن اخي الحبيب // حمادة عمر جزاه الله خير وبارك الله فيه وجعل اعماله في ميزان حسناته تم ضبط جلب البيانات من صفحة المصدر 2013 وذلك بتعريف اسم DATA ليصبح شكل الدالة كالتالي =VLOOKUP(E17;DATA;6;0) وتم حذف جدول البيانات الموجود بكشف الحساب وكذلك في شيت 2013 تم نقل عمود التاريخ بعد عمود الكود حتي يدخل ضمن البحث بواسطة Vlookup http://www.gulfup.com/?0JSarv

أخي الكريم // قنديل غير قيمة عندك خطأ في y = y +2 غيرها الي y = y + 1 Sub ragab_Gr2() Dim LR As Integer LR = [b10000].End(xlUp).Row sheet31.Range("B14:P1000").ClearContents sheet32.Range("B14:P1000").ClearContents Application.ScreenUpdating = False X = 14: y = 14 For i = 13 To LR If Cells(i, 16).Value = "äÇÌÍ" And Cells(i, 2) <> "" Then Range("B" & i).Resize(1, 16).Copy sheet31.Range("B" & X).PasteSpecial xlPasteValues Application.CutCopyMode = False X = X + 1 ElseIf Cells(i, 16).Value = "ÏæÑ ËÇä" And Cells(i, 2) <> "" Then Range("B" & i).Resize(1, 16).Copy sheet32.Range("B" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False y = y + 1 End If Next i Application.ScreenUpdating = True End Sub كنترول المرحلة الابتدائية2.rar

أخي الحبيب // معادلة الأخ الحبيب // جمال عبدالسميع (ابو محمود ) ملك المعادلات سليمة لا توجد بها اخطاء الخطا من عندك في ادخال التاريخ قم بكتابة التاريخ كالتالي الشهر ثم اليوم ثم السنة او السنة ثم الشهر ثم اليوم جرب وشاهد النتيجة

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

أخي الكريم // فارس تم نقل الفورم لبرنامج 22 وضبط الاكواد قم بمراجعته جيدا تفاديا للاخطاء ان كان هناك تعديلات اعلمني بها برنامج 22.rar

أخي الكريم // محمد تم اضافة خيار الطباعة للفورم فقد استبدل ملفك بالملف التالي Classeur1 (version 1)B.rar

أخي الكريم // محمد قمت باجراء تعديل في الصادر والوارد ولم تظهر رسايل خطا ماهي نسخة الاوفيس لديك وسوف اضيف لك عمود اخر لرقم الصادر يمكنك البحث به حتي تتمكن من البحث في المراسلات القديمة

اخي الحبيب / فارس جزاك الله خيرا علي دعائك ولك مثله اين (برنامج 22) الذي ترغب بنقل الفورم اليه

اخي الكريم // انا جربت الطباعة وعندي لا تظهر مشكلة راجع الصورة التالية

بعد أذن أخي الحبيب المبدع // شوقي ربيع ((( ربيع المنتدي ((ملك الحركات)) ولاثراء الموضوع اخي // محمد المحسن بالمرفقات الملف تم تعديل شاشة الدخول وباس وورد الدخول 111 اضافة عرض صورة المستند من تبويب (تعديل البيانات ) بالفورم أختار المراسلات - المراسلات الصادرة أو الواردة وبعد ادخال رقم المعاملة اضغط عرض صورة المستند وبعد عرضها اختار رجوع للرجوع للفورم مرة اخري مع ملاحظة ان يتم حفظ صور المستندات الصادرة برقم الصادر في مجلد Outgoing وصور المستندات الواردة برقم الوارد في مجلد Incoming تم اخفاء الشيت بالكامل والتعامل فقط من خلال الفورم واذا كنت ترغب بالدخول الي الشيت اختار من الفورم (فتح الملف) وكلمة الدخول 2300 تم اضافة مفتاح حفظ لحفظ المستند تم اضافاة مفتاح حفظ وخروج للخروج من الفورم وحفظ المستند للبحث برقم قيد الصادر او رقم قيد الوارد اخي الكريم من تبويب (تعديل البيانات ) اختار العملية ثم اختار رقم القيد برنامج الصادر والوارد - شوقي ربيع.rar

اخي الكريم // فارس الخطا في اختصار الفورم تفضل الملف برنامج مخازن ستارتكس2.rar

اخي الكريم لا تتردد في طلب اي تعديلات تفضل الملف ومعك حتي يكتمل عملك علي اكمل وجه شئون الموظفيين مبسط الاصدار 1.rar

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

أخي الحبيب // شوقي ربيع ربيع المنتدي وزهرته الجميلة بارك الله فيك وجزاك الله خيرا دائما سباق للخيرات جعلها الله في ميزان حسناتك تقبل تحياتي

الاخ الحبيب // شوقي ربيع تعجز الكلمات عن شكركم والثناء عليكم فانت فعلا انسان خلوق ورائع وطركم الجميل يعكس طيب اصلك بارك الله فيك وجزاك خيرا وجعل اعمالك في ميزان حسناتك تقبل تحياتي

أخي الكريم // اليك الملف بالمرفقات بعد تعديل الموظفيين الي 7000 موظف وتعديل فورمات التاريخ والارقام لتظهر باللغة العربية وحذف الرقم القومي وظبط المعاش واحفظ صور الموظفيين بالرقم الوظيفي في مجلد Dahy المرفق مع الملف اذا كنت تريد عرض صورة الموظف مع بياناته تقبل تحياتي شئون الموظفيين مبسط الاصدار 1.rar

اخي الحبيب // حمدادة عمر ابو سما ((روح المنتدي)) بارك الله فيك هذا والله من طيب اصلك جزاك الله خيرا علي دعائك وكلماتك واللهم يجعلني عند حسن ظنكم في وادام الله علينا محبته لوجه الكريم وادام علينا صحبتكم الصالحة تقبل تحياتي

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

اخي // جلال محمد فكرة ولا اروع بارك الله فيك وجزاك خيرا تقبل تحياتي