وائل مراد 700 قام بنشر يوليو 24, 2012 مشاركة قام بنشر يوليو 24, 2012 السلام عليكم ورحمة الله وبركاته الأخوة الأفاضل اريد مساعدتكم في ترحيل بعض المعلومات الموجودة في خلايا من L22 إلى p26 من شيت رقم 2 إلى صفحة كشف عمولات الموظفين وسوف أقوم بعمل هذا الكود في الصفحات من شيت 2 إلى شيت 100 أرجو المساعدة بعمل الكود مرفق لكم الملف المطلوب العمل عليه رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يوليو 24, 2012 مشاركة قام بنشر يوليو 24, 2012 أخى الفاضل لا يوجد مرفق رابط هذا التعليق شارك More sharing options...
وائل مراد 700 قام بنشر يوليو 25, 2012 الكاتب مشاركة قام بنشر يوليو 25, 2012 أشكرك أخي الفاضل على التنبية تم إرفاق الملف أرجوا المساعدة 1.rar رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر يوليو 25, 2012 مشاركة قام بنشر يوليو 25, 2012 أتمني أن يكون المطلوب 1.rar رابط هذا التعليق شارك More sharing options...
وائل مراد 700 قام بنشر يوليو 25, 2012 الكاتب مشاركة قام بنشر يوليو 25, 2012 أشكرك اخي لكن في الحقيقة ليس هذا المطلوب لان الكود سوف أستخدمة في باقي الصفحات الـ 100 للترحيل لنفس الصفحة ولي دالة فاكب لك كل الشكر وبارك الله فيك ما زلت بإنتظار المساعدة بكود للترحيل من الشيت رقم 2 وإلى شيت رقم 100 بعض الخلايا ولكم كل الشكر رابط هذا التعليق شارك More sharing options...
MAHMOUD ALI YOUSSEF قام بنشر يوليو 26, 2012 مشاركة قام بنشر يوليو 26, 2012 السلام عليكم اخي وائل مراد اني متابع اعمالك منذ مذكرة التسوية البنكية وهي من افضل الاعمال جزاك الله كل خير هل من الممكن ان تضع مثال توضيحي بالارقام علي سبيل المثال ماذا يحدث في ورقة 2 و 3 و4 وكيف يكون الناتج في كشف العمولات حتي تقترب الي الذهن و يسطتيع الاخوة المساعدة بالكود او بالمعادلات وشكرا :fff: رابط هذا التعليق شارك More sharing options...
وائل مراد 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.