ترحيل واستدعاء

[dah_med]

السلام عليكم

المطلوب ترحيل بيانات واستدعائها للتعديل

انظر المرفق

مقياس التأهيل لعمال المهنين.rar

[dah_med]

للرفع رفع الله قدركم

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

بالنسبة لكود الترحيل تم وضع كود بسيط لترحيل البيانات  ويمكنك التعديل عليه بسهوله

اما بالنسبة للاستدعاء فعلي اي اساس يتم الاستدعاء

هل بالرقم  ... ام بالاسم واللقب ... وهل يتم الاستدعاء في نفس صفحة الادخال ام ...

تفضل المرفقات

 

 

مقياس التأهيل لعمال المهنين-sama.rar

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

[dah_med]

السلام عليكم أخي عمر

جزاك الله خيرا على الرد

الترحيل يعمل لكن حبذا لو الرقم لا يكرر اي عند تكرر الرقم تكون رسالة بأن الرقم موجود مسبقا

أما بخصوص الإستدعاء فيكون بالبحث عن الاسم واللقب للعامل مع إمكانية التعديل على معلوماته تم ترحيلها

[أبو حنــــين]

السلام عليكم

بعد اذن اخي حمادة

و بالنسبة للسؤال الاول يمكن تغيير الكود السابق بالشكل التالي

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]

السلام عليكم

أخي أبو حنين جزاك الله خير

أرجو أن تشرح لي لماذ سميت الخلايا من   Range("C34:C36")

ولم تدخل الخلية c37

كما أريد ترحيل المجموع كذلك

[حمادة عمر]

الاستاذ الحبيب / أبو حنين

بارك الله فيك

مثلك لا يستأذن استاذي بل يأمر

واكوادك دائما تتسم بالسهل الممتنع

ودائما احاول تبسيط الكود وتقديم اسهل ما يمكن تبعا لطريقتكم

تقبل خالص تحياتي

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

تفضل المرفق به كود الترحيل والاستدعاء

ارجو ان يفي بطلبك

وفي انتظار ردك

تقبل خالص تحياتي

 

 

مقياس التأهيل لعمال المهنين-sama11.rar

[dah_med]

أستاذ عمر

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

بقي كيف احضر الاسماء من ورقة ارشيف علما ان الاسماء ستكون كثيرة

تقبل خالص تحياتي

[حمادة عمر]

السلام عليكم

أخي الكريم .. عذرا لم أفهم طلبك الأخير

ما معني احضار الأسماء ؟

علما بأن الملف الأخير به كود الاستدعاء

تقبل خالص تحياتي

[dah_med]

السلام عليكم

اخي عمر أقصد أن تكون هناك قائمة منسدلة اختار منها الاسم الذي اريد التعديل عليه

أو حبذا لو تكون فورم بحث عن الاسم المراد التعديل عليه

كما ان هناك مشكلة التعديل الرسالة التي وضعتها لا تترك مجال للتعديل

بعبارة أوضح اريد أن أستدعي موظف لا أعدل على بياناته تم أحفظه في نفس الرقم والسطر الموجود في ورقة الارشيف

[dah_med]

للرفع رفع الله قدركم

[dah_med]

للرفع رفع الله قدركم

[dah_med]

up

[dah_med]

للرفع رفع الله قدركم

[ابو نبأ]

السلام عليكم

 

عمل ممتاز ، بارك الله فيكم

 

السلام عليكم

[حمادة عمر]

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

بارك الله فيك

شاهد الملف المرفق ... مع العلم انه يحتاج بعض العمل

وان كان هو ما تريد نقوم بضبطة تماما

 

مقياس التأهيل لعمال المهنين-sama111.rar

 

[حمادة عمر]

السلام عليكم

الاخ الكريم / ابو نبأ

بارك الله فيك

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

تقبل خالص تحياتي

[حمادة عمر]

السلام عليكم

الاخ الكريم / ابو نبأ

بارك الله فيك

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

تقبل خالص تحياتي

[قنديل الصياد]

استاذى الحبيب حمادة عمر

  

[قنديل الصياد]

استاذى الحبيب ابو حنين

 

[حمادة عمر]

الأخ الحبيب / قنديل الصياد

بارك الله فيك

مرورك طيب وكريم من شخص كريم

ودائما مرورك يشرفني أخي الحبيب

تقبل خالص تحياتي