ترحيل حسب اختيار اسم الشيت ج 2

ترحيل حسب اختيار اسم الشيت ج2

ترحيل حسب اختيار اسم الشيت من خلال قائمة منسدلة

الخطوات

1. كتابة اسماء أوراق العمل بأحد الأعمدة
2. من خلال تبويب (قائمة) Formulas
3. نضغط على Name Manager
4. نختار New
5. نكتب الاسم  MySheets
6. ثم نحدد بالماوس النطاق الذى به اسماء اوراق العمل

ثم نذهب الى المحرر

الخطوات

1. اضغط على Alt + F11
2. نضيف موديول جديد
3. نسخ ولصق الشفرة البرمجية التالية
4. ثم نعود للاكسل
5. نضع شكل او زر ثم نقوم بربطه باسم الشفرة Transferring

الكود

'فضلا عند استخدامك للشفرات البرمجية يجب ذكر المصدر
'https://elshriefacademy.blogspot.com

Sub Transferring()
LR = Sheets("Data").Range("a" & Rows.Count).End(xlUp).Row
x = Range("F2").Value
    Range("A2:D" & LR).Select
    Selection.Copy
 Range("A2").Select
    Sheets(x).Select
LR1 = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row
    Range("A" & LR1 + 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
MsgBox ("تم ترحيل البيانات")
End Sub