هل ممكن عمل هذا بالمعادلات فى الاكسل

[فضل حسين]

الى خبراء واعضاء منتداى العزيز والعظيم

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

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

والف شكر

قطع الصلة بعد النسخ.rar

[عبدالله باقشير]

السلام عليكم

بعد كتابة ارقام الجلوس

نفذ هذا الكود

Sub kh_copy()

Dim R%, M%

For R = 7 To Cells(1000, "D").End(xlUp).Row

    M = Application.Match(Cells(R, "A"), [Sheet1!A:A], 0)

    Cells(R, "D").Copy Sheets("Sheet1").Cells(M, "D")

    Cells(R, "D") = Empty

Next

End Sub

[احمد فضيله]

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

اخي واستاذي الكبير العلامة / خبور خير

جزاك الله كل خير و زادك علماً فوق علمك

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

[فضل حسين]

عاشق الاكسل

العلامة الكبير / خبور خير

على نمط مشاركتك الجميلة ( هل تعلم )

هل تعلم :- اننى سوف اطلق عليك اسم ( عاشق الاكسل )

هل تعلم :- اننى سعيد جدا جدا بمشاركتك واعتز بها واعتبرها بمثابة شرف وفخر لى .

هل تعلم :- اننى مش عارف اقولك ايه من كلمات الشكر والثناء والحب فالكلام يعجز عن شكرى وتقديرى واعتزازى بشخصك .

هل تعلم :- اننى اريد معرفة رأيك بخصوص الاسم الذى اطلقته عليك ( عاشق الاكسل )

كل التقدير والحب والاحترام والدعاء بالتوفيق لى

عاشق الاكسل

العلامة الكبير / خبور خير

[saffaa]

لو سمحت استاذي العزيز ضعها في ملف