كود لنسخ عمود باختيار من قائمة منسدلة

[omhamzh]

الاساتذة الاخوة الافاضل

بارك الله فى المنتدى واهله

لدى اربعة اعمدة m n o p

اسفل كل منهم كلمة الاولى الثانية الثالثة الرابعة 

اسفل كل كلمة اسم مادة مثلا عربى انجليزى رياضيات

اريد عند اختيار اسم المادة من القائمة المنسدلة التى بالخلية F2 مثلا الاولى ينسخ العمود الذى اسفل الكلمة الى العمودE3 وهكذا لباقى الاعمدة

النسخ يتم عن طريق اختيار اسم المادة وتوضيح انى فى حالة زياة الاعمدة M N O P الى 6 اعمدة ماذا اعير بالكود مع الشكر يوجد شرح بالملف

بارك الله فيكم اساتذة كرام

نسخ عمود عن طريق الاختيار من قائمة.xlsm

[سليم حاصبيا]

هذا الماكرو

Option Explicit

Sub copy_by_choise()
    Dim sh As Worksheet
    Dim Rg As Range
    Dim f_rg As Range
    Dim x%, n%

Set sh = Sheets("Sheet1")
sh.Range("E4").CurrentRegion.ClearContents
Set Rg = sh.Range("N1").CurrentRegion
x = Rg.Rows.Count
If x = 1 Then Exit Sub

Set f_rg = Rg.Rows(1).Find(sh.Range("F2"), lookat:=1)
If f_rg Is Nothing Then Exit Sub

Set Rg = Rg.Offset(1).Resize(x - 1)
n = f_rg.Column - 12
sh.Range("E4").Resize(Rg.Rows.Count).Value = _
Rg.Columns(n).Value

End Sub

 

[omhamzh]

ما اروعك استاذ سليم كود يفى بالموضوع تمام 

سلمت يمينك وبارك الله فيك حفظك الله

اشكرك سيدى الاستاذ سليم