عبدالله المجرب

اسف اخي الفاضل (الميكرو تم تسجيله على اكسل 2007) والنتيجة انه لم يعمل على 2003 تم استبدال الملف وتعديل الكود جرب ان شاء الله سيعمل الان باذن الله

هل شاهدت مشاركتي لتفعيل الكود يجب ان تضغط دبل كليك على الخلية التي بها اسم الشيت

السلام عليكم بارك الله فيك اخي ابو نصار وشكراً لك على كل ما تقدمه === لاحظت بان هناك خانات بها اسم اوراق العمل وتوقعت بان يريد الاخ السائل ان يتم ترحيل نفس الصف الى عدة اوراق لذا وبعد التوكل على الله ثم الإستعانة بكود للاستاذ الحسامي ودمج فكرته مع كود الاستاذ خبور نتج الكود المرفق اخي السائل اذا اردت ترحيل نفس الصف الى اوراق متعددة ما عليك الا ان تقوم باختيار اسم ورقة العمل ثم الضعط دبل كليك على الخلية وسيتم الترحيل بإذن الله والله الموفق ابواحمد ارجو المساعدة1.rar

اخي وفير هذا ما قصدته شاهد المرفق وفير.rar

عوداً حميداً ابا ناصر وبصراحة انت كما وعدت بارك الله فيك وزادك في العلم ورفع عنك الهم والغم نورت يا ابا ناصر == ملف جميل جداً

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

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

اخي سك بابك بخصوص هذا الطلب سيصبح كود Abu_Ahmed1 هكذا ولو تلاحظ انه لم يتم التغيير الا باضافة سطر وتعديل بسيط في الشرط لكن قبل اضافة الكود يجب ان تجعل قيمة الخلية J1 (حالياً مكتوب بها Rating) باسم التقييم مثل Excellent وهكذا شاهد الصورة Sub Abu_Ahmed1() Dim cl As Range Application.ScreenUpdating = False sh = ActiveSheet.Name sh1 = ActiveSheet.Range("J1").Value MLR = Sheets("Main").Range("A" & Rows.Count).End(xlUp).Row + 1 For Each cl In Sheets("Main").Range("G3:G" & MLR) If cl.Value = sh1 Then LR = Sheets(sh).Range("A" & Rows.Count).End(xlUp).Row + 1 Sheets("Main").Cells(cl.Row, 1).Resize(1, 7).Copy Sheets(sh).Range("A" & LR) End If Next Application.ScreenUpdating = True End Sub

وانا في انتظار هذا الشرح موضوع ترحيل البيانات مهم للكثير تفضل الشرح المصور للكودين الشرح.rar

ولا تزعل اخي الفاضل انس للعلم فقط انا كنت اعتقد ان الموضوع احد طرق جعل الدالة باكثر من ثلاث عملات وليس طلب == في المرفق تم اضافة عمودين بامكانك اضافة كل اسماء عملات الدنيا فيهم لو حبيت جرب ان شاء الله يعجبك الحل دالة تفقيط مع اكثر من عملة.rar

جميل جداً الاساتذة الافاضل محمد صالح احمد الغانم الحسام يارك الله فيكم تعددت الحلول والنتيجة واحدة

FileFormat:=xlNormal اخي الفاضل جرب المرفق سيتم حفظ نسخة طبق الاصل للشيت بما يحتويه sheet 4 Sub Abu_Ahmed() On Error GoTo 10 Sheets("Sheet4").Select x = Range("C3").Value & " " & Range("D3").Value Sheets("Sheet4").Copy ChDir "C:\" ActiveWorkbook.SaveAs Filename:="C:\" & x & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False ActiveWindow.Close Range("H2").Select 10 End Sub Return.rar

السلام عليكم اعذرني استاذ طارق لم ارى مشاركتك والفكرة واحدة سبحان الله

اخي جرب المرفق تم استعمال هذه المعادلة في التنسيق الشرطي =(B3-INT(B3))>0 MM-STOCK-26-12-1432.rar

ان شاء الله هذا الكود يفي بالغرض Sub Abu_Ahmed() Set ws = Sheets("SHEET!") LR = ws.Range("d" & Rows.Count).End(xlUp).Row For i = 4 To LR sh = Cells(i, 4).Value Sheets(sh).Cells(i, ws.Cells(i, 6).Value + 2).Value = ws.Cells(i, 5).Value Next End Sub ضعه في زر أمر في الورقة SHEET!

في هذه الحالة الكود في حاجة الى صياغة اخرى

اخي الفاضل يمكنك عمل الاتي قم بنسخ بيانات العمود الاول ولصقه في العمود الذي تريد 2. لنفترض انك لصقت البيانات في العمود H ابتداء من الصف 2 3. اكتب في الخلية I2 هذه المعادلة =H2 ثم اسحبها للاسفل == طريقة اخرى قم بنسخ العمود الاول ثم اختر الخلية H2 والخلية I2 واضعط انتر جرب هذا الحل ان شاء الله ينفع مع العلم انه يمكن توسعة عمل الكود ليشمل 4000 اسم وحرية الاختيار لك

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

السلام عليكم جرب المرفق (حل بسيط ان شاء الله يفي بالغرض) Qusetion.rar

السلام عليكم جرب المرفق (اكتب القيمة ثم اختر الرقم وبعد الموافقة على النقل سيتم مسح القيمة والرقم فاذا اردت ان تنقل قيمة اخرى ادخل القيمة ثم اختر الرقم وهكذا) test 22.RAR

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

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

ماشاء الله عليك اخي ابوعبدالله عمل متقن سلمت يمينك

هل المطلوب انه عند اختيار احد النطاقات يصبح هو نطاق الطباعة

ان شاء الله (سيكون شرح فيديو كمان) عما قريب