كود VBA لترحيل المعلومات الى عمود يتم اختياره من القائمة المنسدلة

[أنس3001]

ارغب في كود vba  لنقل محتويات عمود الى اخر في ورقة اخرى 

بحيث تنتقل  المعلومات الى العمود  الذي يتم اختياره في القائمة المنسدلة 
وشكرا 
طلب  مساعدة : احتاج كود VBA لترحيل المعلومات الى عمود يتم اختياره من القائمة المنسدلة

vba-tar7il.xlsm

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

جرب هذا الكود

Option Explicit

Sub Tarhil()
Dim My_St: My_St = Sheets("data").Range("b1")
Dim My_col%
My_col = Sheets("tab").Range("A1:F1").Find(My_St).Column
Sheets("data").Range("b2", Range("b1").End(4)).Copy _
Sheets("tab").Cells(2, My_col)
End Sub

 

[Ali Mohamed Ali]

كود ممتاز احسنت استاذ سليم جعله الله فى ميزان حسناتك واكثر الله من أمثالك

[أنس3001]

رائــــــــــــــــــــــــــــــــــــــــــع جدا  

شكــــــــــــــــــــــــــرا الاستاذ سليم 

جعله الله فى ميزان حسناتك

[Ahmed Hosny]

رائع ربنا يزيدك