ماجدجلال قام بنشر سبتمبر 14, 2012 مشاركة قام بنشر سبتمبر 14, 2012 السلام عليكم ورحمة الله وبركاتة اخواني الاعزاء ارجو منكم المساعدة في وضع كود يقوم بنسخ بيانات موجودة في عمود ثم يقوم بلصقها في عمود ويترك عمود كما هو ويلصقها في العمود التالي ويترك الذي بعدة كما هو اي انة يلصقها في عمود وعمود لا وعمود وعمود لا لقد حاولت عن طريق اخفاء الاعمدة الي لا يرغب في لصق البيانات فيها ولكنها لم تنجح ارجو منكم المساعدة ولكم جزيل الشكر 500.zip رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 14, 2012 مشاركة قام بنشر سبتمبر 14, 2012 (معدل) السلام عليكم جرب هكذا Public Sub ALIDROOS_CC() Dim C% Dim A As Range Set A = [O6:O11] B = 2 For AA = 2 To 5 R = Cells(Rows.Count, AA + 2).End(xlUp).Offset(1, 0).Row A.Copy Cells(R, B).PasteSpecial xlPasteValues B = B + 2 Next End Sub تم تعديل سبتمبر 14, 2012 بواسطه عباد رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر سبتمبر 14, 2012 الكاتب مشاركة قام بنشر سبتمبر 14, 2012 شكرا لك استاذ عباد لدي ملاحظتان : الاول الكود يعمل بشكل صحيح فقط في العمود f الثاني قمت بتميز اخر خلية غير فارغة في العمدة فوجدت انة لا يقوم باللصق ارجو منك ان تجرب الملف المرفق واشكرك جزيل الشكر علي سرعة ردك وتعاونك 500.zip رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 14, 2012 مشاركة قام بنشر سبتمبر 14, 2012 السلام عليكم جرب هكذا Public Sub ALIDROOS_CC() Dim B% Dim A As Range Set A = [O6:O11] B = 2 For AA = 2 To 6 R = Cells(100, B).End(xlUp).Offset(1, 0).Row A.Copy Cells(R, B).PasteSpecial xlPasteValues B = B + 2 Next End Sub رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر سبتمبر 14, 2012 الكاتب مشاركة قام بنشر سبتمبر 14, 2012 شكرا استاذ عباد الف شكرا ادعوا الله تعالي ان يمدك بالصحة والعافية رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر سبتمبر 15, 2012 الكاتب مشاركة قام بنشر سبتمبر 15, 2012 السلام عليكم استاذ عباد ليلة امس حاولت اضافة شي الي الكود يقوم بتحديد عدد الاعمدة التي يقوم الكود بلصق البيانات فيها وكانت الاضافة هاكذا For AA = 2 To [G4] حيث يتم وضع عدد الاعمدة المراد لصق البيانات في الخلية G4, ولكن واجهتني مشكلة وهي الفرق بين الاعداد الزوجية والفردية , علي اساس انه يتم لصق البيانات في عمود وعمود لا ,,, ارجوك اذا كان هناك طريقة افضل ارجو المساعدة ,,,, طبعا عملية تحديد عدد الاعمدة مفيدة في حالة اذا قام مستخدم باضافة صيدلي جديد فانة لابد من ان يشملة الكود او العكس اذا تم حذف عمود قديم ارجو المساعدة وشكرا جزيلا لك رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 15, 2012 مشاركة قام بنشر سبتمبر 15, 2012 السلام عليكم تفضل Public Sub ALIDROOS_CX() Dim B% Dim A As Range Dim MR As Range Set A = [O6:O11] Set MR = [B7:J7] 'حدد المدى اذا تغير من هنا With MR Z = .End(xlToRight).Column + 1 XX = Z - (Z / 2): B = 2 For AA = 2 To XX R = Cells(100, B).End(xlUp).Offset(1, 0).Row A.Copy Cells(R, B).PasteSpecial xlPasteValues B = B + 2 Next End With End Sub رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر سبتمبر 15, 2012 الكاتب مشاركة قام بنشر سبتمبر 15, 2012 السلام عليكم ولكن يااستاذ عباد اذا تم الانتهاء من البرنامج وقمت باعطائه للمستخدم وتم اقفال الوحدات النمطية , اعتقد من الصعب جدا في حالة ان اقوم بالتعديل في الكود (تحديد المدي ) كلما قام المستخدم باضافة صيدلي جديد ,,, معليش تحملني هل توجد طريقة تلقائية برمجية بحيث يمكن بواسطتها ملاحظة اي تغير في زيادة او نقصان عدد الاعمدة الغير فارغة في المدي وبالتالي يقوم الكود تلقائيا بالتغير حسب العدد الجديد . لانة بصراحة البرنامج لمستخدم اخر ومن الصعب ان اقوم بالتعديل ,,, رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 15, 2012 مشاركة قام بنشر سبتمبر 15, 2012 السلام عليكم هذا هو عمل الكود في حال الاضافة والحذف جرب المرفق وابلغني بالنتائج 500_A.rar رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر سبتمبر 16, 2012 الكاتب مشاركة قام بنشر سبتمبر 16, 2012 ماشاء الله تبارك الله هذا هو المطلب اتمني لك التوفيق و السعادة رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر سبتمبر 16, 2012 الكاتب مشاركة قام بنشر سبتمبر 16, 2012 السلام عليكم ورحمة الله استاذ عباد ممكن طلب قمت باضافة شريط تمرير يعمل اثناء النسخ واللصق الشريط يعمل ولكن المشكلة انني لم استطع حساب عدد الاعمدة وطول الشريط , فمن المفترض ان يبدا من صفر وينتهي 100% , كما يحصل في اغلب برامج setup ... المرفق به الكود الذي قمت حضرتك بتصميمة مع شريط التمرير ارجو منك المساعدة وشكرا لك 510.zip رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر سبتمبر 18, 2012 الكاتب مشاركة قام بنشر سبتمبر 18, 2012 للرفع رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 18, 2012 مشاركة قام بنشر سبتمبر 18, 2012 السلام عليكم تفضل 510_A.rar رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر سبتمبر 18, 2012 الكاتب مشاركة قام بنشر سبتمبر 18, 2012 السلام عليكم ورحمة الله وبركاتة الف الف شكر استاذ عباد شكرا جزيلا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان