asmo200666

اخى ابو فهد العملية ببساطة حدد نطاق العمود المراد ترحيلة وليكن من c1:c6000 ومن قائمة ادراج اختار اسم ثم تعريف ستظهر فورم حدد فيها اسم النطاق وليكن fahd13 ثم اضافة ثم موافق كرر العمل السابق للنطاق الذى تريد ترحيل البيانات الية مع اختلاف الاسم الى بشاي 14 على سبيل المثال اضف زر فى اى مكان تشاء وهو فى وضع التصميم اضغط علية ضغطتين متتاليتين سينفتح امامك صفحة الكود وبها سطرين Private Sub CommandButton1_Click() End Sub فيما بين السطرين اضف الاتى ActiveSheet.Unprotect ActiveSheet.Range("fahd14").Value = ActiveSheet.Range("fahd13").Value ActiveSheet.Protect ليصبح الكود كما يلى Private Sub CommandButton1_Click() ActiveSheet.Unprotect ActiveSheet.Range("omar2").Value = ActiveSheet.Range("omar").Value ActiveSheet.Protect End Sub اغلق النافذة واخرج من وضع التصميم فيتم العمل اسف الاسماء نقلت بالكود كما فى مشاركة الاستاذ اسامة Private Sub CommandButton1_Click() ActiveSheet.Unprotect ActiveSheet.Range("fahd14").Value = ActiveSheet.Range("fahd13").Value ActiveSheet.Protect End Sub

هل تقصد كما فى المرفق مرفق فولدر يتم فك الفولدر كامل على الديسك توب ثم فتح الفايل test.rar

اخى بسام ان كنت وصل الى حلول افضل من المتاحة والذى اتحفنا بها الاستاذ ابو اسامة اضفها بالمنتدى كى يستفيد اغلب الاعضاء منها وحتى يكون النقد لاى عمل بناء

انظر المشاركة التالية للاستاذ ابو اسامة http://www.officena.net/ib/index.php?showtopic=17770

انظر المرفق Book11.rar

حتى لو تم ادراج التوفصيف لاى بند فى اكثر من سطر

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

السلام عليكم ورحمة الله وبركاتة بعد اذن استاذنا / هادى سالم مرفق فايل كمحاولة متواضعة وتم عمل ععد 4 شيتات New Po Wxplore Po Companies Po Store الشيت الاول يتم به عمل امر الشراء وبه زرين واحد للترحيل ومسح المحتوايات ( ترحيل جنميع بيانات امر الشراء ) الى الشيت الاخير والاخر لنقلنا الى الشيت الثانى وهو استعراض اى امر شراء بناءاً على رقمة بالنسبة للترقيم _ افترضت ان بداية الترقيم 3001/2007 ولو فرض اننا نريد تغيير بداية الترقيم امامنا احدى الحلين فتح الشيت المخفى PoStore وتغيير الرقم فى الخانة الاولى فاذا فرضنا اانا نريد بداية الترقيم 5500 نضع بها 5499 او الذهاب الى الشيت الاول وكتابة الرقم فى i1 ارجو ان يكون كالمطلوب الفايل phrma.rar phrma.rar

مبروك ياخى ابو عبد الله انت تستحقها بجدارة والى الامام اخوك احمد

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

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

الملف فتح عندى عادى _ هو فايل على XP2003 اليك مرة اخرى RentCar_2.rar

اخى ابو عبد الله اخى ابو العنود انظر المرفق لعل يكون المطلوب RentCar_2.rar

انظر المرفق f1.rar

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

اخى ابو عبد الله انظر الى المرفق ولاحظ بين اخر مخالفة واول مخالفة _ ستلاحظ انة ارجع تاريخ او تاجير للسيارة وكذلك اول رقم حساب فقط RentCar_1.rar

اخى اكسيلجى( ابو عبد الله) جزاك خيرا على العمل الذى قدمتة ولكن اعتقد ان vlookup لا تفيد هذا الامر حيث انة لو فرض ان نفس العربة التى اخذت مخالفة فى يوم ما لعميل ما تم استاجرها لعميل اخر فى يوم اخر فان دالة vlookup بهذة الصورة سوف ترجع علينا بنفس النتيجة ( اول نتيجة تقابلها ) واعتقد انة يجب عمل ref. للبحث عنة مكون من رقم اللوح وفترة زمنية _ اى يجب ان يكون هناك جدول وسيط هو ما يتم البحث فية

كود اكثر من رائع فى عمل بسيط ورائع من راجل رائع بارك الله فيك وجزاك خيرا

اخى ابو انس بعد اذن اساتذتنا ابو اسامة واكرم الغمدى وابو عبد الله ( اكسيلجى) طبعا الحلول التى قدموها هى انسب الحلول لمثل هذة الحالة لكن على سبيل التجربة تم عملها بواسطة if لايضاح الكم من المعادلات تم اعتبار الاسماء من a1 حتى a252 والمقابل للاسم ارقام من 1 حتى 252 كما فى المرفق( المعادلات المساعدة موجودة فى الخانات من f حتى cb ) ومعملها group Book1.rar

اخوانى فى المنتدى السلام عليكم ورحمة الله وبركاتة انى منذ فترة لا اجد مشاركات جديدة لاستاذنا / خبور ولا حتى ردود كما تعودنا لعل تغيبة عنا خيرا باذن الله ارجو ممن يتواصل معه ان يبلغة سلامى

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

استاذنا ابو اسامة انت فعلا فنان باستخدام المعادلات وتداخلاتها مع بعضها زادك الله من علمة وحفظك وفتح عليك اخوك احمد من مصر _ بورسعيد

اخى اكرم يوجد عمل ممتاز للاخ والاستاذ ابو اسامة للبحث العكسى فى المشاركة التالية يمكن ان يقوم بتنفيذ المطلوب http://www.officena.net/ib/index.php?showtopic=18430

اخونا العزيز اكرم الغامدى يمكننا عمل ذلك بدون تغيير اماكن الاعمدة كما هو مطلوب باستحداث عمود ثالث تكون فية القيم تساوى العمود الاول وعمل ال vlookup بين العمود الثانى والثالث كما فى المرفق Vlookup3.rar

البقاء والدم لله وحده دعائنا لجميع موتى المسلمين ان يتغمدهم الله برحمته وعفوه وغفرانة ويدخلهم فسيح جنات