ابو احمد 3 قام بنشر يناير 30, 2007 قام بنشر يناير 30, 2007 السلام عليكم ورحمة الله طلب مساعدة فى تعديل كود الكود الذى بالمرفق يقوم باستحضار البيان من صفحة البيانات1 لكن لو عندى صفحتين بيانات صفحة بيانات 1 وصفحة بيانات 2 واريد استحضار بيان حساب معين هل ممكن تعديل الكود بالمرفق ليقوم بعمل ذلك لنحصل على البيانات من صفحتين بيانات ارجو ان اكون وفقت فى الشرح وقد يوضح المرفق اكثر ____________.rar
ابو احمد 3 قام بنشر يناير 31, 2007 الكاتب قام بنشر يناير 31, 2007 الاساتذة المشرفين والاعضاء ثانى مرة اسئل ولا يجيب على احد فهل من اجابة !
omar elhosseini قام بنشر يناير 31, 2007 قام بنشر يناير 31, 2007 الاخ ابو احمد 3 اكمل بيانتك اخى .............................؟ هل كود العميل يتم تكرارة فى اى من ورقتى البيانات ام يكون موجود مرة واحدة فى كل من الورقتين او احدهم ...؟
ابو احمد 3 قام بنشر يناير 31, 2007 الكاتب قام بنشر يناير 31, 2007 استاذنا الفاضل شكرا على الرد وبخصوص كود الحساب فهو يتكرر كثيرا فى الصفحتين جزاك الله من كل خير
omar elhosseini قام بنشر يناير 31, 2007 قام بنشر يناير 31, 2007 الاخ ابو احمد 3 تحياتى شاهد المرفق ________________________________.rar
ابو احمد 3 قام بنشر يناير 31, 2007 الكاتب قام بنشر يناير 31, 2007 استاذنا الكريم الف الف شكر على تعاونك واستجابتك لمساعدتى ادعو الله ان يرزقك الصحة والعافية .. امين استاذى الفاضل عند تجربة الكود تعطل واعطانى debug على هذا السطر : Rng.Copy ShRes.Range("B" & ShRes.Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Row ثم هنج عندى الاكسل واغلقتة من ctrl +alt+delete فهل هذا بسبب شئ فى جهازى ام ترى شئ اخر جزاك الله من كل خير
omar elhosseini قام بنشر يناير 31, 2007 قام بنشر يناير 31, 2007 الملف يعمل على جهازى بشكل طبيعى لعل احد الاخوة يقوم بتجربتة واخبارنا بالنتيجة
ابو احمد 3 قام بنشر فبراير 5, 2007 الكاتب قام بنشر فبراير 5, 2007 استاذنا الكريم كما ترى 24 تحميل ولم يرد علينا احد وبخصوص رسالة الخطأ التى تظهر بجهازى هذه صورتها فى الملف وشكرا لتعاونك معى _____.rar
نزار سليمان عيد قام بنشر فبراير 5, 2007 قام بنشر فبراير 5, 2007 الاخ ابو احمد الملف يعمل بشكل ممتاز تاكد من مستوى امان الماكرو او نسخة الاوفيس
ابو احمد 3 قام بنشر مايو 21, 2007 الكاتب قام بنشر مايو 21, 2007 السلام عليكم ورحمة الله الاستاذ هادى والاستاذ خبور وباقى الاساتذة المميزين والاعضاء اعاود تنشيط هذه المشاركة حيث مازالت مشكلة الكود تصادفنى رغم عملها لدى الاستاذ تامر والاستاذ نزار ولكن عندى تبقى debug على هذا السطر : Rng.Copy ShRes.Range("B" & ShRes.Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Row ثم هنج عندى الاكسل واغلقتة من ctrl +alt+delete هل من طريقة او كود اخر يقوم بنفس العمل ولا يعمل لدى مشاكل وسبب اعادة سؤالى انى وجدت كود الاستاذ تامر انتشر فى العديد من المشاركات الحالية هذا مما شجعنى على اعادةالسؤال برجاء المساعدة وشكرا
asmo200666 قام بنشر مايو 21, 2007 قام بنشر مايو 21, 2007 الاخ ابو احمد الاخ ابو تامر تحية طيبة نزلت الفايل وعند عملة نفس النتيجة عند الاخ ابو احمد debug على هذا السطر : Rng.Copy ShRes.Range("B" & ShRes.Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Row ثم هنج عندى الاكسل واغلقتة من ctrl +alt+delete
ابو احمد 3 قام بنشر مايو 22, 2007 الكاتب قام بنشر مايو 22, 2007 على امل باذن الله فى انتظار اجابه الاساتذة والاعضاء
ابو احمد 3 قام بنشر مايو 22, 2007 الكاتب قام بنشر مايو 22, 2007 الاساتذة الكرام الاستاذ تامر لا ارى تواجده بالمنتدى حاليا لذلك وجهت استفسارى اليكم فهل من اجابة حتى لو كود جديد يحل لى مشكلتى فى انتظركم ان شاء الله
عبدالله باقشير قام بنشر مايو 22, 2007 قام بنشر مايو 22, 2007 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته الاخ / ابو احمد عملت لك هذا الكود على عجل ان شاء يحل المشكلة التي عندك , صدقنا لم الاحظ طلبك الا في وقت متأخر سلامي لك اخوك / خبور ____________.rar 1
احمدزمان قام بنشر مايو 23, 2007 قام بنشر مايو 23, 2007 (معدل) بسم الله الرحمن الرحيم و الصلاة و السلام على سيدنا محمد وعلى آله وصحبة السلام عليكم استاذ خبور صباح الخير ممكن تعدل الكود ليعمل على جميع اوراق ملف الإكسل الموجودة او المدرجة تلقائيا حيث اننه لدي نفس الطلب ولكن لأوراق كثيرة مثل هذا الكود للأستاذ القدير هادي Sub mCount() Sheet1.Range("A1").ClearContents For i = 2 To Sheets.Count h = Sheets(i).Cells(1, 1) Sheet1.Range("A1") = Sheet1.Range("A1") + h Next End Sub مع خالص شكري وتقديري مقدما تم تعديل مايو 23, 2007 بواسطه aymz077
ابو احمد 3 قام بنشر مايو 23, 2007 الكاتب قام بنشر مايو 23, 2007 الاستاذ والاخ الكريم خبـــــــور شكرا قبل كل شئ على ذوقك وادبك ربنا يزيدك وشكرا على الملف جزاك الله كل خير فقد حللت مشكلتى ربنا يبارك لك ويزيدك علم على علم
عبدالله باقشير قام بنشر مايو 23, 2007 قام بنشر مايو 23, 2007 بسم الله الرحمن الرحيمالسلام عليكم ورحمة الله وبركاته اشكرك على ردك الجميلو الرد الجميل لازم يكون الرد احسن منه وانا عاملك كود هدية (حسب اشارة الاخ ايمز077 ) يرحل لك من جميع الاوراق ورقة العمل التي لاتريد الترحيل منها مثلا (بيانات4) اجعل ترتيبها في بداية الاوراق وغير في For x = 2 To Sheets.Countخليه يبدأ العد من الورقة الثانية سيتجاوز الورقة الاولى وهي (بيانات4)(الطريقة الاسهل)سلامي لك ونحن تحت الخدمةاخوك / خبور ____________________________.rar
ابو احمد 3 قام بنشر مايو 23, 2007 الكاتب قام بنشر مايو 23, 2007 ماشاء الله كود رائع وممتاز ومريح فى العمل ايه رأيك نطمع فى علمك شوية كمان ، اذا كان ممكن فالطلب هو هل ممكن ان يقوم الكود باعطاء النتائج سواء عن طريق رقم الحساب أو التاريخ او اسم الحساب أو رقم القيد اذا كان ممكن ياريت عموما ياأستاذ خبور انت وفيت وزيادة ، ولكن هو الطمع فى علمك كما قلت جزاك الله كل خير وسعادة دنيا واخرة
عبدالله باقشير قام بنشر مايو 23, 2007 قام بنشر مايو 23, 2007 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته الاخ ابو احمد 3 نفذنا طلبك ولانه موضوع مهم عملته في مشاركة منفصلة هذا الرابط http://www.officena.net/ib/index.php?showtopic=17523&hl= اخوكم / خبور
farah_dyaa قام بنشر فبراير 21, 2008 قام بنشر فبراير 21, 2008 جزاك الله الف خير و لا تحرمنا من الاستفادةمن معلوماتك القيمة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.