omar elhosseini

الاخ gamalin اكتب اسماء الطابعات بالضبط المراد التعامل معها وتحديد مع اى اختيار من القائمة المنسدلة ستعمل الطابعة مع ملاحظة ان اسماء الطابعات لابد ان تكون نفسها الموجودة فى قائمة (statrt / printers and faxes) تحياتى

الاخ seif eldin تحياتى ربنا يطرح فيه البركة بإذن الله ويجعله عبدا صالحا إن شاء الله

شاهد المرفق حسب طلبك __________________________.rar

تحياتى الى الاخوة التعديلات التى تمت 1 - تم عمل شريط ادوات بدلا من الازرار الموجودة فى الصفحة الرئيسية 2 - تم تخطى رسالة الخطأ بعض النصائح للتعامل مع البرنامج : 1- البرنامج ينتج عدد ستة ملفات من النتائج والكشوف لتعرف اين انت دائما انظر الى شريط العنوان العلوى سيخيرك فى اى ملف انت . 2 - لتغير الشكل المرسوم حول الدرجة دون حد النجاح اتبع الاتى من الصفحة الرئيسية اختار طلب له مواد دور ثانى عن طريق احد القوائم المنسدلة الثلاثة اضغط مفتاحى CTRL + INSERT ستحصل على احد الاشكال الخمسة المحددة بالبرنامج اختار ما تراه مناسبا لك . اما لمن اراد الاطلاع فيمكنة استخدام بعض المفاتيح الخفية لأظهار او اخفاء جميع الاوراق المخفية اضغظ المفاتيح الثلاثة الاتية معا CTRL + SHIFT + F1 تحياتى لكم لم استطع رفع الملف وتم الاتصال بلأستاذ محمد طاهر ليتكرم مشكورا بوضعه فى هذه المشاركة Prim_Sch2.rar

الاخ سيف الدين تحياتى الاخ كريم يريد عندما يغير اسم الخلية يتم تغير اسم الورقة المناظرة لها وليس تسمية ورقة واحدة تحياتى

تم التعديل حسب توجيهات اخونا هادى سالم Hosp_03.rar

الاخوة الاعزاء لا اسف على الفكرة - تم قتلها بحثا سابقا لو استخدمتم محؤك البحث طبعا الفكرة جيدة ولكن ... ولكن ماذا يحدث عند رفع مستوى الامان ويتوقف عمل الماكرو ويقوم العميل بإلغاء التأكد من الرقم ... ؟؟؟ سأجيب بالنيابة : يتم عمل حماية للأكواد . اعود واقول : لم تعد حماية الاكواد كافية فى وجود برامج كسر الحماية ... ؟؟؟ ماذا بعد ذلك .؟ تحياتى الاخ atob هل لك علاقة بالأسهم وبورصة الاوراق المالية تحياتى لك

الاخ أكرم الغامدي شكرا لك الم تنظر فى بريدك اخى

كمان تعديل صغير على الملف يبقى كده معظم فريق المنتدى اشترك فى الموضوع شاهد المرفق عدد مرات التحميل: 13 المرفق تم تعديله فى المشاركة رقم 16

الاخ abuqussay استخدام محرك البحث يصل بك دائما الى ما تريد لو كتبت فيه كلمة (تفقيط) ستجد الكثير والكثير شاهد هذا الرابط دوال التفقيط تحياتى

الاخ عادل جلال ما الذى تريد شرحه بالضبط تحياتى

الاخ asd101960 إن شاء الله تستفيد من المنتدى اسهل طريقة على الاطلاق هى استخدام ( شريط أوفيسنا للأدوات الذكية ) المشاركة رقم 28 ويفضل قراءة الموضوع من بدايتة . وهو على الرابط التالى شريط أوفيسنا للأدوات الذكية استخدم ايقونة ( نسخ اكواد (VBA) من ملف الى ملف اخر ) تحياتى

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

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

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

الاخ gamalin فهمت خطأ ان الملف له علاقة بالاسهم وتدوال الاوراق المالية بالنسبة للحماية شاهد المرفق فك الحماية (123) omar2.rar

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

