ترحيل حسب قيمة الخلية

[seddiki_adz]

طلب مساعدة في ترحيل العمودين C و D من الشيت BASE الى العمودين   E  و  F  من الشيت RÉSULTAT حسب قيمة الخلية الموحودة في العمود D

BINOME2223.xlsx

[رضا على]

بعد ادن الادمن الاجابة على حسب قهمى البسيط

بعد ادن الادمن الاجابة على حسب قهمى البسيط

BINOME2223.xlsx

[seddiki_adz]

شكرا عاى المحاولة لكن ليس هذا المطلوب لان 9009 تقابلها القاعة A  السطر 76 الى ما فوق

[lionheart]

Sub Test()
    Application.ScreenUpdating = False
        With Sheet2
            .[A1].CurrentRegion.Columns("B:D").AdvancedFilter xlFilterCopy, , .[H1], True
        End With
        With Sheet1
            With .Range("E2:F" & .Cells(Rows.Count, "D").End(xlUp).Row)
                .Formula = "=INDEX(BASE!I$1:I$272,MATCH($D2,BASE!$H$1:$H$272,0))"
                .Value = .Value
            End With
        End With
        Sheet2.[H1].CurrentRegion.Clear
    Application.ScreenUpdating = True
End Sub

 

[هانى محمد]

تفضل seddiki_adz .. ولكن هذه مسألة بسيطة جداً وكان عليك وضع الكود بالملف بنفسك .. وطالما انك تريد حل مشكلتك بالأكواد فكان عليك من باب أولى رفع الملف بإمتداد يقيل اضافة الأكواد من البداية مثل Xlsm

والشكر موصول لأستاذنا الكبير lionheart

ولكن بكل بساطة لإضافة الكود بالملف عليك بالضغط على Alt+F11 ثم بعد ذلك الضغط على قائمة Insert واختيار Module ستفتح لك نافذة جديدة عليك بلصق الكود بها وشكراً

BINOME2223.xlsm

[seddiki_adz]

شكرا اخي