كود للصق في عمود وعمود لا

[ماجدجلال]

السلام عليكم ورحمة الله وبركاتة

اخواني الاعزاء ارجو منكم المساعدة في وضع كود يقوم بنسخ بيانات موجودة في عمود ثم يقوم بلصقها في عمود ويترك عمود كما هو ويلصقها في العمود التالي ويترك الذي بعدة كما هو

اي انة يلصقها في عمود وعمود لا وعمود وعمود لا

لقد حاولت عن طريق اخفاء الاعمدة الي لا يرغب في لصق البيانات فيها ولكنها لم تنجح

ارجو منكم المساعدة ولكم جزيل الشكر

500.zip

[الـعيدروس]

السلام عليكم

جرب هكذا

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 بواسطه عباد

[ماجدجلال]

شكرا لك استاذ عباد

لدي ملاحظتان : الاول الكود يعمل بشكل صحيح فقط في العمود f

الثاني قمت بتميز اخر خلية غير فارغة في العمدة فوجدت انة لا يقوم باللصق

ارجو منك ان تجرب الملف المرفق

واشكرك جزيل الشكر علي سرعة ردك وتعاونك

500.zip

[الـعيدروس]

السلام عليكم

جرب هكذا

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

[ماجدجلال]

شكرا استاذ عباد

الف شكرا

ادعوا الله تعالي ان يمدك بالصحة والعافية

[ماجدجلال]

السلام عليكم

استاذ عباد

ليلة امس حاولت اضافة شي الي الكود يقوم بتحديد عدد الاعمدة التي يقوم الكود بلصق البيانات فيها وكانت الاضافة هاكذا

For AA = 2 To [G4]

حيث يتم وضع عدد الاعمدة المراد لصق البيانات في الخلية G4,

ولكن واجهتني مشكلة وهي الفرق بين الاعداد الزوجية والفردية , علي اساس انه يتم لصق البيانات في عمود وعمود لا ,,,

ارجوك اذا كان هناك طريقة افضل ارجو المساعدة ,,,,

طبعا عملية تحديد عدد الاعمدة مفيدة في حالة اذا قام مستخدم باضافة صيدلي جديد فانة لابد من ان يشملة الكود او العكس اذا تم حذف عمود قديم

ارجو المساعدة وشكرا جزيلا لك

[الـعيدروس]

السلام عليكم

تفضل

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

[ماجدجلال]

السلام عليكم

ولكن يااستاذ عباد

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

معليش تحملني

هل توجد طريقة تلقائية برمجية بحيث يمكن بواسطتها ملاحظة اي تغير في زيادة او نقصان عدد الاعمدة الغير فارغة في المدي وبالتالي يقوم الكود تلقائيا بالتغير حسب العدد الجديد .

لانة بصراحة البرنامج لمستخدم اخر ومن الصعب ان اقوم بالتعديل ,,,

[الـعيدروس]

السلام عليكم

هذا هو عمل الكود

في حال الاضافة والحذف

جرب المرفق وابلغني بالنتائج

500_A.rar

[ماجدجلال]

ماشاء الله تبارك الله

هذا هو المطلب

اتمني لك التوفيق و السعادة

[ماجدجلال]

السلام عليكم ورحمة الله

استاذ عباد ممكن طلب

قمت باضافة شريط تمرير يعمل اثناء النسخ واللصق

الشريط يعمل ولكن المشكلة انني لم استطع حساب عدد الاعمدة وطول الشريط , فمن المفترض ان يبدا من صفر وينتهي 100% ,

كما يحصل في اغلب برامج setup ...

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

510.zip

[ماجدجلال]

للرفع

[الـعيدروس]

السلام عليكم

تفضل

510_A.rar

[ماجدجلال]

السلام عليكم ورحمة الله وبركاتة

الف الف شكر استاذ عباد

شكرا جزيلا