تعديل على كود ترحيل

[Hassan Hammoud]

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

ترحيل5.rar

[الشهابي]

أخي العزيز 

ما كان يلزمك فتح موضوع جديد فكان أفضل أن تتابع في نفس الموضوع لأنه نفسه 

المهم 

جرب المرفق

 

 

ترحيل5.rar

[Hassan Hammoud]

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

على أي حال وصلت لما اريده وذلك بفضلك  وبفضل هذا المنتدى القيم

وأرجو الله ان يجزيك الصحه والعافيه وجعل كل خدمه قمت بها ان تكون في ميزان حسناتك

 

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

[الشهابي]

أخي العزيز 

الحمد لله الذي أوصلك ما تريد أسأل الله أن يوفقك لكل ما تريد 

إذا لم يتحمل الملق معك 

اسبدل الكود السابق بهذا مع الإضافات التي اضفتها أنت 

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))

وفقك الله 

 

[Hassan Hammoud]

الاخ العزيز "الشهابي" وصل الملف وحملته وكل الامور تمام ، ولكن ارسال الملف من طرفي لم يتم لذلك رفعته كموضوع جديد!!

وعلى كل حال لا يسعني الا:  ان ادعو الله لك بظهر الغيب ان يوفققك ويسدد خطاك. 

ونامل ان لا تبخل علينا عند احتياجك لاني استعمل الاكسل ، وانا جديد في الاكسل وفي هذا المنتدى، 

تقبل تحياتي ولك مني كل الاحترام