ترحيل الكميات المنصرفة

[أبو سجده]

بسم الله الرحمن الرحيم

وبه نستعين

السلام عليكم ورحمته الله وبركاته

ودامت دياركم عامرة بنورالايمان وتقبل الله تعالى منا ومنكم صالح الاعمال

إنه ولى ذلك والقادرعليه

المرفق التالى يوضح المطلوب بحول الله تعالى

 تقبلوا وافر تقديرى واحترامى *** وجزاكم الله خيرا

ترحيل الكميات المنصرفة.xlsb.rar

[ياسر خليل أبو البراء]

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

جرب الكود التالي

Sub TransferMatchingItems()
    Dim Ws As Worksheet, Sh As Worksheet, Cel As Range, Found
    Set Ws = Sheet2: Set Sh = Sheet1
    
    Application.ScreenUpdating = False
        With Sh
            For Each Cel In .Range("B8:B" & .Cells(Rows.Count, "B").End(xlUp).Row)
                Set Found = Ws.Range("C:C").Find(What:=Cel.Value, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
                
                If Not Found Is Nothing And Not IsEmpty(Cel.Value) Then
                    Cel.Offset(, 3).Value = Found.Offset(, 6).Value
                End If
            Next Cel
        End With
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

 

[رجب جاويش]

أخى سعيد

أخى ياسر

هذا كود آخر بالحلقات التكرارية

صحيح أنها تكون بطيئة قليلا فى البيانات الكبيرة ولكن وضعتها لاثراء الموضوع

Sub ragab()
Dim cl As Range, cll As Range
Dim LR1 As Integer, LR2 As Integer
Dim sh1 As Worksheet, sh2 As Worksheet
'========================================
Set sh1 = Sheet1: Set sh2 = Sheet2
LR1 = sh1.Range("A10000").End(xlUp).Row
LR2 = sh2.Range("A10000").End(xlUp).Row
sh1.Range("E8:E" & LR1).ClearContents
'========================================
For Each cll In sh2.Range("C8:C" & LR1)
    For Each cl In sh1.Range("B8:B" & LR1)
        If cll = cl Then
            cl.Offset(0, 3) = cll.Offset(0, 6)
        End If
    Next
Next
End Sub

 

[أبو سجده]

إخوانى الافاضل 

أخى الحبيب الغالى // ابو البراء

إسمح لى اولا أن أرحب وأهنىء نفسى بقدوم أحد ركائز هذا الصرح المبارك

الذى تعلمنا منه الكثير والكثير ألا وهو استاذى ومعلمى

الاستاذ الكبير // رجب جاويش

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

كلا الكودين 100 فل و14

أخى الحبيب // ابو البراء 

بارك الله فيك ورزقنا الله واياكم من حيث لانحتسب

وافر تقديرى واحترامى وجزاكم الله عنى خير الجزاء

تم تعديل يناير 29, 2016 بواسطه سعيد بيرم

[رجب جاويش]

أخى الحبيب الغالى سعيد بيرم

جزاك الله كل خير على هذه الكلمات الطيبة

وربنا يديم المعروف

 

[ياسر خليل أبو البراء]

أخي وحبيبي في الله رجب

متمكن في استخدام الحلقات التكرارية .. رغم أنني لا أفضلها لكن يبدو أنك ستعيدني إليها حباً فيك

الأخ العزيز سعيد

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

فيما يخص طلبك الآخر يرجى توضيحه في المكان المناسب ولا تحدث تداخل بين الموضوعات .. وصدقني الموضوع الآخر نسيته ونسيت الكود نفسه فقد أخبرتك أني مصاب بالزهايمر

تقبلوا وافر تقديري واحترامي

[رجب جاويش]

أخى ياسر

أحبك الله الذى أحببتنى فيه