dah_med قام بنشر نوفمبر 30, 2013 قام بنشر نوفمبر 30, 2013 السلام عليكم المطلوب ترحيل بيانات واستدعائها للتعديل انظر المرفق مقياس التأهيل لعمال المهنين.rar 1
حمادة عمر قام بنشر ديسمبر 1, 2013 قام بنشر ديسمبر 1, 2013 (معدل) السلام عليكم الاخ الكريم / dah_med بارك الله فيك بالنسبة لكود الترحيل تم وضع كود بسيط لترحيل البيانات ويمكنك التعديل عليه بسهوله اما بالنسبة للاستدعاء فعلي اي اساس يتم الاستدعاء هل بالرقم ... ام بالاسم واللقب ... وهل يتم الاستدعاء في نفس صفحة الادخال ام ... تفضل المرفقات مقياس التأهيل لعمال المهنين-sama.rar تم تعديل ديسمبر 1, 2013 بواسطه حمادة عمر 1
dah_med قام بنشر ديسمبر 1, 2013 الكاتب قام بنشر ديسمبر 1, 2013 السلام عليكم أخي عمر جزاك الله خيرا على الرد الترحيل يعمل لكن حبذا لو الرقم لا يكرر اي عند تكرر الرقم تكون رسالة بأن الرقم موجود مسبقا أما بخصوص الإستدعاء فيكون بالبحث عن الاسم واللقب للعامل مع إمكانية التعديل على معلوماته تم ترحيلها
أبو حنــــين قام بنشر ديسمبر 2, 2013 قام بنشر ديسمبر 2, 2013 (معدل) السلام عليكم بعد اذن اخي حمادة و بالنسبة للسؤال الاول يمكن تغيير الكود السابق بالشكل التالي Sub SAMA1() Dim LR As Long, MayRng As Range Dim SA As Worksheet, SA1 As Worksheet Set MayRng = Application.Union(Range("C12:C24"), Range("C26:C27"), Range("C29:C32"), Range("C34:C36")) Set SA = Worksheets("Archive"): Set SA1 = Worksheets("Formulaire") LR = SA.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row If SA.Cells(LR - 1, 1).Value = SA1.Range("J6").Value Then GoTo 1 With SA .Cells(LR, 1).Value = SA1.[j6].Value: .Cells(LR, 2).Value = SA1.[c6].Value .Cells(LR, 3).Value = SA1.[c7].Value: .Cells(LR, 4).Value = SA1.[c8].Value .Cells(LR, 5).Value = SA1.[j7].Value: .Cells(LR, 6).Value = SA1.[j8].Value .Cells(LR, 29).Value = SA1.[c37].Value MayRng.Copy .Cells(LR, 7).PasteSpecial Paste:=xlPasteValues, Transpose:=True Application.CutCopyMode = False End With Exit Sub 1 MsgBox "عفوا . . هذا الرقم موجود مسبقا", vbExclamation + vbMsgBoxRight, "خطأ" End Sub تم تعديل ديسمبر 2, 2013 بواسطه أبو حنين
dah_med قام بنشر ديسمبر 2, 2013 الكاتب قام بنشر ديسمبر 2, 2013 السلام عليكم أخي أبو حنين جزاك الله خير أرجو أن تشرح لي لماذ سميت الخلايا من Range("C34:C36") ولم تدخل الخلية c37 كما أريد ترحيل المجموع كذلك
حمادة عمر قام بنشر ديسمبر 2, 2013 قام بنشر ديسمبر 2, 2013 الاستاذ الحبيب / أبو حنين بارك الله فيك مثلك لا يستأذن استاذي بل يأمر واكوادك دائما تتسم بالسهل الممتنع ودائما احاول تبسيط الكود وتقديم اسهل ما يمكن تبعا لطريقتكم تقبل خالص تحياتي 1
حمادة عمر قام بنشر ديسمبر 2, 2013 قام بنشر ديسمبر 2, 2013 السلام عليكم الاخ الكريم / dah_med بارك الله فيك تفضل المرفق به كود الترحيل والاستدعاء ارجو ان يفي بطلبك وفي انتظار ردك تقبل خالص تحياتي مقياس التأهيل لعمال المهنين-sama11.rar 2
dah_med قام بنشر ديسمبر 2, 2013 الكاتب قام بنشر ديسمبر 2, 2013 أستاذ عمر جزاك الله خيرا بقي كيف احضر الاسماء من ورقة ارشيف علما ان الاسماء ستكون كثيرة تقبل خالص تحياتي
حمادة عمر قام بنشر ديسمبر 2, 2013 قام بنشر ديسمبر 2, 2013 السلام عليكم أخي الكريم .. عذرا لم أفهم طلبك الأخير ما معني احضار الأسماء ؟ علما بأن الملف الأخير به كود الاستدعاء تقبل خالص تحياتي
dah_med قام بنشر ديسمبر 2, 2013 الكاتب قام بنشر ديسمبر 2, 2013 السلام عليكم اخي عمر أقصد أن تكون هناك قائمة منسدلة اختار منها الاسم الذي اريد التعديل عليه أو حبذا لو تكون فورم بحث عن الاسم المراد التعديل عليه كما ان هناك مشكلة التعديل الرسالة التي وضعتها لا تترك مجال للتعديل بعبارة أوضح اريد أن أستدعي موظف لا أعدل على بياناته تم أحفظه في نفس الرقم والسطر الموجود في ورقة الارشيف
ابو نبأ قام بنشر ديسمبر 6, 2013 قام بنشر ديسمبر 6, 2013 السلام عليكم عمل ممتاز ، بارك الله فيكم السلام عليكم
حمادة عمر قام بنشر ديسمبر 6, 2013 قام بنشر ديسمبر 6, 2013 الاخ الكريم / dah_med بارك الله فيك شاهد الملف المرفق ... مع العلم انه يحتاج بعض العمل وان كان هو ما تريد نقوم بضبطة تماما مقياس التأهيل لعمال المهنين-sama111.rar 1
حمادة عمر قام بنشر ديسمبر 6, 2013 قام بنشر ديسمبر 6, 2013 السلام عليكم الاخ الكريم / ابو نبأ بارك الله فيك مرور طيب وكريم تقبل خالص تحياتي
حمادة عمر قام بنشر ديسمبر 6, 2013 قام بنشر ديسمبر 6, 2013 السلام عليكم الاخ الكريم / ابو نبأ بارك الله فيك مرور طيب وكريم تقبل خالص تحياتي
حمادة عمر قام بنشر ديسمبر 6, 2013 قام بنشر ديسمبر 6, 2013 الأخ الحبيب / قنديل الصياد بارك الله فيك مرورك طيب وكريم من شخص كريم ودائما مرورك يشرفني أخي الحبيب تقبل خالص تحياتي 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.