بن خليفه

أستاذ أبو عيد .. جربت التعديل على الكود وحسب ما تعلمت من هذا المنتدى وصلت لحل وإن شاء الله يكون هو الحل الصحيح حسب الكود التالي : Sub Macro1() Dim a, b, c, d a = Sheets(1).Range("B3", "E3").Row b = Sheets(2).Range("B20000").End(xlUp).Row + 1 c = Sheets(2).Range("H20000").End(xlUp).Row + 1 For d = 3 To a Sheets(2).Range("B" & b).Resize(1, 3) = Sheets(1).Range("B" & d).Resize(1, 3).Value Sheets(2).Range("H" & c).Resize(1, 2) = Sheets(1).Range("E" & d).Resize(1, 2).Value b = b + 1 c = c + 1 Next MsgBox "تمت العملية بنجاح", vbOKOnly, "انتهاء عملية الترحيل" End Sub

لك كل الشكر أستاذ أبو عيد لكن إللي أحتاجه كيف يتم ترحيل اللي في الصف من B3 إلى E3 في الشيت الأول فقط .. اللي في الشيت الثاني هو المطلوب إنه يترحل لشكل جدول الشيت الأول أحتاج يكون المدخل من صف واحد يعني حتى لو كان جدول ما احتاج يترحل منه إلا اللي في الصف فقط وشكراً

استفسار واعتقد انه بسيط في حال أردت أن يكون الرقم الظاهر عند الضغط على الزر وكتابة الرقم السري على شكل نجوم للحماية هل يوجد تعديل على الكود ؟؟

الاخوة الكرام .. يرجى منكم المساعدة في الملف المرفق .. أحتاج كود ماكرو لطريقة نسخ المدخلات في تحت الجدول الشيت الأول ولصقها في الشيت الثاني والهدف عمل تقرير يومي ونحتاج كود للتدوير ليكون المدخل الجديد تحت السابق في الجدول الموجود في الشيت الثاني وشكراً My Test HSK 2017.rar

الله يعطيك العافية يا غالي ، وجدت الخطأ المفترض B59 وليس B69 لأني مسوي اخفاء أنا اسف لأني تعبتك معي

متأكد مع العلم تم تحويل الكود الأول ونجح والثاني برضه يعطيني خطأ ؟؟؟؟!!!!!! مرفق الملف Dukka Phone.rar

الخطأ صار في السطر الثاني Sub Maint_click() Sheets("Maint").Range("B5:H16").Copy Sheets("Report").Range("B69").PasteSpecial (xlPasteValues) End Sub

أشكرك يا أستاذي يا غالي على الرد والتوجيه

المودل الأول يعمل والثاني لا يعمل الأول يقوم بنسخ من الشيت3 إلى الأول حسب الرينج الثاني يعطيني خطأ وهو يقوم بالنسخ من الشيت 2 إلى 3 الخطأ في اللون الأحمر !!!! Sub taj_click() Sheets("Taj").Select Range("B5:H53").Select Selection.Copy Sheets("Report").Select Range("B8").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub Sub Maint_click() Sheets("Maint").Select Range("B5:H16").Select Selection.Copy Sheets("Report").Select Range("B69").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub

مشكوووووور ودعواتي لك يا غالي هل يوجد لها شرح يا عسل ؟

لاخوة الكرام والله إني منقطع لكن احتجت إني أرجع للاكسل ونسيت أشياء مهمة في المرفق جدول أحتاج دالة تجمع أرقام مبالغ لمدخل معين في المرفق أحتاج المطلوب في C10 و D10 دالة تجميع.rar

الاخوة الكرام والله إني منقطع لكن احتجت إني أرجع للاكسل ونسيت أشياء مهمة في المرفق جدول أحتاج دالة تجمع أرقام مبالغ لمدخل معين في المرفق أحتاج المطلوب في C10 و D10 دالة تجميع.rar

ما شاء الله تبارك الله ، الله يوفقك يا أستاذنا غبت فترة ورجعت - وللإبداع بقية

عزيزي وأستاذي ياسر .. أنا أبغا كود بدون ما أظهره في اليوزر فورم يعني أحدد الداتا من شيت 3 مثلا وأحدد الرينج