مطلوب خبير فى برمجة الماكرو

[Islam_4a]

السؤال هوا

 

مطلوب عمل ماكرو تكون وظيفتها الاتى :

 

عمل نسخ لاى خليه انا احددها فى مكان تانى او شيت تانى

بدل ما انا كل شويه اعمل نسخ للخليه كوبى واروح احطها فى مكان تانى باست وخصوصا انا بعمل دا كتييييير

 

 

انا رفقت لحضراتكم ملف اكسل موجود فيه قصدى تمام

 

اتمنى الافاده فى اسرع وقت

 

تحياتى..........

 

 

 

 

 

 

 

 

 

qustion.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / Islam_4a

بارك الله فيك

اليك الملف المرفق به الاكواد التاليه

ضع الكود التالي في موديل

Sub SAMA()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("صفحة العملاء")
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 1).Value = ActiveCell
End Sub

ثم قم بوضع الكود التالي في حدث الصفحة

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call SAMA
End Sub

حيث يمكنك ذلك الكود من انه عند اختيار وتحديد اي خليه تريدها في الشيت ( دبل كليك )

يتم نسخها تلقائيا في آخر صف اي بعد آخر كود في الجدول ..

 

هل هذا ما تقصده انت ...

جزاك الله خيرا

 

 

qustion+.rar

[حمادة عمر]

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

 

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

 

 

رمضـــان كـــريـــم

تم تعديل يونيو 28, 2013 بواسطه حمادة عمر

[مصطفى كمال متولى]

 

[حمادة عمر]

السلام عليكم

الاخ الكريم / مصطفى كامل

بارك الله فيك

مرور طيب وكريم

جزاك الله خيرا

[Islam_4a]

الله ينورعليك يا استاذ حماده جااااامده اووووووووووى

بس انا علشان اعرف اطبقها عندى عاوز ليها شرح لانى هاطبقها من شيت لشيت مثلا لانى بحتاج النسخ دا من شيت لشيت وكدا 

يعنى عاوز شرح للكود

واسف جدا انى بتقل عليكم

فى انتظار الرد

[حمادة عمر]

الأخ الكريم

برجاء ارفاق ملف كمثال لما تريده في ملفك للعمل عليه

ليتم تنفيذ المطلوب كما تريد

جزاك الله خيرا

[Islam_4a]

عاوز اى كود بمجرد تشغيل الماكرو تنزل فى ملف صافى العملاء مع العلم ان المصدر هايكون ملف تانى خالص اسمه جميع العملاء لو دوست ع الماكرو تعمل نسخ للكود الى عامله  فى ملف صافى العملاء

وانا ارفقت لحضرتك ملف فيه مثال للموضوع

 

[Islam_4a]

دا الملف اخى الكريموفى انتظار الرد من حضرتك

eslam2.rar