مشكلة محتاجة لحل ضرورى

[ضى النور]

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

[طارق محمود]

السلام عليكم

أخي العزيز

إستخدم دالة VLOOKUP

[طارق محمود]

أنظر المرفق

علي الرابط

http://www.4shared.com/file/ovJOjEUt/____.html

[ضى النور]

للاسف موش قادر افهم علشان انفذ ممكن حل تانى

[أ / محمد صالح]

ممكن ترفع الملفين وبإذن الله سيتم المطلوب

[ضى النور]

البيانات الى فيه بيانات شغل ودى للاسف

[طارق محمود]

إحذف من الملفين أسماء العاملين

وإستبدله برمز وليكن إسم01 - إسم 02 ... مثلا

وأي بيانات أخري مثلا العنوان : عنوان01 - عنوان02 - عنوان03 -....

وبذلك لن يكون هناك أسرار تخشي ذيعها

ثم إرفق الملفين

[طارق محمود]

طبعا لعدد صغير وليس كل البيانات

[ضى النور]

دى مثال بس عندى بيانات كتير

للرفع.rar

[طارق محمود]

السلام عليكم

أنظر أخي الفيديو المرفق

Vlookup.rar

[ضى النور]

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

[طارق محمود]

لو بس عشان شكل الملف ، تستطيع جعل لون فونط الكتابة للمساحة المنولة هذه لون خفيف (أزرق باهت - أصفر)

فيه حل تاني أن تنسخ النتيجة في العمود الجديد ثم تضع لصق خاص قيم فقط في نفس المكان

وبذلك تكون حصلت علي القيم المطلوبة ولكن المعادلة لن تظل

وحل ثالث ، إن كنت تريد الحفاظ علي المعادلة

بدل ماتنسخ العمودين من الورقة العربي في نفس الورقة الإنجليزي ، إنسخهم في الملف الإنجليزي ولكن في ورقة أخري (لن تظهر في الطباعة)

أو في نفس الورقة ولكن بعد 20 أو 30 عمود لليسار مثلا

[ضى النور]

الف شكر لكل شخص يساهم فى تعليم الاعضاء

مرفق ملف ارجوا انجازه كما هو موضح بالداخل ولكم جزيل الشكر

شغل جديد.rar

[ضى النور]

لا تنظر وترحل بصمت اترك حتى راأى

[ضى النور]

ارجوا الا يخذلنى الاخوه الكرام لما هذا الصمت

[الـعيدروس]

السلام عليكم

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

وانت حذفت الكود التابع لها فكيف تبغاها تعمل معاك

حط هذا الكود في مودويل وراح تعمل معاك ان شاء الله

Function S(rng)

Dim CellSum As Long

Dim Cell As Range

Application.Volatile

CellSum = 0

Set rng = Intersect(rng.Parent.UsedRange, rng)

For Each Cell In rng

If IsNumeric(Cell) Then

If Not Cell.EntireRow.Hidden And _

Not Cell.EntireColumn.Hidden Then _

CellSum = CellSum + Cell

End If

Next Cell

S = CellSum

End Function

[الـعيدروس]

السلام عليكم

وهذا الملف الاخير ( اخر ماتوصلنا اليه)

ومن لدية الوقت من الاساتذه الافاضل يكمل ماتبقى

بدل مايكون التعب تعبين

مهم جدا _alidroos8.rar

[ضى النور]

الف شكر للاستاذ alidroos على تعبه معايا ارجوا من الاخوه تكملت ما بداه مع الاخذ فى الاعتبار التغيرات فى الملف شغل جديد لانى لما عملت اضافات عمل مشكلة مع الغاء اخر صفحة باسم الناتج فى ملف مهم جدا عملتها فى ملف جديد لوحدها

[ضى النور]

ياجماعة الخير فيه ايه طيب حد يقول اعمل كذا لا دى غلط موش كده ولا فكرة حتى