Hassan Hammoud قام بنشر فبراير 17, 2017 مشاركة قام بنشر فبراير 17, 2017 المطلوب تعديله مشروح على الصفحات >>> ونتمنى من الاخ الشهابي ان يكمل معروفه ونحن الى الجميع شاكرين والسلام عليكم ترحيل5.rar رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر فبراير 17, 2017 مشاركة قام بنشر فبراير 17, 2017 أخي العزيز ما كان يلزمك فتح موضوع جديد فكان أفضل أن تتابع في نفس الموضوع لأنه نفسه المهم جرب المرفق ترحيل5.rar رابط هذا التعليق شارك More sharing options...
Hassan Hammoud قام بنشر فبراير 17, 2017 الكاتب مشاركة قام بنشر فبراير 17, 2017 المعذر ولكن حاولت ان ارفع الملف بعد اخر رد منك لكن لم ينجح التحميل على أي حال وصلت لما اريده وذلك بفضلك وبفضل هذا المنتدى القيم وأرجو الله ان يجزيك الصحه والعافيه وجعل كل خدمه قمت بها ان تكون في ميزان حسناتك ولك ولكل القيمين على هذا المنتدى كل الشكر والتحيه رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر فبراير 18, 2017 مشاركة قام بنشر فبراير 18, 2017 أخي العزيز الحمد لله الذي أوصلك ما تريد أسأل الله أن يوفقك لكل ما تريد إذا لم يتحمل الملق معك اسبدل الكود السابق بهذا مع الإضافات التي اضفتها أنت Sub trhel() Application.ScreenUpdating = False Application.Calculation = xlManual lr = Sheets("Solid").Range("D10000").End(xlUp).Row lr1 = Sheets("DB").Range("a10000").End(xlUp).Row For I = 7 To lr Sheets("DB").Cells(lr1 + 1, 1).Value = Sheets("Solid").Cells(2, 5).Value Sheets("DB").Cells(lr1 + 1, 2).Value = Sheets("Solid").Cells(2, 8).Value Sheets("DB").Cells(lr1 + 1, 3).Value = Sheets("Solid").Cells(4, 8).Value Sheets("DB").Cells(lr1 + 1, 4).Value = Sheets("Solid").Cells(4, 5).Value For Each CLL In Sheets("DB").Range("E1:IV1") If CLL = Sheets("Solid").Cells(I, 4) Then CLL.Offset(lr1, 0) = Sheets("Solid").Cells(I, 4).Offset(0, 2).Value End If Next CLL Next I Sheets("solid").Select Application.Calculation = xlAutomatic Application.ScreenUpdating = True Range("D7:D46,F7:F46,G7:G46,H4").ClearContents End Sub وبالنسبة للتخلص من الخطأ في المعادلة استبدل المعادلة بهذه =IF(ISERROR(VLOOKUP(D8;$O$7:$P$51;2;0));"";VLOOKUP(D8;$O$7:$P$51;2;0)) وفقك الله رابط هذا التعليق شارك More sharing options...
Hassan Hammoud قام بنشر فبراير 18, 2017 الكاتب مشاركة قام بنشر فبراير 18, 2017 الاخ العزيز "الشهابي" وصل الملف وحملته وكل الامور تمام ، ولكن ارسال الملف من طرفي لم يتم لذلك رفعته كموضوع جديد!! وعلى كل حال لا يسعني الا: ان ادعو الله لك بظهر الغيب ان يوفققك ويسدد خطاك. ونامل ان لا تبخل علينا عند احتياجك لاني استعمل الاكسل ، وانا جديد في الاكسل وفي هذا المنتدى، تقبل تحياتي ولك مني كل الاحترام رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.