وائل مراد 700 قام بنشر يوليو 24, 2012 قام بنشر يوليو 24, 2012 السلام عليكم ورحمة الله وبركاته الأخوة الأفاضل اريد مساعدتكم في ترحيل بعض المعلومات الموجودة في خلايا من L22 إلى p26 من شيت رقم 2 إلى صفحة كشف عمولات الموظفين وسوف أقوم بعمل هذا الكود في الصفحات من شيت 2 إلى شيت 100 أرجو المساعدة بعمل الكود مرفق لكم الملف المطلوب العمل عليه
وائل مراد 700 قام بنشر يوليو 25, 2012 الكاتب قام بنشر يوليو 25, 2012 أشكرك أخي الفاضل على التنبية تم إرفاق الملف أرجوا المساعدة 1.rar
وائل مراد 700 قام بنشر يوليو 25, 2012 الكاتب قام بنشر يوليو 25, 2012 أشكرك اخي لكن في الحقيقة ليس هذا المطلوب لان الكود سوف أستخدمة في باقي الصفحات الـ 100 للترحيل لنفس الصفحة ولي دالة فاكب لك كل الشكر وبارك الله فيك ما زلت بإنتظار المساعدة بكود للترحيل من الشيت رقم 2 وإلى شيت رقم 100 بعض الخلايا ولكم كل الشكر
MAHMOUD ALI YOUSSEF قام بنشر يوليو 26, 2012 قام بنشر يوليو 26, 2012 السلام عليكم اخي وائل مراد اني متابع اعمالك منذ مذكرة التسوية البنكية وهي من افضل الاعمال جزاك الله كل خير هل من الممكن ان تضع مثال توضيحي بالارقام علي سبيل المثال ماذا يحدث في ورقة 2 و 3 و4 وكيف يكون الناتج في كشف العمولات حتي تقترب الي الذهن و يسطتيع الاخوة المساعدة بالكود او بالمعادلات وشكرا :fff:
وائل مراد 700 قام بنشر يوليو 27, 2012 الكاتب قام بنشر يوليو 27, 2012 أخذت أحد أكواد الاستاذ ابو أحمد مدير القسم العام وعدلت عليه حسب حاجتي وهذا هو الكود ليستفيد منه الجميع Sub Abu_Ahmed_Trheel() Dim LR As Integer LR = [R1000].End(xlUp).Row Range("R7:V" & LR).Copy Sheets("إسم الصفحة المراد الترحيل لها ").Range("B" & Sheets("إسم الصفحة المراد الترحيل لها").[b1000].End(xlUp).Row + 1) 'Range("R7:V" & LR).ClearContents MsgBox "Êã ÇáÊÑÍíá ÈäÌÇÍ ", vbOKOnly, "ÊäÈíå" End Sub ومرفق لكم نسخة من الملف بعد عمل الكود 1.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.