الاخ halwim ألا ترى انك ترحت نفس سؤال احتساب الاضافى للموظف فى المشاركة رقم 9 وتم الايجابة فى المشاركة رقم 10 على اساس ان البرنامج يحسب حسب ما طلب العضو وليس ما نتخيل نحن وهو يحسب وقت التأخير فقط ولا يحسب الاضافى ولكن اذا كان ما تريده خلاف ذلك يصبح سؤالك موضوع اخر غير عنوان الموضوع الواضح باللغه العربية "كيف أحسب تأخر الموظفين " وليس ما تعترض سيادتكم عليه ولا علاقة لسؤالك ولكن ألا ترى أن كلمة "مبكر" نص يجعل المحاسب متحير في إعطاء الأجرة المناسبة للموظف ، على أي حال ،،، بموضوع التأخير هذا اخى اطلب ماتريد ولا تتخيل ان كل الموضوعات تناسب رغباتك باشتراكها فى كلمة عامه يعنى هذا الموضوع "كيف أحسب تأخر الموظفين" لايجوز ان يتوافق مع رغباتك فى "كيف أحسب الاضافى للموظفين" وايضا لايجوز ان يتوافق مع رغباتك فى "كيف أحسب جزاءات الموظفين" لاتخلط المواضيع مع الهدف من الملف الاصلى .......................................... تحياتى

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

الاخ gamalin اخى لم تخبرنى التعديل يعمل ام لا

الاخ gamalin شاهد المرفق ضع القلدر فى اى مكان وجرب تحياتى omar1.rar

اخى شاهد هذه الوصلة http://www.officena.net/ib/index.php?showtopic=14684

الاخ gamalin الكود المضاف عبارة عن 3 سطور MyFileName = "MAHAL" نضع اسم الملف بدون النهاية الخاصة به فى المتغير (MyFileName) MyPath = ActiveWorkbook.Path نضع مسار الملف الحالى فى المتغير (MyPath ) MyFullName = MyPath & "\" & MyFileName & ".xls" فى المتغير (MyFullName ) نقوم يتجهيز اسم الملف ومساره بالكامل ليتم التعامل معه السطر الرابع نقوم بأستبدال اسم الملف ونهايتة بالمتغير (MyFullName ) الذى يحتوى على مسار واسم الملف بالكامل بالنسبة للكود الخاص بك هل انت بخيل الكود غير كامل ورغم انى لم اتعامل مع الامر (QueryTables) ولا اعرف كيف يعمل جرب هذه الصيغة واخبرنى بالنتيجة Sub test() Sheets("sheet1").Select ' MyFileName = "ozontrnprint" MyPath = ActiveWorkbook.Path MyFullName = MyPath & "\" & MyFileName & ".csv" ' Cells.Select Selection.ClearContents Selection.QueryTable.Delete With ActiveSheet.QueryTables.Add(Connection:="TEXT;MyFullName", _ Destination:=Range("A1")) .Name = "ozontrnprint" End With End Sub ملحوظة اخى gamalin : بخوص نقل وترحيل البيانات المحدثة والتى اعتقد انه لم يتم التوصل الى حل لها اذا تم عمل مثال غير ناقص اى ملف كامل يمكننى التصرف حيال ترحيل البيانات المحدثه بفكرة مجنونة اذا اردت يمكن وضع المثال فى مشاركة خاصة تحت عنوان مناسب للموضوع

الاخ abada mahdy الاخ عادل جلال الدالة مصممة عن طريق الاستاذ السيد عبد العال وهى داله حساسة جدا واسم الدالة : عمل دائرة حمراء على درجة الطلب وهذا يعنى انها تتعامل مع الارقام فقط . تحياتى

اخى استخدم هذه الصيغة Sub mahal() MyFileName = "MAHAL" MyPath = ActiveWorkbook.Path MyFullName = MyPath & "\" & MyFileName & ".xls" Workbooks.Open Filename:=MyFullName Range("A1").Select End Sub تحياتى