محمد عسكر

السلام عليكم و رحمة الله و بركاته الأستاذ / هادى سالم شكرا جزيلا على ردكم و بارك الله فيكم و جزاكم خير الجزاء أستاذى أرجو ألا أثقل عليكم ما فى المرفق هو احد أشكال المطلوب و لكن لى بعض الملاحظات :- - اريد ان استعمل الأمر ( If Sheets("1").Cells(i, 12) > 0 Then ) بأمرين شرطيين اى إذا كان قيمة الخلية س أكبر من الصفر او اذا كانت قيمة الخلية ص اكبر من الصفر إذن فيقوم بالترحيل و هذا ما قمتم بإلغائه فالكود يقوم بترحيل كل الصفوف سواء إذا كانت بها بيانات ام فارغه (( مع العلم أن الشيت 100 صف لإدخال البيانات )) و ارجو أن تقوم بشرح عمل الأكواد التاليه ذلك لرغبتى فى تعلم الفيجوال بيسك فلذلك أحاول أن اتعلم من الأكواد لعلى أجد ما استطيع ان اتعلمة - ما معنى الرقم 3 الذى تم إضافته الى CONT+3, 1 (( (Sheets("2").Cells(cont + 3, 1) = Sheets("11").Cells(i, 1)) - و ما هو الشرح للكود cont = Application.WorksheetFunction.CountA(Sheets("2").Range("A1:A100")) - و شرح الكود Public Sub mStart() Sheets("2").Range("A4:K100").ClearContents m1 m2 m3 End Sub و شاكرا لجهودك معنا جزاك الله خيرا و بارك الله فيك

السلام عليكم أريد نسخ البيانات من الورقة 1 , 11 , 111 فى الورقة 2 بحيث تكون بيانات الورقة 1 فى الول ثم تاتى اسفل منها بيانات الورقة11 ثم بعدها بيانات الورقة 111 بهذا الشكل بيانات 1 بيانات 11 بيانات 111 و هكذا ,,,,,

السلام عليكم و رحمة الله وبركاته أ/ هادى سالم شاكر لك إهتمامك و تجاوبك و جزاك الله خيرا أساتذى الفاضل اخيك الأصغر العبد الفقير الى الله محاسب و اقوم باعداد يومية تحليلية و حسابات ختامية و كنت فى قمة الحيره عن كيفيه عمل حساب أستاذ و لكن حينما قمتم بفعل مماثل لما اريد فشجعنى هذا و جدد الرغبة لدى فى إكمال العمل و مرفق اليكم جزء توضيحى ( اتمنى ان يكون فيه الإيضاح الكافى ) بجزء معدل للإيضاح و لى استفسار اخر هل تتكرم بمشاهدة المرفق الثانى و إفادتى بالإجابة أكرمكم الله _____.zip __________________..zip

السلام عليكم و رحمة الله و بركاته أستاذنا الجليل / هادى سالم شكرا على إمداداتكم و ابداعاتكم و لى طلب اذا تكرمتم استعمل الكود الذى قمتم بعمله فى هذا الشيت و أكواد مماثله و لو أمكن :---- اريد ان أجعل الكود فى صفحة الأستاذ يقرا من ( مثلا اليومية ) بعدد من الأوراق و لكن بنفس التصميم قمت باضافه التعديل على الكود فكان يقوم بقراءة كل الصفحات و لكن يقوم بالتسجيل فى ( صفحة الأستاذ ) و نفس الصفوف و يسجل اخر قيمة لاخر ورقة المطلوب باختصار ان يقوم بقراءة نفس المعادله من كل الأوراق و يسجلها بشكل متتالى ( اى وراء بعض ) و جزاكم الله خيرا

السلام عليكم و رحمة الله و بركاته الأخ الفاضل NSE ارفق اليك مرفق عسي ان يكون موضحا اليكم و شكرا مقداما على تفاعلكم معى و جزاكم الله خيرا ____________________.zip

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

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

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

السلام عليكم و رحمة الله و بركاته أخى ارفقت اليك بعض المرفقات بها أكواد ( فيجوال بيسك ) أدعوا الله أن تجد بها ما ترغب هذه الأكواد مأخوذه من مشاركة للأستاذ / حسام نور من إحدى المواقع تحياتى autoclose.zip Module1.zip _____________________.zip

السلام عليكم و رحمة الله و بركاته اخى ابو حمزه اعتقد ان الأخ NSE يحق له ان يقول وجدتهااااااااااااااااااااااااااااااااااااااااااااااااااااااا لقد نفذ الكود كما ينبغى جزاه الله خبيرا فضلاا قم بالتحميل من هنا http://www.officena.net/ib/index.php?act=A...ost&id=7641 و زياره هذا الرابط http://www.officena.net/ib/index.php?showt...amp;#entry69418 تحياتى

السلام عليكم و رحمة الله و بركاته اخى اضاف الأخ NSE كود لحل هذه المشكله قم بتحميل هذا الملف http://www.officena.net/ib/index.php?act=A...ost&id=7641 و زياره هذا الرابط http://www.officena.net/ib/index.php?showt...amp;#entry69418 تحياتى

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

السلام عليكم و رحمة الله وبركاته الأخ / المعلم الأول البرنامج شغال كويس خالص و جزا الله الأخ ابو حمزه خيرا و بارك الله فيه قم بالتحميل ثم و قم باخراج الملفين من الضغط الى ملف فارغ جديد ثم اضغط على CFPLUSE لتشغيل البرنامج ثم ستجد فى صفحة الإكسل فى اول شريط بجوار تعليمات و إطار تم اضافة XLD TOOLS ثم نختار من هذه القائمة LUNCH CF ثم ستظهر نافذه ثم نختار ADD ثم نحدد خيارات التنسيق الشرطى اتمنى ان اكون قد وفرت لك ما تطلب تحياتى

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

السلام عليكم و رحمة الله وبركاته الأخ NDOSH يوجد ما تطلب بالظبط فى إحدى المشاركات الخاصة بالترحيل لتجرب ان تبحث عنها فى المنتدى تحياتى السلام عليكم و رحمة الله و بركاته أخى جرب هذا الرابط http://www.officena.net/ib/index.php?showt...15490&st=15 و هو ملف من الأستاذ / هادى سالم

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

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

السلام عليكم و رحمة الله و بركاته الأخ / al_faroooq تحية طيبة و بعد قمت بتحميل الملف المرفق ففى بداية الأمر لم أجد ما ترجوه و لكنى بعد محاولات قمت بالوقوف على الأمر من الدالة الشرطية IF و أعدت كتابة التقدير كما فى الكود بدون تشكيل و لكن ما سيتغير لونه هو لو الخليه بالكامل و ليس لون الخط الذى بالخليه و للأسف لولا اننى لازلت فى بداية تعلم الفيجوال بيسك لكنت حاولت فى المساعده بالأكواد تحياتى _______.zip

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

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

الأخ الفاضل / هادى سالم جزاك الله خيرا و بارك الله فيك و رزقك الله علماً واسعا نافعا و ننتظر منك الأفضل كأستاذ لنا نتعلم منك مع اساتذة المنتدى الرائع بارك الله فيك تحياتى ------------------------- أشهد أن لا إله الا الله و أشهد أن محمد رسول الله

السلام عليكم و رحمة الله و بركاته ما شاء الله عليكم يا اخى / على بارك الله فيك و أكرمك و جزاك الله خيراً و رزقنا و رزقكم الله علما واسعا نافعا آمين تحياتى -------------------------------------------------- أشهد أن لا إله الا الله -- و أشهد أن محمد رسول الله

بسم الله الرحمن الرحيم الأخ / tameromar جزاكم الله خيرا و بارك الله فيكم و جعله فى كيزان حسناتكم " جارى تحميل الملف " و اتمنى منك ان لا تتأثر بفكرة حمل و اجرى انا معك فى هذا لكن عن نفسي و عن سبب انتمائى للمنتدى تواجدى الدائم و اليومى عليه هو بعد ما حملت الملفات اعجبنى كل ما فى المنتدى من كل الجوانب فقررت ان اتشرف بالإنمام اليكم و ان كان لدى بعض الأعمال على الإكسل الا اننى بعد تحميلى البرامج و رؤية إمكانيات الفيجوال بيسك قررت اعادة تعديل كافى المستندات الموجودة لدى (( لكن بعد إجادة تعلم الفيجوال بإذن الله )) و جزاكم الله خيرا و رزفكم الله علما واسعا نافعا تنفع به المسلمين اللهم آمين و السلام عليكم و رحمة الله و بركاته

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

السلام عليكم و رحمة الله و بركاته الأخ الفاضل / عمر الحسينى تحية طيبة ,,,, و بعد ,,, جزاكم الله خيرا و اعانكم الله و شاكرين على إبداعاتكم لكن لدى مشكلة فى تنفيذ برنامج الأكواد و استخدم اوفيس 2003 و تظهر لى نفس الرساله التى نقلها لكم الأخ ELyas ارجو التكرم بالرد و التوضيح جزاكم الله خيرا